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は列番号です

例えば

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
于 2012-09-11T11:29:06.060 に答える