在VBA中,如果你想将一个选定区域粘贴到一个名为"XXX.xlsm"文件的Sheet1工作表的B*单元格,可以使用以下代码:
Sub CopyRangeToB5OnSheet1InFile()
' 选定要复制的区域,例如 A1:A10
Range("A1:A10").Select
' 复制选定区域
Selection.Copy
' 粘贴到名为 "XXX.xlsm" 文件的 Sheet1 工作表的 B* 单元格
Workbooks("XXX.xlsm").Sheets("Sheet1").Range("B5").Paste
End Sub
请将以上代码复制到VBA编辑器中,然后运行它。这段代码将选定A1:A10区域,将其内容复制到名为"XXX.xlsm"文件的Sheet1工作表的B*单元格。请根据需要更改选定的区域和文件名。