[已解决]用VBA显示合并单元格列数

mcc20jy

最佳答案

月排行榜 / 总排行榜

qh8600

2015-11-16 19:59

mcc20jy 发表于 2015-11-16 19:58
非常感谢，谢谢您

刚才的答案有错误， 已更正

跳转到最佳答案楼层

qh8600

VBA显示合并单元格行列数.rar (15.62 KB, 下载次数: 2)

2015-11-16 19:57 上传

点击文件名下载附件
点按钮试试

1. Sub demo()
   
2.     Dim i, x
   
3.     For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.         x = 0
   
5.         If Cells(i, 1) <> "" Then
   
6.             If Cells(i, 1).MergeCells Then
   
7.                 x = Cells(i, 1).MergeArea.Rows.Count - 1
   
8.             End If
   
9.             Cells(i, 3) = "显示：m=" & i & ",n=" & i + x
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

mcc20jy

qh8600 发表于 2015-11-16 19:55
点按钮试试

非常感谢，谢谢您

qh8600

mcc20jy 发表于 2015-11-16 19:58
非常感谢，谢谢您

刚才的答案有错误， 已更正

mcc20jy

qh8600 发表于 2015-11-16 19:59
刚才的答案有错误， 已更正

谢谢，谢谢！

mcc20jy

谢谢！