Concatenate cell data into another data if values matches

by

You could probably use a User Defined Function (aka UDF) for this. Put this into a module sheet.

Public Function conditional_concat_strs(rSTRs As Range, rCRITs As Range, rCRIT As Range, Optional sDELIM As String = ", ")
    Dim c As Long, sTMP As String

    Set rSTRs = rSTRs.Cells(1, 1).Resize(rCRITs.Rows.Count, rCRITs.Columns.Count)
    For c = 1 To rCRITs.Cells.Count
        If rCRITs(c).Value2 = rCRIT Then _
            sTMP = sTMP & rSTRs(c).Value & sDELIM
    Next c
    conditional_concat_strs = Left(sTMP, Application.Max(Len(sTMP) - Len(sDELIM), 0))
End Function

Use like any native worksheet function.

      Concatenate Strings by criteria

More Related Contents:

  1. Print function selecting wrong Type of Change option excel vba
  2. Format Cell Contents
  3. Excel formula checklist in employees
  4. How do I put double quotes in a string in vba?
  5. What is the difference between .text, .value, and .value2?
  6. How can I URL encode a string in Excel VBA?
  7. What is the difference between “Form Controls” and “ActiveX Control” in Excel 2010?
  8. Check if the file exists using VBA
  9. How can I create a progress bar in Excel VBA?
  10. VBA rounding problem
  11. Pasting an Excel range into an email as a picture
  12. 2 ways for “ClearContents” on VBA Excel, but 1 work fine. Why? [duplicate]
  13. Refresh Excel VBA Function Results
  14. Code for looping through all excel files in a specified folder, and pulling data from specific cells
  15. VBa conditional delete loop not working
  16. Concatenate column headers if value in rows below is non-blank
  17. Update excel sheet based on outlook mail [closed]
  18. Export chart as image – with click of a button
  19. Error13 in Excel VBA in data file
  20. How to extract text within a string of text
  21. Delay macro to allow events to finish
  22. Export multiple sheets to PDF simultaneously without using ActiveSheet or Select
  23. declaring a unicode string in vba in excel [duplicate]
  24. How to programmatically code an ‘undo’ function in Excel-Vba? [duplicate]
  25. Change the Point Color in chart excel VBA
  26. Extract URL From Excel Hyperlink Formula
  27. What is the different between IsNull, IsEmpty, =Empty, and an empty string ie “” and why might I use variants
  28. AutoFilter – Use of SpecialCells
  29. How to detect if user select cancel InputBox VBA Excel
  30. Change HTML email body font type and size in VBA

Leave a Comment