Excel VBA質問箱 IV

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

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


8099 / 13644 ツリー ←次へ | 前へ→

【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行ごとに100づつ増えてコピーとはどう言う事ですか?
1回目は1行目から16行目までコピー
2回目は17行目から32行目までコピー
3回目は33行目から48行目までコピー
以下続く。
ではないのですか?

【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行ごとに100づつ増えてコピーとはどう言う事ですか?
>1回目は1行目から16行目までコピー
>2回目は17行目から32行目までコピー
>3回目は33行目から48行目までコピー
>以下続く。
>ではないのですか?

はい、コピーする行間隔はその通りです。
ただコピーする数値が
下2桁は00〜15までの固定で
3桁目からは 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さん、ありがとうございます。
いろんなやり方があるのですね、早速試してみます!

8099 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free