[已解决]修改参数

张雄友

修改参数，执行宏后达不到效果。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-11-10 09:25

用不着这么复杂吧

1. Sub TEST()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     k = Selection.Column
   
5.     R = Selection(1).Row
   
6.     N = Selection.Count - 1
   
7.     S = R
   
8.     For i = R To N + R
   
9.         If Cells(i, k) <> Cells(i + 1, k) Then
   
10.             Range(Cells(S, k), Cells(i, k)).Merge
    
11.             S = i + 1
    
12.         End If
    
13.     Next
    
14.     Application.DisplayAlerts = True
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

跳转到最佳答案楼层

CheryBTL

B列是按顺序的吧？ 如果这样根本就不需要字典了，大才小用了。

张雄友

CheryBTL 发表于 2013-11-10 07:44
B列是按顺序的吧？ 如果这样根本就不需要字典了，大才小用了。

跟顺序没有关系的，只是相同的合并。

张雄友

CheryBTL 发表于 2013-11-10 07:44
B列是按顺序的吧？ 如果这样根本就不需要字典了，大才小用了。

不知问题出在哪里。

CheryBTL

张雄友 发表于 2013-11-10 07:51
不知问题出在哪里。

看下不用字典的办法是否可行？
修改参数.rar (10.63 KB, 下载次数: 1)

2013-11-10 08:05 上传

点击文件名下载附件

张雄友

CheryBTL 发表于 2013-11-10 08:05
看下不用字典的办法是否可行？

谢谢，我想知道原代码哪里出了问题，是否可以修正？

CheryBTL

张雄友 发表于 2013-11-10 08:10
谢谢，我想知道原代码哪里出了问题，是否可以修正？

修改参数.rar (10.44 KB, 下载次数: 2)

2013-11-10 08:45 上传

点击文件名下载附件

张雄友

CheryBTL 发表于 2013-11-10 08:46

选中H列出错。

zjdh

用不着这么复杂吧

1. Sub TEST()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     k = Selection.Column
   
5.     R = Selection(1).Row
   
6.     N = Selection.Count - 1
   
7.     S = R
   
8.     For i = R To N + R
   
9.         If Cells(i, k) <> Cells(i + 1, k) Then
   
10.             Range(Cells(S, k), Cells(i, k)).Merge
    
11.             S = i + 1
    
12.         End If
    
13.     Next
    
14.     Application.DisplayAlerts = True
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

上清宫主

小朋友，又是选择整列的吧？幸好没选整张表