利用VBA实现判断合并单元格合并其他单元格

tjdqls24

我想用VBA实现
判断A列的合并单元格，将对应的其他表格变成合并单元格，

请哪位老师解答以下，，

万分感谢！


判断合并单元格合并其他单元格.zip (12.9 KB, 下载次数: 4)

2018-6-15 13:09 上传

点击文件名下载附件

不知道为什么

如图                       

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   With Worksheets("1")
   
7.     r = .Cells(.Rows.Count, 3).End(xlUp).Row
   
8.     For i = 9 To r
   
9.       If .Cells(i, 1).MergeCells Then
   
10.         If .Cells(i, 1).MergeArea.Cells(1, 1).Address = .Cells(i, 1).Address Then
    
11.           hs = .Cells(i, 1).MergeArea.Rows.Count
    
12.           For Each j In Array(2, 4, 5, 6, 8, 9, 10)
    
13.             .Cells(i, j).Resize(hs, 1).Merge
    
14.           Next
    
15.         End If
    
16.       End If
    
17.     Next
    
18.   End With
    
19.   Application.ScreenUpdating = True
    
20.   MsgBox "格式设定完毕！"
    
21. End Sub
    

复制代码

chxw68

详见附件。

tjdqls24

chxw68 发表于 2018-6-15 15:57
详见附件。

谢谢，老师 ！

tjdqls24

不知道为什么 发表于 2018-6-15 13:45
如图

非常感谢，，， 谢谢