vlookupを使用した場合(Excel2010)、検索値が複数あると、検索範囲で一番上にあるデータのみ反映されると思いますが、すべての検索結果(データ)を、1つのセルに纏めて表示させる方法を教えてください。
よろしくお願いいたします。
<データシート>
111 ○○商社
222 □□商社
333 △△商社
111 ●●物産
<検索結果>
111 ○○商社
●●物産 ※○○商社と●●物産は、同じセル内で改行させて表示させたいです)
222 □□商社
333 △△商社
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは!
手っ取り早くVBAでの一例です。
元データはSheet1にあり、Sheet2に表示するとします。
↓の画像のように1行目は項目行になっているという前提です。
Sub Sample1()
Dim i As Long, c As Range, wS As Worksheet
Set wS = Worksheets("Sheet1")
With Worksheets("Sheet2")
.Cells.Clear
.Range("B:B").ColumnWidth = 48
wS.Range("A:A").AdvancedFilter Action:=xlFilterCopy, copytorange:=.Range("A1"), unique:=True
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
Set c = .Range("A:A").Find(what:=wS.Cells(i, "A"), LookIn:=xlValues, lookat:=xlWhole)
With c.Offset(, 1)
If .Value = "" Then
.Value = wS.Cells(i, "B")
Else
.Value = .Value & vbCrLf & wS.Cells(i, "B")
End If
End With
Next i
wS.Range("B1").Copy .Range("B1")
.Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
.Columns.AutoFit
End With
End Sub
こんな感じではどうでしょうか?m(_ _)m
No.2
- 回答日時:
Function VLOOKUPM(s, rg As Range, n As Long) As String
Dim cl As Range
For Each cl In rg.Columns(1).Cells
If cl = s Then VLOOKUPM = VLOOKUPM + cl.Offset(0, n - 1).Text + Chr(10)
Next
If VLOOKUPM > "" Then VLOOKUPM = Left(VLOOKUPM, Len(VLOOKUPM) - 1)
End Function
でセルには
=VLOOKUPm(111,A1:B4,2)
とするんですが、先に
折り返して表示の書式設定が必要です。
ユーザー関数は値のやり取りは出来ますが
EXCEL操作は出来ないので悪しからず。
No.3
- 回答日時:
検索結果のA1に111、A2は空白、A3は222、A4は333、B1~4はそれぞれの社名
と言う形であれば作業用セルを使って可能ですが、
1つのセルにすべての結果を纏めることは、関数ではほぼ不可能かと思います。
仮にデータが1000件あれば、「1つ目の該当を表示&2つ目のヒットがあれば改行して追加&3つ目のヒットがあれば改行して追加…1000つ目の該当があれば改行して追加」という式を入力することになるかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelのVLOOKUP関数 7 2022/08/23 06:46
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- その他(Microsoft Office) EXCEL VLOOKUPに関する質問 5 2023/02/08 11:38
- Excel(エクセル) SUMIFのIF分岐について 4 2023/04/15 12:57
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- その他(SNS・コミュニケーションサービス) Yahoo!とGoogle検索のしくみの違いを教えてください 2 2022/08/14 01:53
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
- その他(IT・Webサービス) 不動産会社を起業し、ホームページを作りました。その際に、弊社は「◯◯不動産(株)」なのですが、県外に 1 2022/05/26 12:02
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
同一セルに日時があるものを日...
-
1年分のデータから特定の月分...
-
EXCELでCSVファイル保存すると...
-
Excelで指定した条件と一致する...
-
色なしセルの合計値の出し方に...
-
1つのセルにまとまっている情報...
-
COUNTIFの反対の関数はあるので...
-
エクセルVBAで、複数セルのデー...
-
エクセルでセルを一括で右詰に...
-
エクセルで数字、文字列混在の...
-
ドロップダウンリストで空白の...
-
Excelで連続データを行飛ばしで...
-
Excelのシートごとの日付の追加
-
EXCELで足し算できるのにSUM...
-
エクセル数式・等間隔ごとの範...
-
【エクセル】一覧から指定デー...
-
複数のシートの日付データを、...
-
Excelの連続データ作成とmatch関数
-
エクセルの関数について
-
Excelで、表紙に、住所を自動で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
1年分のデータから特定の月分...
-
同一セルに日時があるものを日...
-
Excelで指定した条件と一致する...
-
EXCELでCSVファイル保存すると...
-
エクセルで数字、文字列混在の...
-
COUNTIFの反対の関数はあるので...
-
ドロップダウンリストで空白の...
-
1つのセルにまとまっている情報...
-
エクセルVBAで、複数セルのデー...
-
エクセルでセルを一括で右詰に...
-
EXCELで年月日の表記から日付部...
-
複数のシートの日付データを、...
-
EXCELで足し算できるのにSUM...
-
webクエリのurlの変更方法
-
OFFSET関数を使用した印刷範囲...
-
エクセルで特定の行を除いて計...
-
Excelで連続データを行飛ばしで...
-
excelで平均差を出したい
-
エクセル数式・等間隔ごとの範...
-
Excel2010 vlookup 検索値が複...
おすすめ情報