取消合并表单

Question

我想在所有床单上选择A1：A3并取消合并。这就是我到目前为止所做的：

 Sub Unmerge()
   Dim rs As Worksheet
   For Each rs In Sheets
     rs.Range("A1:A3").Select
     Selection.Unmerge
   Next rs
   End Sub

我的代码仅适用于第一张工作表然后失败。此外，我的工作表的名称也不同，每次工作簿的位置都不同。

感谢很多！

Answer 1

试试这个..

Sub UnMerge()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
 ws.Range("A1:A3").UnMerge
Next

End Sub