teezarromy
New Member
- Joined
- Jun 24, 2009
- Messages
- 4
Hello,
Basically, I have 5 different columns in my table (Firstname, lastname, data1, data 2 and data3. If the firstname and lastname are duplicated, I want to merge the corresponging cells. However, I have problem with the syntax of the range in the for-next statement. Can Anyone help? Below is my code.
Sub CondenseTable()
Dim i As Integer
i = 2
For i = 2 To 8
If Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet1").Range("A" & i + 1) And _
Worksheets("Sheet1").Range("B" & i).Value = Worksheets("Sheet1").Range("B" & i + 1) Then
Range("A" & i:"A" & i+1).Select
Selection.Merge
Range("B" & i:"B" & i+1).Select
Selection.Merge
Range("C" & i:"C" & i+1).Select
Selection.Merge
Range("D" & i:"D" & i+1).Select
Selection.Merge
Range("E" & i:"E" & i+1).Select
Selection.Merge
End If
Next i
End Sub
Thanks,
Teezar
Basically, I have 5 different columns in my table (Firstname, lastname, data1, data 2 and data3. If the firstname and lastname are duplicated, I want to merge the corresponging cells. However, I have problem with the syntax of the range in the for-next statement. Can Anyone help? Below is my code.
Sub CondenseTable()
Dim i As Integer
i = 2
For i = 2 To 8
If Worksheets("Sheet1").Range("A" & i).Value = Worksheets("Sheet1").Range("A" & i + 1) And _
Worksheets("Sheet1").Range("B" & i).Value = Worksheets("Sheet1").Range("B" & i + 1) Then
Range("A" & i:"A" & i+1).Select
Selection.Merge
Range("B" & i:"B" & i+1).Select
Selection.Merge
Range("C" & i:"C" & i+1).Select
Selection.Merge
Range("D" & i:"D" & i+1).Select
Selection.Merge
Range("E" & i:"E" & i+1).Select
Selection.Merge
End If
Next i
End Sub
Thanks,
Teezar