1004应用程序定义的或对象定义的错误
问题描述:
错误出现在end sub之前的行上,选择最后一行计算的范围的正确方法是什么?1004应用程序定义的或对象定义的错误
Sub My_Script()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
End With
ActiveSheet.Range(Cells(LastRow, Columns("D:AH"))).Select
End Sub
答
下面的代码选择在LastRow
所有小区仅,从列“d”到列“AH”。
Sub My_Script()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
.Range(.Range("D" & LastRow), .Range("AH" & LastRow)).Select
End With
End Sub
如果您想选择所有的行(从第1行至LastRow
),从列 “d” 列 “AH”。
Sub My_Script()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
.Range(.Range("D1"), .Range("AH" & LastRow)).Select
End With
End Sub
注意:不知道你为什么要Select
这个范围?您可以将此Range
设置为Range
类型的变量,然后再将其设置为Copy
或任何您想要使用的变量。几乎没有理由使用Select
。