点击按钮将多单元格区域复制到新工作簿的技术问题

针对你需要复制两个指定区域到新工作簿、保留格式但排除公式的需求，直接逐个处理每个区域是最可靠的方案（Union方法会导致非连续区域丢失原位置布局）。以下是修改后的代码，完美满足需求：

Sub Button2_Click()
    Dim sourceWs As Worksheet
    Dim newWb As Workbook
    Dim newWs As Worksheet
    
    ' 绑定源工作表，避免依赖激活状态
    Set sourceWs = ThisWorkbook.Sheets("Sheet1")
    ' 创建新工作簿并获取首个工作表
    Set newWb = Workbooks.Add
    Set newWs = newWb.Sheets(1)
    
    ' 处理第一个区域：A1:F54，保留值与所有格式
    sourceWs.Range("A1:F54").Copy
    With newWs.Range("A1")
        .PasteSpecial Paste:=xlPasteValues ' 仅粘贴值，清除公式
        .PasteSpecial Paste:=xlPasteFormats ' 粘贴所有格式（含间距、字体、边框等）
    End With
    Application.CutCopyMode = False ' 清除剪贴板状态
    
    ' 处理第二个区域：G12:T54，保留原位置粘贴
    sourceWs.Range("G12:T54").Copy
    With newWs.Range("G12")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
    End With
    Application.CutCopyMode = False
End Sub

关键说明： #

• 避免Active对象依赖：用变量明确绑定源工作表和新工作簿，防止因窗口切换导致的错误
• 分步骤粘贴：先粘贴值清除公式，再粘贴格式确保所有样式（单元格间距、背景色、字体、边框等）完整保留，比单一粘贴选项更精准
• 逐个处理区域：直接对每个目标区域单独操作，确保复制后保留原位置布局，解决Union方法的布局丢失问题

内容的提问来源于stack exchange，提问作者C L