vbscript - 使用VBS在excel中转​​置范围

Question

嘿，伙计们在这里需要一些帮助。如何使用 VBS 在 excel 中转置一个范围？基本上从一张纸上复制一个范围，然后在另一张纸上粘贴特殊转置。提前致谢

Answer 1

 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 >>>

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

再次感谢 cronos2546，我喜欢这个网站 :)

Answer 2

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

这是你想要的吗？