| |
分かりにくい質問の仕方をしましてご迷惑をかけました。
現在、このようなコードで使っています。
範囲指定のコピーはクリップボードに記録させ
記録したクリップボードを使って、シートの指定したセル位置に
貼り付けています。マクロを使いながら手作業が残っています。
このクリップボードの部分をなくして、自動化したいのですが
何か良い方法はないでしょうか。教えてください。
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
実際には、範囲指定してコピーする件数は７件くらいです。
ですから、すべてRange（”B2：E5”）などのように範囲指定し
それをコピーして、指定のセルにペイストすればよいのですが、
範囲指定の位置が変わるときがありますので、上のようなコードを
書いていますが、範囲指定を記録させ、指定のセルに貼り付ける
（これはフォームがあり、貼り付けるセル位置は変動しません）
汎用的なコードを教えていただきたくお願いします。
分かりにくい表現ですが、お許しください。
|
|
YN61
- 04/5/4(火) 9:12 -
