VBA这段代码什么反应也没有

laoau138

VBA这段代码什么反应也没有

究竟用来做什么

Sub 合并单元格实例()
Dim er%, rng%, rg As Range
Application.DisplayAlerts = False
er = Application.CountA([a:a])
For rng = er To 2 Step -1
    Set rg = Range("a" & rng)
    If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge
Next
Application.DisplayAlerts = True
End Sub

tjshenjian

这是个合并单元格的代码，之所以运行这段代码没有反映，是因为这段代码所要执行的区域已经合并过单元格了，要想让这段代码有反映，只需要将d1:e14单元格复制到a1:b14单元格，或者将代码改成
Sub 合并单元格实例()
Dim er%, rng%, rg As Range
Application.DisplayAlerts = False
er = Application.CountA([d:d])
For rng = er To 2 Step -1
    Set rg = Range("d" & rng)
    If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge
Next
Application.DisplayAlerts = True
End Sub

laoau138

tjshenjian 发表于 2017-1-29 10:48
这是个合并单元格的代码，之所以运行这段代码没有反映，是因为这段代码所要执行的区域已经合并过单元格了， ...

非常有道理

laoau138

tjshenjian 发表于 2017-1-29 10:48
这是个合并单元格的代码，之所以运行这段代码没有反映，是因为这段代码所要执行的区域已经合并过单元格了， ...

这段代码如何改写用数组


Sub 合并单元格实例()
Dim er%, rng%, rg As Range
Application.DisplayAlerts = False
er = Application.CountA([a:a])
For rng = er To 2 Step -1
    Set rg = Range("a" & rng)
    If rg = rg.Offset(-1) Then rg.Offset(-1).Resize(2).Merge
Next
Application.DisplayAlerts = True
End Sub