VBA 复制工作簿区域并选择性粘贴值和数字格式

你可以使用以下 VBA 代码将工作簿 A 中的某个区域选择性地粘贴值和数字格式到工作簿 B 中的一个固定区域：\n\nvba\nSub CopyPasteValuesAndFormats()\n Dim wbA As Workbook\n Dim wbB As Workbook\n Dim wsA As Worksheet\n Dim wsB As Worksheet\n Dim rngA As Range\n Dim rngB As Range\n \n ' 设置工作簿 A 和工作簿 B\n Set wbA = Workbooks("工作簿 A.xlsx")\n Set wbB = Workbooks("工作簿 B.xlsx")\n \n ' 设置工作表 A 和工作表 B\n Set wsA = wbA.Worksheets("工作表 A")\n Set wsB = wbB.Worksheets("工作表 B")\n \n ' 设置要复制的区域\n Set rngA = wsA.Range("A1:B10")\n \n ' 设置要粘贴的区域\n Set rngB = wsB.Range("C1:D10")\n \n ' 复制值和数字格式\n rngA.Copy\n rngB.PasteSpecial xlPasteValuesAndNumberFormats\n \n ' 清除剪贴板\n Application.CutCopyMode = False\n \n ' 关闭工作簿 A\n wbA.Close SaveChanges:=False\n \n ' 保存工作簿 B\n wbB.Save\n \n ' 关闭工作簿 B\n wbB.Close SaveChanges:=False\nEnd Sub\n\n\n请根据实际情况修改代码中的工作簿名、工作表名、区域范围等信息。