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