Excel VBA質問箱 IV

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

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


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

4230 / 76807

←次へ　｜　前へ→


	【78203】Re:このマクロを1つにまとめたいんですが

β - 16/5/25(水) 17:59 -


	引用なし

	パスワード

▼［名前なし］さん：

エラーそのものは、たとえばシート上で複数セル領域をいくつか選択して
Ctrl/c とやると、エクセルから叱られますね。
これは仕様です。

それより、むりやり１つのロジックにまとめる必要はさらされないのでは？
たかだか３つのブロックのコピペですから。
ただ、コードの記述を少しすっきりさせたほうがいいですね。

以下は、貼り付け行数、領域によっては、下のほうの空白行部分もコピペされる
『手抜き』ですが
空白のところが空白になるだけなので。

それより現行のコード、

　　Range("A2:K2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.copy

たとえば A列以外でA列の行数より大きな行までデータがある部分があれば
その部分は貼り付け対象から漏れるということはお気づきですか？

Sub Sample()
　　Dim mx As Long
　　With Sheets("Sheet2")
　　　　mx = .UsedRange.Cells(.UsedRange.Cells.Count).Row
　　　　.Range("A2:K2").Resize(mx - 1).Copy Sheets("Sheet1").Range("B2")
　　　　.Range("O2:W2").Resize(mx - 1).Copy Sheets("Sheet1").Range("M2")
　　　　.Range("L2:N2").Resize(mx - 1).Copy Sheets("Sheet1").Range("V2")
　　End With
End Sub

0 hits

▼

【78202】このマクロを1つにまとめたいんですが ［名前なし］ 16/5/25(水) 17:05