取消合併循環表單

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