VBA復制和轉置數據范圍

Question

我正致力於在工作中設置一些電子表格以簡化我的工作。 我還是VBA新手。

我試圖從Sheet1中刪除列（E6：E14）中的一系列數據，並在將數據粘貼到Sheet2的A列中的下一個可用行之前轉置數據。 這是我迄今為止從試驗和錯誤中編寫的代碼。 每次運行代碼時，都會出現運行時錯誤“1004”。 我正在嘗試在Sheet2中創建一個“數據庫”。 任何幫助都很感激。

Sub Test()
    Worksheets("Sheet1").Range("E6:E14").Cut
    Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True
End Sub

謝謝您的幫助！

FHY

Answer 1

使用.Cut方法無法使用PasteSpecial，但不能使用.Copy方法。 當我改變

Worksheets("Sheet1").Range("E6:E14").Cut

至

Worksheets("Sheet1").Range("E6:E14").Copy

一切正常。 如果您希望之后刪除所有內容，您可以隨時執行：

Sub Test()

Worksheets("Sheet1").Range("E6:E14").Copy

Worksheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Transpose:=True

Worksheets("Sheet1").Range("E6:E14").Clear 

End Sub