条件分岐マクロの作り方？

質問

あ　い　う
え　お　か
き　く　け

…こういったデータがあります。

「あ」のセルが選択しておいて、
ボタンを押すと、処理が始まるマクロを組みました。

・まず、選択範囲を、「あ～う」に広げる　（２行右まで選択）
・選択範囲（あ～う）をコピーして、
・別のシートにはりつける

・・・という処理です。

今、「複数の選択範囲を同時に処理」できないものかと考えています。
たとえば、

１．《一つのセルが選択されている》場合は、従来通りのマクロ処理

２．《あ～けまで、９つのセルを選択してあるならば》、この範囲をまるごとコピーペーストする。

・・・IF　ELSEなどを使用するのかと思うのですが、その組み方がわかりません。

アドバイスを、お願いします。

回答No.1

tom04 · ベストアンサー

こんばんは！

＞・別のシートにはりつける
の部分で別のSheetのどのセルに貼り付けるのか不明ですので、
仮に　Sheet2のA1セルに貼り付ける場合のコードです。

Sub Sample1()
Dim myRng As Range
If Selection.Count = 1 Then
Set myRng = Selection.Resize(, 3)
Else
Set myRng = Selection
End If
myRng.Copy Worksheets("Sheet2").Range("A1")
End Sub

こんな感じではどうでしょうか？m(_ _)m

お礼

やりたいと思っていたことができました。

ご回答、どうもありがとうございました！