Транспонировать диапазон в Excel с VBS

Question

Эй, ребята, здесь нужна помощь. Как я могу перенести диапазон в Excel с VBS? в основном скопируйте диапазон с одного листа, а затем вставьте специальный транспонент на другой лист. заранее спасибо

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

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

Еще раз спасибо cronos2546, я люблю этот сайт:)