エクセルの絞り込み

質問

エクセルを使い、特定の値を絞り込む際、セルが結合していると最上部の列しか絞り込めないので困っています。
結合はデータベースからエクセルに落とした時に自動でなってしまうので、こちらを修正できず、一度絞り込みを解除してから一つ一つ手作業で修正しています。
マクロを組むにもうまくいかず、困っています。

回答No.2

SI299792

多分、結合を外すと結合のほかのセルが空白になり、絞り込みの対象外になるという話だと思います。１つのアイディアですが、以下のようなプログラムで、結合セルにすべて同じ値を入れるというのはどうでしょうか。あなたのワークブックと絞り込みを見ていないので、これでできるかどうかは判りませんが。
'
Option Explicit
'
Sub Macro1()
'
　　Dim Cell As Range
'
　　For Each Cell In ActiveSheet.UsedRange
'
　　　　If Cell.MergeCells Then
　　　　　　Set Cell = Cell.MergeArea
　　　　　　Cell.MergeCells = False
　　　　　　Cell = Cell(1)
　　　　End If
　　Next Cell
End Sub

お礼

ご回答ありがとうございます。

回答No.1

imogasi

補足のこと。
データのあり様の例や、結合箇所や、やりたいことをもう少し具体的に書かないと、質問に答えられない。
質問文の読者は、あなたのエクセルの画面を見ているわけじゃなし。
ＯＫＷＡＶＥでも、自分中心の質問者が多いので困る。
ーー
またいいが不明の表現がありわかりにくい。
例＞結合はデータベースからエクセルに落とした時に自動でなってしまう
＞最上部の列
行の場合に使う表現では。
ーー
＞特定の値を絞り込む際
フィルタのようなことをしたいのか。
ーー
セルの結合は、（見た目はすっきりするが）データとしてシートを使うときは、有害な場合が多い。
ＶＢＡでセル結合を探知し、結合をなくし、データを補うとかして、修正データシートを作る覚悟が要るのでは？

お礼

私の質問内容に情報が足りず、「質問に答えられない」ということでしたら答えて頂かなくても結構なのですが…
自己中心的な質問者も多いと思いますが、自己中心的な回答者も多いと思います

お忙しい中お手数おかけしました。