移調從行到列（VBA）

Question

我的問題是：如何在G列的調換後四排成不同的列？

我通常使用靜態代碼：

Worksheets("Sheet8").Range("A1:A5").Copy 
Worksheets("Sheet9").Range("A1").PasteSpecial Transpose:=True 

不過，這並不讓我留在同一張紙上。

所以我想它的代碼相結合：

Dim r As Range, N As Long 
N = Cells(Rows.Count, "A").End(xlUp).Row 
Set r = Cells(N, 1).EntireRow 

r.Copy 
Cells(N + 1, 1).PasteSpecial Transpose:=True 
r.Delete 

之前

之後的任何幫助表示讚賞

Answer 1

未測試：

Dim c As Range, v 

'find last-used cell in ColG 
Set c = Cells(Rows.Count, "G").End(xlUp) 

With c.offset(-3,0) 'starting with the cell 3 rows above the last-used cell... 
    v = .resize(4,1).value  'get the value of the 4-row/1-col range below 
    .resize(4,1).clearcontents '...then clear that range 
    .resize(1,4).value = Application.Transpose(v) 'place the values in a row 
End with