☰

循环遍历行

tag-icon • tag-icon microsoft-excel worksheet-function vba
循环遍历行

现在我有这样的代码：

Sub Loop2()


Dim str As String
str = "BLAH"
Dim X As Integer
    For X = 1 To 20
        Range("A" & X).Value = str
    Next X

End Sub

这会用“BLAH”填充第一列，但我想填充第一行，我该怎么做？

答案1

虽然您可以以 RANGE("A1") 的形式使用 RANGE，但 RANGE 更常用于定义起点和终点，即。RANGE("A1:A20")或RANGE("A1","A20")。如果您要为单元格分配单个值，您可能需要查看 CELLS。CELLS 将使用行号和列号定义其参考位置，即CELLS(15,4)或CELLS(15,"D")将引用 D15。您可以将 CELLS 与 组合使用，以数字方式定义范围的起点和终点：

RANGE(CELLS(1,1),CELLS(1,20))

相当于 A1:A20

在您的代码中Range("A" & X).Value = str替换CELLS(1,X).Value = str

相关内容