Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46593 / 76736

←次へ　｜　前へ→


	【35113】Re:16行おきにコピーするには

Kein - 06/2/21(火) 16:58 -


	引用なし

	パスワード

8193行までの入力をテストしてみると、途中で5桁の数値になるので、その場合は
どうしたいのか分かりませんが、いちおう以下のようなコードでできましたが。

Sub My_Series_Num()
　 Dim i As Long, x As Long
　
　 Range("A1:A8193").NumberFormat = "0000"
　 Range("A1").Value = 0
　 With Range("A2")
　　　.Value = 1
　　　.AutoFill .Resize(16), xlLinearTrend
　 End With
　 x = 100
　 For i = 18 To 8193 Step 17
　　　With Cells(i, 1)
　　　　 .Value = x
　　　　 .AutoFill .Resize(17), xlLinearTrend
　　　End With
　　　x = x + 100
　 Next i
End Sub

0 hits

▼

【35110】16行おきにコピーするには こちかめ 06/2/21(火) 16:33