質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

88.82%

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

解決済

回答 3

投稿

  • 評価
  • クリップ 1
  • VIEW 287

Tetsuya3456

score 21

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

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

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

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

+2

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

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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/05/27 19:48

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

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

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

    キャンセル

  • 2019/05/27 19:51

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

    キャンセル

  • 2019/05/27 21:53 編集

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

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

    キャンセル

checkベストアンサー

0

どのような目的でそのようなことをしたいのか分かりませんが、
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

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/07/02 11:00

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

    キャンセル

0

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

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2019/05/27 21:55

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

    キャンセル

  • 2019/05/27 22:10 編集

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

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 88.82%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る