[已解决]vb合并单元格问题

edisonx32

合并单元格

如图，表中第三和第四行相同内容需合并单元格，以下代码出错，请问大神们.merge这句哪里错了？该如何修改？谢谢
Sub hbrglx()
Application.DisplayAlerts = False
Dim i As Integer
For i = 2 To 7
If Cells(4, i) = Cells(5, i) Then
Range("cells(4,i):cells(5,i)").Merge
End If
Next
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

chart888

2017-7-7 16:37

1. Sub hbrglx()
   
2. Application.DisplayAlerts = False
   
3. Dim i As Integer
   
4. For i = 2 To 7
   
5.     If Cells(4, i) = Cells(5, i) Then
   
6.         Cells(4, i).Resize(2, 1).Merge
   
7.     End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

或者用下面的

1. Sub hbrglx1()
   
2. Application.DisplayAlerts = False
   
3. Dim i As Integer
   
4. For i = 2 To 7
   
5.     If Cells(4, i) = Cells(5, i) Then
   
6.         Range(Cells(4, i), Cells(5, i)).Merge
   
7.     End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

chart888

1. Sub hbrglx()
   
2. Application.DisplayAlerts = False
   
3. Dim i As Integer
   
4. For i = 2 To 7
   
5.     If Cells(4, i) = Cells(5, i) Then
   
6.         Cells(4, i).Resize(2, 1).Merge
   
7.     End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

或者用下面的

1. Sub hbrglx1()
   
2. Application.DisplayAlerts = False
   
3. Dim i As Integer
   
4. For i = 2 To 7
   
5.     If Cells(4, i) = Cells(5, i) Then
   
6.         Range(Cells(4, i), Cells(5, i)).Merge
   
7.     End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

edisonx32

chart888 发表于 2017-7-7 16:37
或者用下面的

好的，多谢！