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

天地一相

感谢帮助！写VBA遇到一个问题，如何获取A列最后一个非空值单元格的行号。A1:A100单元格内是提取内容到该列的公式，有时有提取过来的内容，有时无。我需要这个行号来赋值

目前的回复几乎全错，还没理想的答案。贴出本次我使用的办法，先返回非空最大行号，然后赋值并计数该区域的非空值单元格个数，比较二者是否相等，否，则说明有值写入了，那就需要遍历处理了。遍历是因为，还没有好办法快速精准定位有值的单元格行号。

1. x = Sheet2.Cells(Rows.Count, "B").End(xlUp).Row
   
2.     If Application.WorksheetFunction.CountBlank(Sheet2.Range("B2:B" & x)) < x  Then

复制代码

蓝桥玄霜

Myr = cells(rows.count,1).end(xlup).row

无敌小猪猪

Cells(Rows.Count, 1).End(xlUp).Row

liulang0808

具体需要看下楼主表格数据情况
一般情况可以使用end，也可以使用find定位

fanyoulin

难道不是 cells(rows.count,1).end(3).row 吗？

feilanga

1. r = Columns("a:a").Find(what:="*", Searchorder:=xlByRows, searchdirection:=xlPrevious).Row 'A列最大非空行号

复制代码

feilanga

1. 最大行 = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row

复制代码

天地一相

liulang0808 发表于 2023-7-3 15:21
具体需要看下楼主表格数据情况
一般情况可以使用end，也可以使用find定位

谢谢，我想着可能会有一种写法，能立即知道最后一个非空值单元格的行号。现在，我是用返回最大行号，与，返回非空值单元格个数做比较，若全空值，二者相等。就跳过不再继续挨个遍历。若不相等，必然有数据，就遍历一遍。我想，若能准确知道最大非空值单元格的行号，我就遍历到该行即可，就不需要遍历后面的那些空值区域了。AI回答的都是遍历后才能知道最大非空值单元格的行号。那如果真的只能遍历才能知道，那就需要了，还不如直接遍历执行数据操作的句子呢。我的情况：表格A1:H100，全是公式，从别的表簿提取符号条件的内容。很多时候，无内容可提，就看上去是空单元格。之前我用返回最大行号的句子，原以为没内容会返回1，结果发现一直返回的是100，单元格有隐藏的公式，我一直在执行遍历100行的操作。

ykcbf1100

r = .UsedRange.Find("*", , -4163, , 1, 2).row   '//最大非空行号(不确定哪列最大)

liulang0808

天地一相 发表于 2023-7-3 15:34
谢谢，我想着可能会有一种写法，能立即知道最后一个非空值单元格的行号。现在，我是用返回最大行号，与， ...

有公式，就从下往上遍历吧，找到第一个非空值 就停止，定位行号