Xử lý dữ liệu trong VBA

Liên hệ QC

akotu12

Thành viên mới
Tham gia
22/5/18
Bài viết
15
Được thích
1
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

Thanks mọi người!
 

File đính kèm

  • test.xlsm
    13.7 KB · Đọc: 12
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!
Vậy bạn thử:
PHP:
 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
 
Upvote 0
Web KT
Back
Top Bottom