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

如何在工作表的最后一行之前，每4行插入3行的特定文本

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

---

使用

步骤

功能

如果您只想每隔5行显示

文本

，请使用：

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

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

如果需要一个值，然后每隔5行使用

Text

：

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

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

---

你试过什么代码？调暗i，只要i=57行。计算步骤55个单元格（i，1）=“Hello”下一个i，它给出了我想要的。但我需要在接下来的十排打招呼。所以它需要是第57-67行“你好”，接下来55行空白，然后是第122-132行“您好，接下来55行空白，直到工作表结束。请尽量避免在提问后更改您的问题。这里不太受欢迎。在你的问题中描述你试图解决的实际问题通常是一个好主意，这样人们就不会不必要地给你只解决你描述的问题而不是你真正遇到的问题的答案。谢谢，如果我的报告长度可变怎么办。所以每次我运行报告的长度都不一样，有时是500行，有时是1000行。我如何循环这个问题，以使报告的长度是可变的？我已经添加了如何获得答案中的最后一行@IlmariKaronen感谢您的提醒-已更新