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

これは、あなたの望むことですか？