Experts Exchange connects you with the people and services you need so you can get back to work.
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
' merge col C & D
Dim intRow As Integer
Dim strColC As String
Dim strColD As String
intRow = 1 'change to starting row (if header row make this 2)
strColC = Cells(intRow, 3).Value
strColD = Cells(intRow, 4).Value
if strColD <> "" then
Cells(intRow, 3).Value = strColC & "," & strColD
Cells(intRow, 4).Value = ""
intRow = intRow + 1
Loop While Cells(intRow, 1).Value <> "" ' loops until there is no more entries
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Be seen. Boost your question’s priority for more expert views and faster solutions