Em xin được giúp về hàm offset

[minhhome.net]

em đang dùng hàm offset nhưng chưa xử lý được
Nội dung là nếu từ ô D6 đến D17 >0 thì điền dữ liệu ô C 2 vào các ô B6: B17(ô nào không có dữ liệu thì ẩn ko điền vào)
Mong các anh chị giúp đỡ
Sub test()
Dim so_ct As String, tien As String


so_ct = Range("c2")
tien = Range("d6") '

If tien<>""

Range("b2").Offset(1, 0).Select

End If

End Sub

 

[phulien1902]

View attachment 202762
em đang dùng hàm offset nhưng chưa xử lý được
Nội dung là nếu từ ô D6 đến D17 >0 thì điền dữ liệu ô C 2 vào các ô B6: B17(ô nào không có dữ liệu thì ẩn ko điền vào)
Mong các anh chị giúp đỡ
Sub test()
Dim so_ct As String, tien As String


so_ct = Range("c2")
tien = Range("d6") '

If tien<>""

Range("b2").Offset(1, 0).Select

End If

End Sub

Thử:

Sub abc()
    Dim i&, LR&
    LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    For i = 6 To LR
        If Range("D" & i).Value > 0 Then
            Range("B" & i).Value = Range("C2").Value
        End If
    Next
End Sub

 

[minhhome.net]

Thử:

Sub abc()
    Dim i&, LR&
    LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    For i = 6 To LR
        If Range("D" & i).Value > 0 Then
            Range("B" & i).Value = Range("C2").Value
        End If
    Next
End Sub

tuyệt vời cám ơn bạn nhiều lắm