Excelでの結合セルの検索

質問

エクセルファイルで作成された表のうち、結合されたセルを探す機能というのはあるのでしょうか。
ソートをかけたいのですが、どこかに結合セルがあるらしくエラーになってしまいます。
量がかなりある表のため、ひとつひとつ探して行く手間をかけるのは無理なのです…
どなたかお判りになる方、よろしくお願い致します。

回答No.4

imogasi · ベストアンサー

＃１です。
http://www.officetanaka.net/excel/vba/tips/tips50.htm
を見て改良しました。同じ結合セル部分で、Ｍｓｇｂｏｘがセル数だけ何度も出るのを防ぎました。
Sub Sample4()
Dim buf As String
Dim mc(1000)
n = 1
For Each cl In Selection
If cl.MergeCells = True Then
With cl.MergeArea
For i = 1 To n
If mc(i) = .Item(1).Address(0, 0) Then GoTo p1
Next i
buf = buf & .Rows.Count & "行" & vbCrLf
buf = buf & .Columns.Count & "列" & vbCrLf
buf = buf & .Count & "個" & vbCrLf
buf = buf & .Item(1).Address(0, 0) & ":左上" & vbCrLf
buf = buf & .Item(.Count).Address(0, 0) & ":右下"
MsgBox buf
buf = ""
'-----
n = n + 1
mc(n) = .Item(1).Address(0, 0)
End With
p1:
End If

Next

End Sub

お礼

大変丁寧な回答をありがとうございます。
幸い、こちらの回答をいただく前にNo.1で教えていただいた方法で解決することが出来ましたので、こちらは今後の参考にさせていただきます。
本当にありがとうございました。

回答No.3

metalic

１）色づけ
１列（行）を選択
セル書式でセルに色をつけます。
複数列にまたがる結合セルには色がつかずに残ります。

２）全部解除してしまう
表全体を選択し、セル結合を解除してしまう。
書式→セル→配置→セルを結合のチェックをはずず

いずれも、全ての場合にうまくいくかなどはわかりませんが、お試しください。

お礼

ご回答ありがとうございます。
しかし、20列×10000行ほどもセル数があり、どうも上下のセルを結合している状態であるため、1行ずつの確認もほぼ無理です。
また、どういった形で結合されているかわからないため、無条件に解除してしまうと必要なデータが消去される恐れがあり、状態の確認・対応後でないと解除はできませんでした。

回答No.2

question01

結合されたセルを見つける方法は分かりませんが、該当する列（もしくはシート全体）を選択して、「セルの分割」ボタンをクリックすれば、結合を解除できます。
画面の範囲内であれば、表示も変わるので結合されたセルを特定できるかも知れません。

お礼

ご回答ありがとうございます。
しかし、どういった形で結合されているかわからないため、無条件に解除してしまうと必要なデータが消去される恐れがあり、この方法は取れませんでした。

回答No.1

imogasi

見つけるだけなら、それらしきセル範囲を大きめにとって
Sub test01()
Dim cl As Range
For Each cl In Selection
If cl.MergeCells = True Then
MsgBox cl.Address
End If
Next
End Sub
を実行すれば出てきます。
横流れのチェックで、判りにくいですが、良ければ。

お礼

こちらのコードを使って見つけることが出来ました！
大変助かりました、ありがとうございました。