如何选择列单元格

Question

您好我已经编写了将值添加到单元格中的代码..LIKE A1，A2，A3等代码是

Sum = Abs(rangex1) + Abs(rangex2)

Debug.Print (Sum)

step_size = Sum / XDim

step_half = step_size / 2

start_point = rangex1 + step_half
Debug.Print (step_size)
Debug.Print (step_half)
Debug.Print (start_point)

For i = 1 To XDim

Range("A" & i) = start_point
start_point = start_point + step_size

Next i

现在我想按列添加值到单元格中，例如： A1，B1，C1，D1，E1等...... 我可以，我怎么能使用for循环

Answer 1

您可以使用.Cells(r,c)属性。其中r是行号，c是列号

例如

A1是Cells(1,1)

B1是Cells(1,2)，依此类推......

所以你可以像这样写一个循环

With ThisWorkbook.Sheets("Sheet1")
    For i = 1 To 5 '<~~ A to E. Change as applicable
        .Cells(1, i).Value = "Blah Blah"
    Next
End With