次の列にあるセルの内容に基づいて連結する

Question

値を含む各セル間に2つの改行を追加して、列内のすべてのテキストを連結する式またはVBAを探しようとしています。だから私はそれが隣にある列CAの同じ行にテキスト 'はい'を持っている場合、 'メインデータ'ワークシートの列BZのすべてのコメントを連結することを望みます。

これらのコメントは、同じブックの「コメント」ワークシートのセルB1に表示することをお勧めします。

私はサイトを見回しましたが、解決策を見つけることができません。私はどんな助けにも感謝しています。もしあなたが私に似たような質問のあるページに向けることができたら。

感謝

R

Answer 1

Public Function ConcatenateIF(RangeToExamine As Range, ValueToCompare As Variant, RangeToCombine As Range, Optional seperator As String = vbCrLf & vbCrLf) As String 
Dim s As String 
Dim r As Range 
Dim t As Range 
Dim x As Long 
Dim y As Long 
If RangeToExamine.Rows.Count = 1 Then 
    x = 0 
    y = 1 
ElseIf RangeToExamine.Columns.Count = 1 Then 
    x = 1 
    y = 0 
Else 
    ConcatenateIF = "#Value" 
    Exit Function 
End If 

Set t = RangeToCombine.Cells(1, 1) 

For Each r In RangeToExamine 
     If r = ValueToCompare Then 
      If t <> "" Then 
       s = s & t & seperator 
      End If 
     End If 
     Set t = t.Offset(x, y) 

     Next r 
If Len(seperator) > 0 Then 
    s = Left(s, Len(s) - Len(seperator)) 
End If 

ConcatenateIF = s 

End Function