excel 查找列VBA中的最后一行[重复]

f4t66c6m  于 2023-04-07  发布在  其他
关注(0)|答案(1)|浏览(144)

此问题已在此处有答案

Better way to find last used row(9个回答)
3天前关闭。
这是我的代码

Range("C31").Select

Selection.End(xlDown).Offset(1, 0).Select

如果在C31中粘贴2行或更多行,则工作正常。但如果C31只有1行项目,则会出现错误,因为xlDown将转到文件的底部,偏移量1,0将完全不起作用。
有没有更好的代码来表示“选择.结束(xlDown).偏移(1,0).选择”?
如果在C31中找到1行,则使用代码为:范围(“C31”)。偏移(1,0)。选择..,反之亦然..
Cant似乎找不到简单的代码,对于简单的IF代码

avwztpqn

avwztpqn1#

我不知道你到底在做什么,但这是可行的:

ActiveSheet.Range("C31").Select
If Selection.Offset(1, 0) <> "" Then
    Range(Selection, Selection.End(xlDown)).Select
End If

试试这个变化:

ActiveSheet.Range("C1").Select
If Selection.Offset(1, 0) <> "" Then
    Selection.End(xlDown).Select
End If
If Selection.Row <> 1048576 Then
    Selection.Offset(1, 0).Select
End If

相关问题