0

やあみんなここで助けが必要です。VBSを使用してExcelで範囲を転置するにはどうすればよいですか? 基本的に、あるシートから範囲をコピーしてから、別のシートに特別な転置を貼り付けます。前もって感謝します

4

2 に答える 2

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 に感謝します。私はこのサイトが大好きです :)

于 2014-07-21T20:14:02.093 に答える
0
Public Sub transpose()
           Worksheets("Sheet1").Range("A1:A5").Copy
           Worksheets("Sheet2").Range("A1").PasteSpecial Transpose:=True
End Sub

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

于 2014-07-08T18:37:43.680 に答える