0

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

4

1 回答 1

0

您可以使用该.Cells(r,c)物业。r行号和c列号在哪里

例如

A1Cells(1,1)

B1Cells(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
于 2012-09-11T11:29:06.060 回答