我正在尝试运行这段代码，以便它将合并具有相同值的单元格。但每次我尝试一步一步地运行它时，都会出现此错误。有人知道为什么我会出现此错误吗？欢迎提供任何反馈。
Sub MergeSameCells()
Application.DisplayAlerts = False
Dim rng As Range
MergeCells:
For Each rng In Selection
If rng.Value = rng.Offset(1, 0).Value And rng.Value <> "" Then
Range(rng, rng.Offset(1, 0)).Merge
Range(rng, rng.Offset(1, 0)).HorizontalAlignment = xlCenter
Range(rng, rng.Offset(1, 0)).VerticalAlignment = xlCenter
GoTo MergeCells
End If
Next
End Sub
1条答案
按热度按时间pobjuy321#
我可以通过将数据放在一个表中（选择数据，插入-〉表），从相同的代码中重现这个错误。删除表（设计选项卡-〉转换为范围）使它立即工作。