đánh stt

[mingde2k]

em cần code để chạy VBA đếm stt ở cột G dựa theo dữ liệu ở cột H
vd như trong file đính kèm
em cảm ơn

 

[BuiQuangThuan]

em cần code để chạy VBA đếm stt ở cột G dựa theo dữ liệu ở cột H
vd như trong file đính kèm
em cảm ơn

Sub ABC()
Dim Arr(), i&, eR&, K&, KQ()
eR = Sheet1.Range("H" & Rows.Count).End(xlUp).Row
Arr = Sheet1.Range("H2:H" & eR).Value
    ReDim KQ(1 To UBound(Arr, 1), 1 To 1)
    For i = 1 To UBound(Arr, 1)
        If Arr(i, 1) <> Empty Then
            K = K + 1
            KQ(i, 1) = K
        End If
    Next
Sheet1.Range("G2").Resize(UBound(Arr)).Value = KQ
End Sub

Thử. Hên xui

 

[SA_DQ]

/(hông thể nói gì thêm!

 

[vudinhgiao]

em cần code để chạy VBA đếm stt ở cột G dựa theo dữ liệu ở cột H
vd như trong file đính kèm
em cảm ơn

Bạn tham khảo xem được chưa nhé

 

[mingde2k]

da em cam on de em chay code thu xem sao