将合并的单元格保存为Excel VBA后不再合并

Sub SaveMergedCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim mergedCells As Range
    
    ' 设置要保存为VBA的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置要保存为VBA的区域范围
    Set rng = ws.Range("A1:D10")
    
    ' 检查区域范围中的合并单元格
    For Each mergedCells In rng
        If mergedCells.MergeCells Then
            ' 如果是合并单元格，则将合并单元格重新合并
            mergedCells.MergeCells = True
        End If
    Next mergedCells
    
    ' 保存为VBA
    ws.ExportAsFixedFormat Type:=xlTypeXLSM, Filename:="C:\Path\to\save\file.xlsm", _
        IncludeDocProperties:=True, IgnorePrintAreas:=False
End Sub