中小企業の働き方改革をサポート>>

あ い う
え お か
き く け

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

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

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

・・・という処理です。

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

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

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


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

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんばんは!



>・別のシートにはりつける
の部分で別の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
    • good
    • 0
この回答へのお礼

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

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

お礼日時:2014/10/19 02:24

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング