Excel VBA質問箱 IV

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

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


67893 / 76734 ←次へ | 前へ→

【13391】Re:複数の範囲選択後、特定のセル位置に貼り付ける
発言  YN61  - 04/5/4(火) 9:12 -

引用なし
パスワード
   分かりにくい質問の仕方をしましてご迷惑をかけました。
現在、このようなコードで使っています。
範囲指定のコピーはクリップボードに記録させ
記録したクリップボードを使って、シートの指定したセル位置に
貼り付けています。マクロを使いながら手作業が残っています。
このクリップボードの部分をなくして、自動化したいのですが
何か良い方法はないでしょうか。教えてください。

Sub 選択貼付1()

Dim i As long
Dim 最終行 As long
最終行 = Range("A65536").End(xlUp).Row

For i = 最終行 To 3 Step -1

If Cells(i, 1) <> "" Then

Application.CommandBars("Clipboard").Visible = True

Cells(i, 1).Select
Selection.Offset(, 2).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy

Application.CutCopyMode = False
End If
Next
Range("A1").Select

End Sub

実際には、範囲指定してコピーする件数は7件くらいです。
ですから、すべてRange(”B2:E5”)などのように範囲指定し
それをコピーして、指定のセルにペイストすればよいのですが、
範囲指定の位置が変わるときがありますので、上のようなコードを
書いていますが、範囲指定を記録させ、指定のセルに貼り付ける
(これはフォームがあり、貼り付けるセル位置は変動しません)
汎用的なコードを教えていただきたくお願いします。

分かりにくい表現ですが、お許しください。
1 hits

【13360】複数の範囲選択後、特定のセル位置に貼り付ける YN61 04/5/3(月) 10:55 質問
【13383】Re:複数の範囲選択後、特定のセル位置に貼... Asaki 04/5/3(月) 22:34 発言
【13391】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 9:12 発言
【13409】Re:複数の範囲選択後、特定のセル位置に貼... よろずや 04/5/4(火) 17:21 発言
【13412】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 18:00 発言
【13416】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/4(火) 18:23 発言
【13454】Re:複数の範囲選択後、特定のセル位置に貼... よろずや 04/5/5(水) 23:14 発言
【13461】Re:複数の範囲選択後、特定のセル位置に貼... YN61 04/5/6(木) 8:04 お礼

67893 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free