VBA 点击按钮1 将合并在B列中相邻的重复单元格格,以便形成单个单元格,点击按钮2则恢复按钮1的合并效果
时间: 2023-06-08 13:06:12 浏览: 126
VBA提取非合并单元格整行.txt
5星 · 资源好评率100%
非常感谢您的提问。关于您的问题,可以使用VBA代码来实现。以下是合并相邻重复单元格的代码:
```
Sub MergeCells()
Dim Rng As Range
Set Rng = Selection
For Each c In Rng
If c.Value = c.Offset(1, 0).Value Then
Range(c, c.Offset(1, 0)).Merge
End If
Next c
End Sub
```
而下面是恢复合并效果的代码:
```
Sub UnmergeCells()
Dim Rng As Range
Set Rng = Selection
Rng.UnMerge
End Sub
```
您可以将这些代码分别绑定在两个不同的按钮上,并在需要时进行使用。希望对您有所帮助,如有其他问题请随时提出。
阅读全文