S
ub CauHoi()
Dim i&, k&, aData, aRes
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1) = "" Then
Range("A" & i).EntireRow.Delete xlUp
End If
Next
aData = Range("A1:A" & Range("A65536").End(xlUp).Row).Value
ReDim aRes(1 To UBound(aData), 1 To 7)
For i = 1 To UBound(aData) ' Step 6
If aData(i, 1) Like "*Câu*" Then
k = k + 1
If Left(aData(i + 1, 1), 2) <> "a." Then
If aData(i + 1, 1) Like "A.*" Then
aRes(k, 1) = Left(aData(i, 1), InStr(1, aData(i, 1), ".") - 1)
aRes(k, 2) = Mid(aData(i, 1), InStr(1, aData(i, 1), ".") + 1)
aRes(k, 3) = aData(i + 1, 1)
aRes(k, 4) = aData(i + 2, 1)
aRes(k, 5) = aData(i + 3, 1)
aRes(k, 6) = aData(i + 4, 1)
aRes(k, 7) = aData(i + 5, 1)
End If
End If
End If
Next
Range("B2").Resize(10000, 7).ClearContents
Range("B2").Resize(k, 7) = aRes
End Sub