Excel VBA質問箱 IV

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

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


23642 / 76732 ←次へ | 前へ→

【58453】Re:For文で集計貼付
質問  初心者  - 08/10/26(日) 19:56 -

引用なし
パスワード
   かみちゃん さん、こんばんは。
>よくわからないので、シートレイアウトを整理してみました。
>
>【Sheet1】
>  A   B  C  D  E  F  G  H  I  J  K  L  M  N
>1
>2
>3 あああ       15       27       39
>4 いいい       20       36       52
>5
>
>というシートで、実行すると、以下のように出力されればいいのですよね?
はい。そうです。
>
>【Sheet2】
>  A  B  C  D  E  F  G  H  I  J  K  L
>1
>2
>3             15   27   39
>4             20   36   52
>5
>
>私が[58448]で提示した
>Sub Sample()
>で処理できませんでしたか?
>
すいません。処理できておりました。大変助かります。

まだ、for文の中身が理解できていないので処理内容について、教えてください!

たとえば、以下のように1個飛ばしだと、Step 4を単純にStep 2にしてもダメでした?よろしくお願いします。

・抜粋
 For j = 5 To 75 Step 4
    '貼り付けをG列・I列・K列と処理する
    Sheets("Sheet1").Cells(i, j).Copy Sheets("Sheet2").Cells(i, j + 2 + Int((j - 5) / -4) * 2)
   Next


【Sheet1】
  A   B  C  D  E  F  G  H  I  J  K  L  M  N
1
2
3 あああ       15 10 1  13 27 19 1  11 39
4 いいい       20 22 2  45 36  0 3  41 47   
5

というシートで、実行すると、以下のように出力されればいいのですよね?

【Sheet2】
  A  B  C  D  E  F  G  H  I  J  K  L  M
1
2
3             15   1    27    1
4             20   2    36    3
5

2 hits

【58431】For文で集計貼付 初心者 08/10/26(日) 6:36 質問
【58432】Re:For文で集計貼付 かみちゃん 08/10/26(日) 8:00 発言
【58434】Re:For文で集計貼付 初心者 08/10/26(日) 10:26 質問
【58435】Re:For文で集計貼付 かみちゃん 08/10/26(日) 10:33 発言
【58443】Re:For文で集計貼付 初心者 08/10/26(日) 13:59 質問
【58444】Re:For文で集計貼付 かみちゃん 08/10/26(日) 14:09 発言
【58445】Re:For文で集計貼付 初心者 08/10/26(日) 14:36 質問
【58448】Re:For文で集計貼付 かみちゃん 08/10/26(日) 16:04 発言
【58451】Re:For文で集計貼付 初心者 08/10/26(日) 18:51 質問
【58452】Re:For文で集計貼付 かみちゃん 08/10/26(日) 19:13 発言
【58453】Re:For文で集計貼付 初心者 08/10/26(日) 19:56 質問
【58454】Re:For文で集計貼付 かみちゃん 08/10/26(日) 20:32 発言
【58455】Re:For文で集計貼付 初心者 08/10/26(日) 21:58 お礼

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