选择倒数第二行以上的所有值并复制并粘贴

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