Vậy bạn thử:Chào anh chị,
Em muốn chạy vòng lặp đọc dữ liệu với ô F6 chỉ 1 giá trị ở cột A nếu trùng nhiều giá trị thì xử lý VBA như nào ạ? dữ liệu em gửi ở file đính kèm
Cảm ơn mọi người!
Dim a(), b(), i, j, k, LR
With Sheet1
a = .Range("A1", .Range("A5000").End(3)).Resize(, 3).Value: LR = UBound(a)
End With
ReDim b(1 To LR, 1 To 2)
With Sheet1
For i = 1 To LR
If a(i, 1) = [f6] Then
k = k + 1
b(k, 1) = a(i, 2): b(k, 2) = a(i, 3)
End If
Next i
.[E8:F1000].ClearContents
With Sheet1
.Range("E8").Resize(k, 2) = b
End With
End With
DIỄN ĐÀN GIẢI PHÁP EXCEL