選擇倒數第二行以上的所有值並複製並粘貼

Question

我正在嘗試在過程中選擇第二個倒數第二行以及它在工作表中的所有行並複製並粘貼值。

我可以在我的電子表格中找到最後一行並選擇整行，但我很難抵消選定的行。我收到一個與offset參數有關的錯誤。

'Removes formulas above the last line in the Auto Lease Data 
Dim ALR As Long 
Dim ALR2 As Long 
With Sheets("Auto Lease Data") 
    ALR = .Range("A" & .Rows.Count).End(xlUp).Row 
    ALR2 = .Range("A" & ALR).EntireRow.Select 
    .Range(ALR2).Offset(-1).Activate 
End With 

Answer 1

首先你要使用在需要範圍內的數字：

'Removes formulas above the last line in the Auto Lease Data 
Dim ALR As Long 
Dim ALR2 As Range 
With Sheets("Auto Lease Data") 
    ALR = .Range("A" & .Rows.Count).End(xlUp).Row 
    Set ALR2 = .Range(ALR -1 & ":" & ALR -1) 
    ALR2.select 
End With 

現在假設你要嘗試並獲得全範圍我就改成這樣：

'Removes formulas above the last line in the Auto Lease Data 
Dim ALR As Long 
Dim ALR2 As Range 
With Sheets("Auto Lease Data") 
    ALR = .Range("A" & .Rows.Count).End(xlUp).Row 
    Set ALR2 = .Range("A1:J" & ALR -1) 
    ALR2.select 
End With 

這將選擇從A1到J列的所有內容，直到倒數第二行。將J更改爲最後一列。如果您要複製並粘貼它，將節省時間來定義最後一列。

如果要複製和過去的值回本身（刪除公式），那麼：

'Removes formulas above the last line in the Auto Lease Data 
Dim ALR As Long 
Dim ALR2 As Range 
With Sheets("Auto Lease Data") 
    ALR = .Range("A" & .Rows.Count).End(xlUp).Row 
    Set ALR2 = .Range("A1:J" & ALR -1) 
    ALR2.value = ALR2.value 
End With