Code của đồng chí là:
Sub Mucluc()
Dim Sh As Worksheet, i As Long, Arr, k As Long
Application.DisplayAlerts = False
ReDim Arr(1 To Sheets.Count, 1 To 2)
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "Mucluc" Then
i = i + 1
Arr(i, 1) = Sh.Cells(3, 1)
Arr(i, 2)...