Vba 如何选择列单元格

您好，我已经编写了将值添加到单元格中的代码。如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循环

您可以使用

.Cells（r，c）

属性。其中，

r

是行号，

c

是列号

比如说

A1

是

单元格（1,1）

B1

是

单元格（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

与此工作簿.Sheets（“Sheet1”）
对于i=1至5’，您需要提供更多详细信息。你在什么环境工作？它是
VB.NET
还是
VBA
？代码的其余部分在哪里？什么是
Sum
，
rangex1
，
rangex2
，
步长
，
XDim
，
起点
等，它们是如何声明的？问题是什么？请参阅常见问题解答：