エクセルＶＢＡ（値または文字の重複削除）

質問

先日まで何も出来ない状態でしたが、時間が出来たので、
またＶＢＡを触り始めました。

質問はＶＢＡで変数に代入されている値または文字の重複を削除したいのです。

セル範囲を取得し、変数に代入するまではいいのですが、
行列にまたがって範囲選択すると複数のセル位置（数値）が入ってしまいます。

例えば、D8からE9とD12からD13まで選択すると、変数の「セル位置」には「$D$8$E$8$D$9$E$9$D$12$D$13」が代入されますが、
$D$8=$E$8
$D$9=$E$9
数値の部分（内部は文字列ですが）が重なってしまいます。

これを、「$D$8$E$$D$9$E$$D$12$D$13」など数値（文字）のどちらかを削除出来ないものかと悩んでいます。

利用するのは数字の部分だけなので、その処理自体は問題ありません。
IF文でループさせて文字が存在するか見ているだけです。
また、比較自体も必ず偶数行だけですので、最後の「＄」が無くても問題はありません。
For 始まり行 = セル開始行 To 入力行数 Step 2
If InStr(セル位置, "$" & Trim(始まり行) & "$") Then
Exit For
End If
Next

ただ、重複があるとそれも個数に含まれてしまい、計算がおかしくなります。
選択セル範囲の個数取得にはRange.Addressを使っています。
Dim rg As Range 'セル
セル位置 = ""
For Each rg In Selection
セル位置 = セル位置 + rg.Address
Next

縦１列なら大丈夫なのですが、複数列になると問題になります。
列行関係なく選択されたセルの行数が分かればいいだけなんですが・・・

考え方だけでも構いませんので、よろしくお願いします。

回答No.1

kotikoti11 · ベストアンサー

＞縦１列なら大丈夫なのですが、複数列になると問題になります。
＞列行関係なく選択されたセルの行数が分かればいいだけなんですが・・・
　たぶん、「Rows.Count」を使えばできそうだったと思います。
手元にExcelが無いため、参考意見として述べます。
「Selection.Areas」のプロパティだったような記憶があります。
何かのヒントになればと思います、書き込みます。
（Ｗｅｂで検索しましたが、情報をみつけられませんでした。）

■（複数の）選択した範囲の個数の取得
Selection.Areas.Count
※D8からE9の選択なら「１」。
D8からE9とD12からD13まで選択すると「２」のはずです。

■（複数の）選択した範囲の行数の取得。
Selection.Areas(i).Rows.Count

例）D8からE9とD12からD13まで選択したとき
Selection.Areas(1).Rows.Count　が「２」
Selection.Areas(2).Rows.Count　が「２」を返す。

　こんな感じだったと思います。
これらをFORで繰り返して、足し合わせれば、離れた
選択範囲の行数が取得できたと思います。
以下のような感じだと思いますが、かなりあてずっぽうです。

Dim cntRow as Integer '行数のカウント※型名「Integer」は正しいでしょうか？
cntRow = 0

Dim I as Integer
FOR I = 1 To Selection.Areas.Count
　　cntRow = cntRow + Selection.Areas(I).Rows.Count
Next

　詳細はExcelのヘルプにて、「Areas」のメソッドとプロパティを
確認してみてください。
てきとうな回答ですみません・・・

お礼

行数取得出来ました。
仕事が優先なので、途中で止まっていました。

コーディングしている内に、行数だけでは問題がある事が分かりました。
しかし、Areas.Countは参考になりました
ループごとに選択範囲セルの行数が取得出来るのですね。
これは便利です。

ありがとうございました。