vbaでrange変数の中に入れたセルを一つ削除したい

Question

こんにちは。
vbaで、いくつかセルを格納したrange変数の中から特定のセルだけ削除する方法はありますでしょうか。

あるrange変数の中に特定のセルを入れる場合は
unionメソッドでできるのですが、その逆はどのようにすれば良いか困っています。

foeach文でrange変数を回して、特定のセル以外を別のrange変数に入れ直す方法は思いついたのですが、それ以外で何か方法はありますでしょうか。

Answer 1

ご存知のように今までのExcelでは、シートで範囲選択中に選択済みのセルを取り消すことはできませんでした。
それと同じで取り消す機能のメソッドは用意されていないものと思われます。

しかしExcel2019から待望の取り消す機能が搭載されました。
選択を解除する
従って新しいメソッドが追加されたのではないかと調べてみましたが発見することはできませんでした。
手元にExcel2019がないので試すことが出来ないのですが、もしかしたらマクロの記録を使えば何かわかるかもしれません。
もちろんExcel2019でですが。。。

Comments

[hatena19]

Excel2019で、マクロの記録を使って試してみました。
まず、A1 から Ｃ5 まで選択してから、Ctrlをおしながら Ｂ3 をクリックして選択を解除します。
ここで記録終了してできたマクロをみると、
Sub Macro1()
'
' Macro1 Macro
'

'
Range("A4:C5,C3,A3,A1:C2").Select
Range("A1").Activate
End Sub

選択の解除はマクロでは無理なようです。

[ttyp03]

実験ありがとうございます。
MSのマニュアルにもそれっぽいメソッドは掲載されていなかったので、やはりマクロでは無理っぽいですね。
何か隠された機能でも出てくるかと期待したんですけどね(^^;

[Tetsuya3456]

ご回答頂きありがとうございます。
また、試して頂きありがとうございますm(_ _)m

該当するメソッドはあっても良さそうですが、ないんですね、、。

Answer 2

どのような目的でそのようなことをしたいのか分かりませんが、
TanakaHiroakiさんの回答のようなことがしたいのなら、
発想を変えて、

1. 除外したいセルの背景色を変数に保存しておいて、
2. range全体に背景色を設定して、
3. 除外したいセルの背景色を変数を使用してもとに戻す

というようにした方がシンプルだし高速だと思います。

Sub fugafuga()
    Dim r1 As Range, r2 As Range
    Dim cId As Integer
    
    Set r1 = Range("A1:C3")
    Set r2 = Range("B2:B3")
    cId = r2.Interior.ColorIndex
    
    r1.Interior.ColorIndex = 6
    r2.Interior.ColorIndex = cId
End Sub

Comments

[Tetsuya3456]

返信が遅れて申し訳ありません。
こちらの回答で解決いたしました。ありがとうございました。

Answer 3

質問者の以下を見落としておりました。すみません。

foeach文でrange変数を回して、特定のセル以外を別のrange変数に入れ直す方法は思いついたのですが、それ以外で何か方法はありますでしょうか。

かなり遠回りですが、Intersect関数とUnion関数を
使った抽出方法を考えてみました。

例えば、Range("A1:C3")とRange("B2:B3")が重ならない
範囲の抽出は以下のようになります。

Sub hogehoge()
    Dim r1 As Range, r2 As Range
    For Each r1 In Range("A1:C3")
        If Intersect(r1, Range("B2:B3")) Is Nothing Then
            If r2 Is Nothing Then
                Set r2 = r1
            Else
                Set r2 = Union(r2, r1)
            End If
        End If
    Next r1
    r2.Interior.ColorIndex = 6 '結果をアウトプット
End Sub

Comments

[Tetsuya3456]

ご回答頂きありがとうございます。
こちらの方法で明日早速試して、処理スピード等どうか確認してみます！

[TanakaHiroaki]

Excelはアクティブシートが変わると、処理時間が変わる場合があるとの報告がありましたので、余裕があれば、当該シート以外をActivateにし、その場合に動作するコードで処理速度がどうなるのかも試してみてください。
（参考サイト）
https://z1000s.hatenablog.com/entry/2019/05/04/231311