[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『結合したセルのフィルター方法』(ぽっぽ)
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: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.