OK, guys and gals, I need a little assistance. I have a spreadsheet containing a macro that will merge columns B & C into one column and place an "-" between the data. It is as follows:
***************
Sub mergecells()
Dim intRow As Integer
Dim txt As String
intRow = 2
Do Until IsEmpty(Cells(intRow, 2))
Cells(intRow, 2) = Cells(intRow, 2) & " - " & Cells(intRow, 3)
Cells(intRow, 3).ClearContents
Range(Cells(intRow, 2), Cells(intRow, 3)).Merge
intRow = intRow + 1
Loop
Columns(2).AutoFit
End Sub
***********************
Now what I need is a macro that will undo this, and place the data back into columns B & C as it was before and remove the "-".
Basically what I am doing in this spreadsheet is combining columns B & C, running a dup check on it, and returning the data back to the columns like it was.
Any ideas? Thanks for your help on this! All of you have helped me tremendously in the past and it has been most appreciated!!! Thanks again!
***************
Sub mergecells()
Dim intRow As Integer
Dim txt As String
intRow = 2
Do Until IsEmpty(Cells(intRow, 2))
Cells(intRow, 2) = Cells(intRow, 2) & " - " & Cells(intRow, 3)
Cells(intRow, 3).ClearContents
Range(Cells(intRow, 2), Cells(intRow, 3)).Merge
intRow = intRow + 1
Loop
Columns(2).AutoFit
End Sub
***********************
Now what I need is a macro that will undo this, and place the data back into columns B & C as it was before and remove the "-".
Basically what I am doing in this spreadsheet is combining columns B & C, running a dup check on it, and returning the data back to the columns like it was.
Any ideas? Thanks for your help on this! All of you have helped me tremendously in the past and it has been most appreciated!!! Thanks again!