Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8101 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【35110】16行おきにコピーするには こちかめ 06/2/21(火) 16:33 質問[未読]
【35111】Re:16行おきにコピーするには Statis 06/2/21(火) 16:43 発言[未読]
【35115】Re:16行おきにコピーするには こちかめ 06/2/21(火) 17:44 発言[未読]
【35130】Re:16行おきにコピーするには Statis 06/2/22(水) 9:26 回答[未読]
【35145】Re:16行おきにコピーするには こちかめ 06/2/22(水) 12:21 お礼[未読]
【35112】Re:16行おきにコピーするには ちくたく 06/2/21(火) 16:44 回答[未読]
【35113】Re:16行おきにコピーするには Kein 06/2/21(火) 16:58 回答[未読]
【35114】Re:16行おきにコピーするには こちかめ 06/2/21(火) 17:24 お礼[未読]
【35110】16行おきにコピーするには
質問  こちかめ  - 06/2/21(火) 16:33 -
引用なし
パスワード
   こんにちは、質問させてください。

A1セルから順番に
0000
0001
0002
0003
0004
0005
.
.
.
0015
と入っています。

次の17行目には
0100
0101
0102
.
.
.
0115
と、16行ごとに100づつ増えてコピーを8193行まで繰り返して行いたいのですが
どうしたらよいでしょうか？

For〜nextかと思って試してみたのですが、うまくいきませんでした・・・
よろしくお願いいたします。
【35111】Re:16行おきにコピーするには
発言  Statis  - 06/2/21(火) 16:43 -
引用なし
パスワード
   こんにちは

>16行ごとに100づつ増えてコピーを8193行まで繰り返して行いたいのですが

16行ごとに１００づつ増えてコピーとはどう言う事ですか？
１回目は１行目から１６行目までコピー
２回目は１７行目から３２行目までコピー
３回目は３３行目から４８行目までコピー
以下続く。
ではないのですか？
【35112】Re:16行おきにコピーするには
回答  ちくたく WEB  - 06/2/21(火) 16:44 -
引用なし
パスワード
   こちかめ さん
こんにちは。
いろんなやりかたありますけど、

変数 = 0

For i=1 to FINISH
　　 For j=0 to 15
　　　　 A1 = 変数 + j
　　 next j
　　 変数 = 変数　+ 100
For i

みたいな感じで。
【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
【35114】Re:16行おきにコピーするには
お礼  こちかめ  - 06/2/21(火) 17:24 -
引用なし
パスワード
   短時間にたくさんの回答をありがとうございます。

さっそく試してみます！
【35115】Re:16行おきにコピーするには
発言  こちかめ  - 06/2/21(火) 17:44 -
引用なし
パスワード
   Statisさん、こんにちは。

>16行ごとに１００づつ増えてコピーとはどう言う事ですか？
>１回目は１行目から１６行目までコピー
>２回目は１７行目から３２行目までコピー
>３回目は３３行目から４８行目までコピー
>以下続く。
>ではないのですか？

はい、コピーする行間隔はその通りです。
ただコピーする数値が
下２桁は00〜15までの固定で
３桁目からは　01→02→03→04と増えていくように
コピーしたかったのです。

説明がわかりづらくてすみませんでした。
【35130】Re:16行おきにコピーするには
回答  Statis  - 06/2/22(水) 9:26 -
引用なし
パスワード
   こんにちは

これで如何でしょうか？

Sub test()
Dim i As Long, Co As Double
Co = 0
Range("A1:A8193").NumberFormat = "0000"
For i = 1 To 8193 Step 16
　　Cells(i, 1).Value = Co
　　Cells(i, 1).AutoFill Destination:=Cells(i, 1).Resize(16), Type:=xlLinearTrend
　　Co = Co + 100
Next i
End Sub
【35145】Re:16行おきにコピーするには
お礼  こちかめ  - 06/2/22(水) 12:21 -
引用なし
パスワード
   Statisさん、ありがとうございます。
いろんなやり方があるのですね、早速試してみます！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8101 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free