[已解决]如何将a列自动排序并合并相同行呢？

1screw1

求代码，求解释

有个将整个表格合并相同项的代码，但不知道怎么改呀

1. Sub Mergerng()

2.     Dim IntRow As Integer

3.     Dim i As Integer

4.     Application.DisplayAlerts = False

5.     With Sheet1

6.         IntRow = .Range("A65536").End(xlUp).Row

7.         For i = IntRow To 2 Step -1

8.             If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then

9.                 .Range(.Cells(i - 1, 2), .Cells(i, 2)).Merge

10.             End If

11.         Next

12.     End With

13.     Application.DisplayAlerts = True

14. End Sub

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-7-7 12:16

1screw1 发表于 2013-7-7 12:11
IntRow = .Range("A65536").End(xlUp).Row 'Sheet1表中A列有数据的最大行数
这句搞不懂

[a65536].end(XLUP).row
[a65536].就是从A列的第65536行开始
end(XLUP)从上往上查找，也可简写成end(3)
row这个表示行
[a65536].end(XLUP).row表示从A列的最大行第65536行向上查找，如果在A列查找到最下端有数据时单元格时，就显示它所在的行号，即是有数据的最大行号。

跳转到最佳答案楼层

ligh1298

1. Sub Mergerng()
   
2. Dim IntRow As Integer '申明变量类型是整型
   
3. Dim i As Integer '申明变量类型是整型
   
4. Application.DisplayAlerts = False '禁止弹出对话框
   
5. With Sheet1
   
6. IntRow = .Range("A65536").End(xlUp).Row 'Sheet1表中A列有数据的最大行数
   
7. For i = IntRow To 2 Step -1 '从IntRow到2逆循环，步进是1（从大到小循环）
   
8. If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then '如果B列单元格数据与它相邻的上一单元格数据相同
   
9. .Range(.Cells(i - 1, 2), .Cells(i, 2)).Merge '就把相同的进行合并
   
10. End If
    
11. Next
    
12. End With
    
13. Application.DisplayAlerts = True '允许弹出对话框
    
14. End Sub

复制代码

1screw1

ligh1298 发表于 2013-7-7 12:08

IntRow = .Range("A65536").End(xlUp).Row 'Sheet1表中A列有数据的最大行数
这句搞不懂

ligh1298

如果想合并A列的，就把cells(i,2)与cells(i-1,2)改成1

ligh1298

1screw1 发表于 2013-7-7 12:11
IntRow = .Range("A65536").End(xlUp).Row 'Sheet1表中A列有数据的最大行数
这句搞不懂

[a65536].end(XLUP).row
[a65536].就是从A列的第65536行开始
end(XLUP)从上往上查找，也可简写成end(3)
row这个表示行
[a65536].end(XLUP).row表示从A列的最大行第65536行向上查找，如果在A列查找到最下端有数据时单元格时，就显示它所在的行号，即是有数据的最大行号。

1screw1

我只是要合并a行就好了
但是
Sub Mergerng()
Dim IntRow As Integer '申明变量类型是整型
Dim i As Integer '申明变量类型是整型
Application.DisplayAlerts = False '禁止弹出对话框
With Sheet1
IntRow = .Range("A65536").End(xlUp).Row 'Sheet1表中A列有数据的最大行数
For i = IntRow To 2 Step -1 '从IntRow到2逆循环，步进是1（从大到小循环）
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then '如果B列单元格数据与它相邻的上一单元格数据相同
.Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge '就把相同的进行合并
End If
Next
End With
Application.DisplayAlerts = True '允许弹出对话框
End Sub
这样就ok了？

ligh1298

你可以试试就知道了。经测试成功。

1screw1

想问一下，如果需要再加上自动排序怎么弄呢

ligh1298

Range("a2:c10").Sort Key1:=Range("a2"), Order1:=xlAscending '区域a2:c10,按a列数升序，a1是标题
Range("a2:c10").Sort Key1:=Range("a2"), Order1:=xlDescending '区域a2:c10,按a列数降序，a1是标题

1screw1

自动排序后发现个问题，表格大小还是原来的样子，希望加上自动调整大小，就像我们拉到鼠标后再边缘双击，excel会自动调整表格大小一样