VBA复制工作簿A中某个区域选择性粘贴值和数字格式到工作簿B中某个固定区域

你可以使用以下VBA代码将工作簿A中的某个区域选择性地粘贴值和数字格式到工作簿B中的一个固定区域：

Sub CopyPasteValuesAndFormats()
    Dim wbA As Workbook
    Dim wbB As Workbook
    Dim wsA As Worksheet
    Dim wsB As Worksheet
    Dim rngA As Range
    Dim rngB As Range
    
    ' 设置工作簿A和工作簿B
    Set wbA = Workbooks("工作簿A.xlsx")
    Set wbB = Workbooks("工作簿B.xlsx")
    
    ' 设置工作表A和工作表B
    Set wsA = wbA.Worksheets("工作表A")
    Set wsB = wbB.Worksheets("工作表B")
    
    ' 设置要复制的区域
    Set rngA = wsA.Range("A1:B10")
    
    ' 设置要粘贴的区域
    Set rngB = wsB.Range("C1:D10")
    
    ' 复制值和数字格式
    rngA.Copy
    rngB.PasteSpecial xlPasteValuesAndNumberFormats
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 关闭工作簿A
    wbA.Close SaveChanges:=False
    
    ' 保存工作簿B
    wbB.Save
    
    ' 关闭工作簿B
    wbB.Close SaveChanges:=False
End Sub

请根据实际情况修改代码中的工作簿名、工作表名、区域范围等信息