 | I am using the following VBA code to concatenate two columns of data:
VBA Code:
Sub Combine_Columns()
Dim modifier As Variant
Dim word As Variant
Range("F4").Select 'Change as appropriate
For Each word In Range("D4", Range("D4").End(xlDown))
For Each modifier In Range("B4", Range("B4").End(xlDown))
ActiveCell.Formula = modifier & " " & word
ActiveCell.Offset(1, 0).Select
Next
Next
Range("F4").Select
End Sub
|
This works great as long as there is more than 1 word in each column; However, when there is only one word in either column the macro will run indefinitely (combining words with blank cells). I've tried fixing this using a series of If statements, but I still can't get it to work (or at the very least prompt the user that more than 2 words must be used)
Any help that you can offer would be much appreciated.
|