Public Sub ThiLai()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, Tem As String, DK As String, Col As Long
DK = "THI*"
With Sheet1
sArr = .Range(.[A4], .[A65000].End(xlUp)).Resize(, 6).Value
Col = .[A3].End(xlToRight).Column
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To Col)
For I = 1 To UBound(sArr, 1)
Tem = UCase(sArr(I, 6))
If Tem Like DK Then
K = K + 1: dArr(K, 1) = K
For J = 2 To Col
dArr(K, J) = sArr(I, J)
Next J
End If
Next I
With Sheets("VBA")
.[A4].Resize(65000, Col).ClearContents
If K Then .[A4].Resize(K, Col).Value = dArr
End With
End Sub
cô này dạo này chắc uống nhiều tăng lực quá, cẩn thận làm cho người ta tẩu quả nhập ma đó nghen, một lần ăn 1 món thôi, nuốt 2 thứ cùng lúc mắt nghẹn à!
Cột B với trường hợp này theo anh là chuẩn, còn str1 và str2 sao mình không cho nó thẳng vào code luôn, khỏi tham chiếu đến cell phụ chi cho rối.
Sub exam()
Dim str1, str2
str1 = [C65536].End(3).Value
str2 = [D65536].End(3).Value
Sheet1.[A3:F10000].AdvancedFilter 2, [k1:k2], [a3:f3]
[C65536].End(3).Offset(2) = str1
[C65536].End(3).Offset(1, 1) = str2
[A3].CurrentRegion.Borders.Value = 1
Range([A4], [B65536].End(3).Offset(, -1)) = [Row(a:a)]
End Sub
