0 Then Rows(i).Offset(1).EntireRow.Insert xlShiftDown End If Next i End With End Sub But now I am trying to Concatenate the data from the 4 to 5 cell "chunks" to 1 cell that contains all the data. for example Colum A colum A (on separete sheet) Partial data 1 Complete data 1, 2, 3, & 4 Partial data 2 Complete data 1, 2, 3, & 4 Partial data 3 Partial data 4 Blank row .">
Most valuable professional
  • Hot Topics

Excel concatenate loop to end of row

Hello I am pretty new to VBA programing and I am stuck on a Concatenate problem. I have a .txt document (outputted from a XML program) that I have to upload into excel and manually format to meet our reporting standards (outside reporting agency) anyway, I have set up a Sub to separate the data into useful chunks Code: Public Sub ProcessData() Const TEST_COLUMN As String Dim i As Long Dim iLastRow As Long With ActiveSheet iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row For i = iLastRow To 1 Step -1 If .Evaluate("SUMPRODUCT(COUNTIF(" & .Cells(i, TEST_COLUMN).Address ",{""*COMPLETED*"",""*Expires*""}))") > 0 Then Rows(i).Offset(1).EntireRow.Insert xlShiftDown End If Next i End With End Sub But now I am trying to Concatenate the data from the 4 to 5 cell "chunks" to 1 cell that contains all the data. for example Colum A colum A (on separete sheet) Partial data 1 Complete data 1, 2, 3, & 4 Partial data 2 Complete data 1, 2, 3, & 4 Partial data 3 Partial data 4 Blank row

This question generated 13 answers. To proceed to the answers, click here.

This thread is current as of May 26, 2015.

For more resources for Microsoft Excel:

This article includes the following tags:

  • Excel
  • Microsoft Excel