excel VBAについて

質問

こんにちは、VBAについてわからないものがあるんですが、問１『Ｃ１～Ｃ１００００に３，６，９、・・・・と３の倍数を順番に１００００個書き込む。』という課題なんですがわかる方いらっしゃいませんか。

回答No.5

tom04

こんにちは！
一例です。

Sub Sample()
Range(Cells(1, "C"), Cells(10000, "C")).Formula = "=row()*3"
End Sub

※　これでは単にC列に数式が入っているだけですので、実データを表示したい場合のコードは

Sub Sample2()
Range(Cells(1, "C"), Cells(10000, "C")).Formula = "=row()*3"
Range(Cells(1, "C"), Cells(10000, "C")).Copy
Cells(1, "C").Select
Selection.PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

こんな感じではどうでしょうか？m（_ _）m

回答No.4

kagakusuki

サイトのサーバーが勝手に、VBA名称には使用する事が出来ない文字に変換してしまう様なので、次の様にして下さい。

Sub 質問サイトで教えて貰いました質問番号7861177()

Dim 変数には何を使えばよいのですか As Integer
For 変数には何を使えばよいのですか = 1 To 10000
ActiveSheet.Range("C" & 変数には何を使えばよいのですか).Value = 変数には何を使えばよいのですか * 3
Next 変数には何を使えばよいのですか

End Sub

回答No.3

kagakusuki

Sub 質問サイトで教えて貰いました質問No.7861177()

Dim 変数には何を使えばよいのですか As Integer
For 変数には何を使えばよいのですか = 1 To 10000
ActiveSheet.Range("C" & 変数には何を使えばよいのですか).Value = 変数には何を使えばよいのですか * 3
Next 変数には何を使えばよいのですか

End Sub

回答No.2

FEX2053

発想は

Range("C1").Select
For I=3 To 30000 Step 3
Selection.value=I
Selection.offset(1).select
Next

こんな感じなんじゃ？
これで動くかはチェックしてないですけどね。

回答No.1

chie65536（@chie65535）

課題の丸投げでは、マトモな回答は得られません。

少なくとも「ここまで自力でやってみたけど、どうしても判らない部分がある」など、ある程度は自力でやったと言うのを見せないと、誰も回答しませんよ。

早い話が「一昨日出直して来い」って事です。