



















VBAでカスタム関数を作成して処理します。
1. Excelファイルを開き、「Alt + F11」を押してVBAエディタウィンドウを開き、左側の空白部分を右クリックして「挿入」->「モジュール」を選択します。

2. 右側の空白部分に以下のコードを貼り付けます。
Function HeBing(rng1 As Range, s As String, rng2 As Range, f As String) As String
Dim Arr1, Arr2
Dim r As Long
r = rng1.End(xlDown).Row - rng1.Row + 1
Arr1 = rng1.Resize(r, 1): Arr2 = rng2.Resize(r, 1)
Dim i As Long
For i = 1 To UBound(Arr1)
If Arr1(i, 1) = s Then
If HeBing = "" Then HeBing = Arr2(i, 1) Else HeBing = HeBing & f & Arr2(i, 1)
End If
Next
End Function
3. 使用方法:
=HEBING(検索する範囲、検索する値、対応するデータ、セル内で使用する区切り文字)
例:=hebing(A:A,C1,B:B,",")
このコンテンツは慣性聚合(RSSリーダー)によって自動集約されています。参考としてご覧ください。 原文出典 — 著作権は原著者に帰属します。