ExcelVBA 選択したセルの取得

質問

こんにちは。ゆきのです。

選択した範囲のセルに対して、Excelのマクロで
１回ずつ処理を行いたいと考えています。

まずセル数を取得したいのですが、
　「selection.cells.count」でセル数を取得すると、
　同じセルが複数回カウントされます。

またセルの範囲を取得したいのですが、
　「selection.address」で範囲を取得すると、
　重複したセルを含んだそれぞれの範囲が取得されます。

例えば、
　(1)
　「$A$1」を「ctl」+「左クリック」で３回選択した状態だと、
　「selection.address」が「$A$1,$A$1,$A$1」となり、
　「selection.cells.count」は「３」となります。

　(2)
　「ctl」+「左クリック」で「A1:B1」「A1:A2」を連続で選択した状態だと、
　「selection.address」が「$A$1:$B$1,$A$1:$A$2」となり、
　「selection.cells.count」は「４」となります。
　（$A$1が２回カウントされます）

この時、同じセルを複数回カウントせずにセル数を
取得することはにできるのでしょうか？
（上の例の場合ですと、(1)が「１」、(2)が「３」と取得したいです。）

また、複数選択で範囲を取得する場合に選択が重複したセルを
除いた状態の範囲を取得することはできるのでしょうか？

処理したセルを記憶させるなどの方法は考えてみたのですが、
別の方法はないかと思い、質問させていただきました。

どなたか、教えて頂けませんか？？
よろしくお願いします。

回答No.1

fujillin · ベストアンサー

VBAはたいして知りませんが…

「そんなバカな」と思って、試してみたらご質問の通りですね。
どうやら、Rangeは矩形の範囲を最低単位として（Areas）構成しているみたいで、同じセルを「ctl」+「左クリック」した場合、その回数だけAreaができていくのでダブってカウントされるようです。
うっかり For Each などで処理をすると、処理の内容によってはご質問のようなことになるみたい。
（どうせ、ＭＳさんの『仕様』なんでしょうけれど…　普通はこんな動作期待しませんよね。）

解決法を2つ考えてみました。

1）自分で重複をチェックして範囲を作り直す　（←ご質問文にすでにありますが）
　一旦、For Eachでハッシュなどにセルを吐き出すことで、重複を除くことができる
　ので、改めて、そのハッシュを元にループ処理を行なう方法。
<処理のイメージ>
　Set d = CreateObject("Scripting.Dictionary")
　For Each c In Selection
　　d(c.Address) = 1
　Next c
　counter = d.count

　key = d.keys
　For i = 0 To counter - 1
　　'　目的の処理
　Next i

2）対象範囲が限定できているのなら、その範囲内で舐めてゆく
　操作の対象があらかじめわかっていればその範囲で、そうでなければUsedRange
　などを利用して、その範囲内のセルについてループを廻す。（For EachでもＯＫ）
　セルが、セレクション内だったら処理、そうでなければスキップ という方法。
<処理のイメージ>
　counter = 0
　For Each c In ActiveSheet.UsedRange
　　If Not (Intersect(c, Selection) Is Nothing) Then
　　　 '　目的の処理
　　　coounter = counter + 1
　　End If
　Next c

2）ではあらかじめセル数を知ることはできませんが、「1回ずつの処理」は可能ですし、ループ時にカウントすればセル数も求められます。
ただし、選択される可能性のある範囲に対して、大きすぎる範囲で走査するようだと効率が悪くなりかねません。
1）は一旦ハッシュに置き換えるので、ご質問文の『記憶させる方法』に該当しますが、多分、効率は良さそう。
2）は記憶はしないものの、範囲を広くしているために場合によっては効率が悪くなる可能性があるといったところでしょうか。

お礼

やはりそうなのですね、覚えておきます。
どうもありがとうございました！