指定した文字列に該当する行を重複しないようにリストを作成する方法についてです。
データ一覧であり、そこから指定した文字列(セル値)に対応する行のリストを重複しないように作成したいと考えております。
例
A あいう社 米
B えお社 パン
A あいう社 パン
B あいう社 米
という、データ一覧があったとして、他のセルに「あいう社」と入力すると「A」「B」の値に関係なく「米」と「パン」のみをリストにしたいと考えております。
関数式でもマクロでも良いので方法があればご教示お願い致します。
説明がわかりにくく申し訳ございませんが、よろしくお願い致します。
No.3
- 回答日時:
こんにちは
VBA・・・条件が色々あるので、配置が換わると修正が判り難いかも
添付図の配置でG列ブロックがキーで・・・
H列キーの下に出力する形ですと
Sub test()
Dim record_list As New Collection
Dim r As Range, rr As Range
Dim rKey As Range, vKey As Range, rEnd As Range
Dim n As Long
For Each r In Range(Cells(2, 8), Cells(Rows.Count, 8).End(xlUp))
If r <> "" Then
If rKey Is Nothing Then
Set rKey = r
Else
Set rKey = Union(rKey, r)
End If
End If
Next
Set r = Nothing
For Each r In rKey
If r.Offset(1, -1).End(xlDown).Row = Rows.Count Then
Set rEnd = r.Offset(1, -1)
Else
Set rEnd = r.Offset(1, -1).End(xlDown)
End If
Set vKey = Range(r.Offset(1, -1), rEnd)
n = 0
For Each rr In Range(Cells(3, "D"), Cells(9, "D"))
On Error Resume Next
If r = rr Then
If WorksheetFunction.CountIf(vKey, rr.Offset(, 1)) > 0 Then
record_list.Add rr.Offset(, 1), CStr(rr.Offset(, 1))
If Err.Number = 0 Then
n = n + 1
r.Offset(n) = rr.Offset(, 1)
End If
End If
End If
On Error GoTo 0
Next
Next
End Sub
そもそもご質問の解釈を間違っていたら、忘れてください。
No.1
- 回答日時:
クエリでやればいいでしょう。
let
ソース = Excel.CurrentWorkbook(){[Name="テーブル1"]}[Content],
行のグループ化 = Table.Group(ソース, {"項目2"}, {"グループ", each _}),
項目3列の追加 = Table.AddColumn(行のグループ化, "項目3", each {null} & List.Distinct([グループ][項目3])),
項目3列を展開 = Table.ExpandListColumn(項目3列の追加, "項目3"),
項目4列を追加 = Table.AddColumn(項目3列を展開, "項目4", each if [項目3] = null then [項目2] else null),
他の列を削除 = Table.SelectColumns(項目4列を追加,{"項目3", "項目4"})
in
他の列を削除
テーブルの項目行の表示チェックを外す
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/06/15 14:11
- Excel(エクセル) エクセルの条件付き書式で*を使いたい 4 2022/05/13 16:49
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
10数年前の古米って食べられま...
-
今から5、6年前のお米って食べ...
-
大量の米の処分方法について
-
炊飯器から変な音がします
-
米のとぎ汁が薄黒いのですが
-
2日前にお米といで炊くの忘れて...
-
ゴキブリに侵入されたお米
-
2.5合お米を炊く分量
-
白米1/2合とは
-
「無洗米と普通米は一緒にたい...
-
【米】神明のお米を買って水洗...
-
1合って何グラム?
-
お米10kgはご飯(200g)何杯分?
-
ねずみに袋を破られたお米って...
-
米一合(炊き上がり)の重さ
-
生米を食べるという事について
-
2年前のお米は食べれますか? ...
-
精米所で白米から無洗米にでき...
-
アメリカのおコメは安全ですか?
-
米のA銘柄?B銘柄?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
10数年前の古米って食べられま...
-
1合って何グラム?
-
今から5、6年前のお米って食べ...
-
2日前にお米といで炊くの忘れて...
-
大量の米の処分方法について
-
2.5合お米を炊く分量
-
炊飯器から変な音がします
-
炊いたごはんがすっぱいのです...
-
お米10kgはご飯(200g)何杯分?
-
ねずみに袋を破られたお米って...
-
生米を食べるという事について
-
米一合(炊き上がり)の重さ
-
米のとぎ汁が薄黒いのですが
-
ゴキブリに侵入されたお米
-
米を水につけたアトって・・・...
-
上白米と無洗米の違い
-
お米10キロって何升ですか?
-
「無洗米と普通米は一緒にたい...
-
急募です! 炊いていないお米の...
-
床にこぼしたお米は食べられま...
おすすめ情報