Excel VBA質問箱 IV

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

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


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

2590 / 76734

←次へ　｜　前へ→


	【79786】Re:VBA初心者です。ブック間の列コピーを繰り返す方法について

マナ - 18/4/12(木) 20:10 -


	引用なし

	パスワード

▼atori さん：

>wb.Close
↓
wb.Close False

としたほうがよいです。
・保存しないことがわかりやすい
・保存するかそうかの確認メッセージが出ない
からです。

----

そうすると

Set wb = Workbooks.Open("C:\Users\user\Desktop\Sample\1.xlsx")
Set ws = wb.Worksheets("Sheet1")
ws.Columns(2).Copy
wsx.Columns(2).PasteSpecial Paste:=xlValues
wb.Close False

この５行が１つのブックについての処理になります。
よくみると、変数wsは１回しか使っていない。
ならば。変数は使わなくてもよいかもしれません。

Set wb = Workbooks.Open("C:\Users\user\Desktop\Sample\1.xlsx")
wb.Worksheets("Sheet1").Columns(2).Copy
wsx.Columns(2).PasteSpecial Paste:=xlValues
wb.Close False

こんな感じです。
これを４回繰り返せばよいことがわかりますよね。
繰り返しの中で、変化させる部分は２箇所

1.xlsx、wsx.Columns(2)
↓
2.xlsx、wsx.Columns(3)
↓
3.xlsx、wsx.Columns(4)
↓
4.xlsx、wsx.Columns(5)

規則性はわかると思います。
これを

For k=1 to 4
　処理
Next

のように繰り返し構文で記述してみてください。
で、動作確認してみてください。
これをベースに完成形に近づけていくことになると思います。

9 hits

▼

【79775】VBA初心者です。ブック間の列コピーを繰り返す方法について atori 18/4/10(火) 15:08