[[20160825185701]]　『変数と繰り返し』（こなつ）　ページの最後に飛ぶ

『変数と繰り返し』（こなつ）

　前回は大変お世話になりましてありがとうございます。

今日もよろしくお願いします。

あるシートの飛び飛びの列をコピーして

別なシートのA列、B、Cと順番に貼り付けたいのですが

思い通りに動いてくれません。

初心者には難しいので一旦マクロ記録をしてから

あれこれ調べては付けたしています。

何がいけないのか、またどうしたら良いのか

教えて頂けないでしょうか。

Sub 実験()

　　　Dim i As Integer,j As Integer

       For i = 7 To 60

       Select Case i

       Case 7,8,13,14,19,21,26,51,55,56,58,59

          For j = 1 To 12

             With Windows("取り込み.xlsm")

              Windows("実験.csv").Activate

               Cells(1,i).Select

                Range(Selection,Selection.End(xlDown)).Select

                Selection Copy

              .Activate

                Cells(1,j).Select

                Selection.PasteSpecial あれやこれや　:=False

             End with

         End Select

       Next i

      Next j

End Sub

長くてすいませんがよろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：unknown ＞

＞For j = 1 To 12

ではなく、

j=j+1

でしょうか。

（マナ） 2016/08/25(木) 20:02

マナさんありがとうございます。

明日朝一番にやってみて動きの結果をご連絡します❗
（こなつ） 2016/08/25(木) 21:07

できました❗ありがとうございます。大変助かりました。
（こなつ） 2016/08/26(金) 11:48

コメント返信：