（例）
Sub
Range(”B1:B5).Select B1:B5の範囲選択
Selection.Copy コピー
Range(”C1”).elect Ｃ1選択
ActiveSheet.P ste 貼り付け
Range(”D1:D5”).Select D1:D5の範囲選択
Selection.ClearContents 削除
End Sub
以上のプログラムをA?:A??を範囲選択して
マクロを実行させると以下自動的に
① Ｂ?:B??を選択・コピー
② C?選択・貼り付け
③ D?:D??選択・削除
にする方法を教えて下さい。
No.1
157
5
20pt
こんな感じでどうぞ。
Sub MacroNumberOne()
Dim r1, r2, r3, r4 As Range
Set r1 = Selection
Set r2 = r1.Offset(1)
Set r3 = r1.Offset(2)
Set r4 = r1.Offset(3)
r2.Select
r2.Copy
r3.Select
r3.PasteSpecial
r4.ClearContents
End Sub
No.3
190
20pt
http://www.officetanaka.net/excel/vba/tips/tips34.htm
Office TANAKA - Excel VBA(アクティブでないシートのアクティブセル)
Selection.Address という値を使ってうまく作れそうですよ
| 回答者 | 回答 | 受取 | ベストアンサー | 回答時間 | |
|---|---|---|---|---|---|
| 1 |  m-down |
19回 | 13回 | 0回 | 2005-07-26 00:22:10 |
9
9
2
2
1
コメント（0件)