VBAの得意な方、教えてください(初心者です)
エクセルのシートが
セルA1に1
セルA2に2
セルA3に3
セルA4に4
セルA5に5
という数字が入っています。
で、セルD4には"=D2*5"という数式が入っています。
セルD2にA1の数値を代入して、出てきた数値をB1に入力、
次にD2にA2の数値を代入して、出てきた数値をB2に入力…以下続く
というのをVBAで書いてみたら、下のような感じになりました。
Sub test()
Dim d1 As Integer
Dim d2 As Integer
Dim d3 As Integer
Dim d4 As Integer
Dim d5 As Integer
Dim p1 As Integer
Dim p2 As Integer
Dim p3 As Integer
Dim p4 As Integer
Dim p5 As Integer
d1 = Cells(1, 1).Value
Cells(2, 4).Value = d1
p1 = Cells(4, 4).Value
Cells(1, 2).Value = p1
d2 = Cells(2, 1).Value
Cells(2, 4).Value = d2
p2 = Cells(4, 4).Value
Cells(2, 2).Value = p2
d3 = Cells(3, 1).Value
Cells(2, 4).Value = d3
p3 = Cells(4, 4).Value
Cells(3, 2).Value = p3
d4 = Cells(4, 1).Value
Cells(2, 4).Value = d4
p4 = Cells(4, 4).Value
Cells(4, 2).Value = p4
d5 = Cells(5, 1).Value
Cells(2, 4).Value = d5
p5 = Cells(4, 4).Value
Cells(5, 2).Value = p5
End Sub
ここで質問です。
例では5個しかないのですが、実際は100行くらいのデータなんで
大変です。もっと簡単にする方法はありますか？
実際のセルD4の数式は、他からも参照したりしているので、
ここはいじらずに教えてください。
Excel2000、Visual Basic 6.0 ってのを使っています。
よろしくお願いいたします。
