假设我的 Excel 中有 Sheet(1)。现在我也有 2500 行,其中包含从 A 到 BO 的列的数据。现在我希望将数据从这些工作表复制到同一 Excel 文件的另一张工作表中 2500 行,但不是整个列,而是我只需要从 A 到 AA 的列数据复制到新工作表。
那么如何使用VBscript来构建它呢?
请帮我。
如何使用 vbscript 将一张纸中的行复制到另一张纸
要将数据从一张工作表复制到另一张工作表,您可以使用“复制”和“特殊粘贴”命令。要执行此操作,请使用.vbs
脚本执行以下操作:
' Create Excel object
Set objExcel = CreateObject("Excel.Application")
' Open the workbook
Set objWorkbook = objExcel.Workbooks.Open _
("C:\myworkbook.xlsx")
' Set to True or False, whatever you like
objExcel.Visible = True
' Select the range on Sheet1 you want to copy
objWorkbook.Worksheets("Sheet1").Range("A1:AA25").Copy
' Paste it on Sheet2, starting at A1
objWorkbook.Worksheets("Sheet2").Range("A1").PasteSpecial
' Activate Sheet2 so you can see it actually pasted the data
objWorkbook.Worksheets("Sheet2").Activate
如果您想在 Excel 中使用 VBS 宏执行此操作,您还可以调用复制和粘贴方法。只有你的工作簿对象才会像这样ActiveWorkbook
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)