[[20150509145650]]　『結合セルを含む行の抽出』（おっくいん）　ページの最後に飛ぶ

『結合セルを含む行の抽出』（おっくいん）

　　　　Ａ　　　　　　Ｂ
１　　　　　　　　×××
２　△△△　　 ○○○
３　　　　　　　　□□□

１：Ａ１、Ａ２、Ａ３は結合
２：Ｂ列の内容でどれか１つを抽出する。

上記１，２を行うとＡ列の結合が解除されてＡ列の結合表示がうまく出来ず困っています。どなたかお分かりでしたら教えて下さい。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 ２の「抽出する」が何を指しているのかわかりませんが
 VLOOKUPとかの関数ですか？
（稲葉） 2015/05/09(土) 16:16

これですか？
http://officetanaka.net/excel/function/tips/tips64.htm
（マナ） 2015/05/10(日) 14:00

 あー、なるほど。
 私なら結合解除してA列の空白セルを埋めた後、どこかの空きセルに結合セルを作ってそれをコピーし
 A列のグループごとにCtrlを押しながら選択していった後、形式を選択して貼り付けで書式のみ
 貼り付けしますね。

 ...たくさんあったら面倒ですが。
（コナミ） 2015/05/11(月) 10:38

 なるほど、オートフィルタか！
 私もコナミさんのやり方です。
（稲葉） 2015/05/11(月) 11:45

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

ご教授頂きました方法により実行致しました結果、Ａ列にてフィルタをかけた場合は結合解除されずにうまくいくのですが、
Ｂ列の項目どれか１つでフィルタをかけるとＡ列はやはり結合解除され１列のみ表示されてしまいます(>_<)

よい方法はありますでしょうか？
よろしくお願いします。
（おっくいん） 2015/05/13(水) 11:42

 B列のデータを抽出するなら、1行（列ではなく）だけ表示されるのは当たり前では？

 例で言うと□□□を抽出したらそれは1つしかないから1行だけですよね？
 そうでないならもう少し具体的に説明いただけますか？
（コナミ） 2015/05/13(水) 11:52

 いつも私が(仕方なく)やっているのは、結合しないで下２行を白文字にしておくやり方です
 きっと結合してるなら、罫線も入ってますよね?
 セルの背景と同じ色にしておけば、見ためはごちゃごちゃしませんしフィルタもかけられます
  　　 Ａ　　　 　Ｂ 
 １　△△△　　 ××× 
 ２　△△△　　 ○○○ 
 ３　△△△　　 □□□

 ※A2とA3の文字色は背景色と同じにする
（もあ） 2015/05/13(水) 17:33

 私が想像しているのは、例えば□□□を抽出したら、となりのA列は
 結合されているから3行まとめて抽出されると思っているのでは
 ないかと…
 違うのかな。どうなればいいのか最終の希望形を出してもらいたいですね。
（コナミ） 2015/05/13(水) 17:51

説明が下手で申し訳ございません。
例では、Ａ列・Ｂ列しか表示しておりませんが、本来Ｃ列Ｄ列・・・とデータを入れております。

 　　 Ａ　　　 　Ｂ 　　　　Ｃ・・・
 １　　　 　　　×××　　 aaaa　　 
 ２　△△△　　 ○○○     bbbb
 ３　　　　　　 □□□     cccc
 ・
 ・
 ・

上記例での行１２３は、大きく分類された１つのデータであり、そのデータを細分化して表記したものです。
大分類されているデータは以下の行に複数個あるため、
例えば、Ｂ列のある項目の□□□を含む大分類されたデータ全体を表示させたいのです。

そもそも私のフィルタを利用する考え自体が間違っているのでしょうか？
別の方法ならできるよ、とかありましたらご教授頂けますようよろしくお願いいたします。

（おっくいん） 2015/05/13(水) 18:43

 B列の○をフィルタしたときに、
 A列の分類である×と□も同時に表示させたいということでしょうか？

 それは標準機能じゃ無理なんじゃないかなぁ・・・ 
（稲葉） 2015/05/13(水) 18:46

新規シートに結果を抽出するマクロです。

 Sub test()
    Dim dic As Object
    Dim f As Range
    Dim t As Range
    Dim s As String
    Dim c As Range
    Dim r As Range
    Dim k

    On Error Resume Next
    Set f = Application.InputBox("抽出条件セルを選択", Type:=8)
    On Error GoTo 0
    If f Is Nothing Then Exit Sub

    Set t = Range("a1").CurrentRegion
    If Intersect(t, f(1)) Is Nothing Then Exit Sub

    s = f(1).Value

    Set dic = CreateObject("scripting.dictionary")

    For Each c In t.Columns(f.Column).Cells
        If c.Value = s Then
            dic(c.EntireRow.Range("a1").MergeArea.EntireRow) = Empty
        End If
    Next

    If dic.Count > 0 Then
        For Each k In dic.keys
            If r Is Nothing Then
                Set r = k
            Else
                Set r = Union(r, k)
            End If
        Next
        With Sheets.Add
            r.Copy .Range("a1")
        End With
    Else
        MsgBox "抽出されませんでした"
    End If

 End Sub

（マナ） 2015/05/13(水) 23:20

コメント返信：

[ 一覧(最新更新順) ]

[[20150509145650]] 『結合セルを含む行の抽出』（おっくいん） ページの最後に飛ぶ

[[20150509145650]]　『結合セルを含む行の抽出』（おっくいん）　ページの最後に飛ぶ