Question

如何在工作表的最后一行直到我的工作表的最后一行每4行插入一个特定文本？

1
2
3
4
5 Hello
6 Hello
7 Hello
8
9
10
11
12 Hello
13 Hello
14 Hello
15
16
17 
18
19 Hello
.
.
500 Hello

Answer 1

使用Step功能

如果您只想使用Text每5行使用：

For i = 1 To 500 Step 5
    Cells(i, 1) = "Hello"
Next i

如果您想要一个值，然后每5行使用Text：

For i = 1 To 500 Step 5
    If rowCount = 5 Then
        Cells(i, 1) = "Hello"
        rowCount = 0
    Else
        Cells(i, 1) = i
        rowCount = rowCount + 1
    End If
Next i

如果要考虑变量行范围，请使用以下代替500：

Cells(Rows.count,1).End(xlUp).row

修改了问题后的更新 这将完成您的新问题所要求的

Dim i As Long

' Change this to your actual sheet
With ActiveSheet
    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row - 7 Step 7
        With .Cells(i, "A")
            Range(.Offset(4, 0), .Offset(6, 0)).Value2 = "Hello"
        End With
    Next i
End With

VBA如何每50行循环一次文本

1 个答案: