[[20220629094106]] 『結合したセルのフィルター方法』(ぽっぽ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『結合したセルのフィルター方法』(ぽっぽ)

  A     B     C     D
1 りんご   佐藤         木村
2 ↑     10           8
3 みかん         木村
4 ↑            5
5 ぶどう   川村
6 ↑     2

上記のようなデータがあり、A列は上下のセルを結合(A1+A2,A3+A4・・・)しております。

この様な時に、Aにフィルターを掛けた時

  A     B     C     D
1 りんご   佐藤         木村
2 ↑     10           8

と表示したいのですが、

  A     B     C     D
1 りんご   佐藤         木村

と表示してしまいます。

設定とかありましたら教えてください。

< 使用 Excel:Office365、使用 OS:Windows10 >


普通は、結合セル使わないです。
何も知らない人が後先考えずによくつかいます。
(辛子) 2022/06/29(水) 10:09

「結合セル フィルタ」で検索するといくつか出てきますが
(特定サイトを推すものではないのでご自身でお好きなサイトをご覧ください)
欄外に結合セルでないリストを作成しそこから結合セルへ数式コピーするという裏技があります。
図示されたものを見る方がわかりやすいと思いますので、詳しく述べることは控えます。
(作業員) 2022/06/29(水) 10:13

 結合する前に下のセルにも値を入れて置き、別の場所でセル結合をしてそのセルをコピー、その後対象セルで
 書式の貼り付けを行うという方法も。
(ねむねむ) 2022/06/29(水) 10:17

 セル結合はせずに各行に値を入力。
 下の行は書式設定あるいは条件付き書式で表示させないという方法も。
(ねむねむ) 2022/06/29(水) 10:19

 Sub Sample()
    Dim rng As Range
    Dim r As Range
    Dim iRow As Long
    Dim buf As Boolean

    Set rng = Selection.Resize(, 1)
    With ThisWorkbook.Worksheets.Add
        With .Cells(1, 1).Resize(rng.Rows.Count)
            .Value = rng.Value
            .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End With
        For Each r In .UsedRange
            iRow = Application.Match(r.Value, rng, 0)
            If iRow > 0 Then
                r.Copy
                rng(iRow).MergeArea.PasteSpecial Paste:=xlPasteFormulas
            End If
        Next
        Application.CutCopyMode = False
        buf = Application.DisplayAlerts
        Application.DisplayAlerts = False
        .Delete
        Application.DisplayAlerts = buf
    End With
 End Sub

蛇足というかなんというか。
選択中のセルで上記のことを実現するマクロです。
エラー回避等は実装していません。
(作業員) 2022/06/29(水) 11:40


皆様
コメントありがとうございます。

辛子さんのコメントの様に普通はやらないようですので、
ねむねむさんの二つ目の方法でやってみました。

ありがとうございました。
(ぽっぽ) 2022/06/29(水) 13:03


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.