Excel VBA質問箱 IV

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

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


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

23648 / 76738

←次へ　｜　前へ→


	【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

3 hits

▼

【58431】For文で集計貼付 初心者 08/10/26(日) 6:36