[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『変数と繰り返し』(こなつ)
前回は大変お世話になりましてありがとうございます。
今日もよろしくお願いします。
あるシートの飛び飛びの列をコピーして
別なシートの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 >
ではなく、
j=j+1
でしょうか。
(マナ) 2016/08/25(木) 20:02
明日朝一番にやってみて動きの結果をご連絡します❗
(こなつ) 2016/08/25(木) 21:07
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.