获取最后一个非空值单元格的行号

天地一相

feilanga 发表于 2023-7-3 15:28

谢谢，能工作。但测试发现，与我目前使用的方法比较看反而慢了。慢了一丁点，多次测试的判断。

笨笨的求知者

回复错了，怎么删除

天地一相

笨笨的求知者 发表于 2023-7-3 15:58
回复错了，怎么删除

你没权限，删不了，只能修改内容至皆大欢喜人畜无害无关紧要

tanglf188

方法很多，举三例。
方法一，中间有空行能用：
last = Sheet1.Range("A:A").SpecialCells(11).Row
方法二，中间有空行能用：
last = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row
方法三，中间有空行不能用：
last = Sheet1.Range("A1").End(xlDown).Row

准提部林

想快...加輔助列公式,
非空行...X1: =if(a1="","",row())
再用個單元格 Y1=MAX(X:X)

天地一相

蓝桥玄霜 发表于 2023-7-3 15:15
Myr = cells(rows.count,1).end(xlup).row

谢谢啊。几个回复包括我自己使用的对比法，都3次测试取平均比较了，蓝版的最快，不过差异不大，1000个循环，差别在1秒。

天地一相

准提部林 发表于 2023-7-3 16:23
想快...加輔助列公式,
非空行...X1: =if(a1="","",row())
再用個單元格 Y1=MAX(X:X)

谢谢，思路新奇。专门动手改了下，测量对比了，没速度上的优势。基本和蓝版给出的句子一样快。

笨笨的求知者

Application.WorksheetFunction.Match(9E+307, Range("A:A"))

天地一相

蓝桥玄霜 发表于 2023-7-3 15:15
Myr = cells(rows.count,1).end(xlup).row

才发现，这个句子也不对。

天地一相

feilanga 发表于 2023-7-3 15:28

你的也不对。