|
かみちゃん さん、こんばんは。
>よくわからないので、シートレイアウトを整理してみました。
>
>【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
|
|