Chọn mẫu với bước nhảy là số lẻ

[lakoda]

Em có vấn đề nhờ các bác giúp đỡ như sau:

E cần đánh dấu chọn mẫu Theo cột J với STT Toàn thành được chọn theo bước nhảy lẻ k=21,4. Vì đây là số lẻ nên em dùng hàm sau không giải quyết được vấn đề

    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To lr Step 21.5
        Range("J" & i) = 1
    Next i
End Sub

Vấn đề ở k=21,4. Giả sử em chọn thằng đầu tiên là STT Toàn thành = 4 thì thằng thứ 2 được chọn là có STT = 4 +21,4=25,4 làm tròn là 25, thằng thứ 3 có STT = 25,4+21.4=46,8 làm tròn = 47, cứ như vậy đến hết ạ

 

[snow25]

Em có vấn đề nhờ các bác giúp đỡ như sau:

E cần đánh dấu chọn mẫu Theo cột J với STT Toàn thành được chọn theo bước nhảy lẻ k=21,4. Vì đây là số lẻ nên em dùng hàm sau không giải quyết được vấn đề

    Dim i As Long, lr As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 3 To lr Step 21.5
        Range("J" & i) = 1
    Next i
End Sub

Vấn đề ở k=21,4. Giả sử em chọn thằng đầu tiên là STT Toàn thành = 4 thì thằng thứ 2 được chọn là có STT = 4 +21,4=25,4 làm tròn là 25, thằng thứ 3 có STT = 25,4+21.4=46,8 làm tròn = 47, cứ như vậy đến hết ạ

Sub kk()
    Dim i As Double, lr As Long, a As Long
    lr = Range("A" & Rows.Count).End(xlUp).Row
    i = 9
   Do While i < lr
        a = i
        Range("J" & a) = 1
        i = i + 21.4
   Loop
End Sub

Bạn có thể dùng thử cái này.

 

[lakoda]

Tks bác snow25, đã test và kết quả đúng như mong muốn ạ