[已解决]在线等,求修改合并单元格的循环,谢了.

hwc2ycy

如果源数据有问题，只有在*24那里会报错。

hwc2ycy

我在家用得好好的，就用你的附件，也不知道你是怎么用的。
就是用你的附件。

hwc2ycy

你再把你填表的工作表内容也截张图，要带行列坐标的。

nysong10086

hwc2ycy 发表于 2013-3-21 17:35
你再把你填表的工作表内容也截张图，要带行列坐标的。

填表的工作表内容,不好意思啊,多谢了

hwc2ycy

我就猜到了，你自己在A列加了“AP”了

hwc2ycy

1. Sub 合并()
   
2.     Dim i As Long, k As Long
   
3.     Dim arr
   
4.     Application.ScreenUpdating = False
   
5.     With Worksheets("填表")
   
6.         arr = .Range("a1").CurrentRegion
   
7.     End With
   
8.     With Worksheets("命令")
   
9.         For i = 2 To UBound(arr)
   
10.             k = (i - 2) * 24 + 1
    
11.             .Range("a" & k).Resize(24).Merge
    
12.             .Range("a" & k) = arr(i, 1)
    
13.         Next
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "合并完成", vbInformation
    
17. End Sub

复制代码

nysong10086

hwc2ycy 发表于 2013-3-21 17:50
我就猜到了，你自己在A列加了“AP”了

呵呵,我也发现了,多谢了