Question

嘿伙计们需要一些帮助。如何用VBS转换excel中的范围？基本上从一张纸上复印一个范围，然后在另一张纸上复制另一张纸。提前谢谢

Answer 1

Public Sub transpose()
           Worksheets("Sheet1").Range("A1:A5").Copy
           Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
End Sub

这是你想要的吗？

Answer 2

 Set objXLApp = CreateObject("Excel.Application")
 Set objXLWb = objXLApp.Workbooks.Open("C:\Users\CuRrY\Desktop\test1.xls")
 objXLApp.Application.Visible = True
 objXLApp.DisplayAlerts=False
 Set objXLWs = objXLWb.Sheets(1)  

 objXLWs.Range("A1:O1").Copy
 objXLWs.Range("A2").PasteSpecial ,,,True

从我在其他编写的脚本中看到的，wscript遍历整个字符串所以只需添加逗号，然后将转置部分设为true＆gt;＆gt;＆gt;

.Range("A2").PasteSpecial ,,,True

再次感谢cronos2546，我喜欢这个网站：）

用VBS转换excel范围

2 个答案: