首页 > 解决方案 > 运行时错误“1004”:对象“_Global”的方法“范围”失败 Visual Basics

问题描述

嗨,我正在努力让我的代码运行,并且非常感谢一些帮助,因为这是我第一次使用 Visual Basics。

错误:运行时错误“1004”:对象“_Global”的方法“范围”失败

部分代码突出显示为错误:

Dim i As Long, lastrow As Long
lastrow = Cells.Find(What:="*", _
After:=Range("Ai"), _
LookAt:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

此行旁边的黄色箭头:MatchCase:=False).Row

解决方案:改变

After:=Range("Ai"), _

After:=Range("A" & Rows.Count), _
   

标签: excelvba

解决方案


尝试改变

After:=Range("Ai"), _

After:=Range("A" & i), _

无论如何,获取 A:A 列最后一行的简单方法是:

LastRow = Range("A" & rows.count).End(xlup).row

推荐阅读