定位含公式的非空单元格所在行

hkg36

举例来说有A，B两列
B列预制了10行函数，=IF(A1<>"",A1,"")
如果此时A列只有前3行有数据，那么B列也只有前3行显示数据

我用Range("B655360").End(xlUp).Row，得到10，请问如何能得到3？

lss001

'查找b列最后非空单元格所在行
x = Evaluate("Lookup(1,0/(b:b<>""""),Row(b:b))")

lss001

...............

fzxba

r=range("B:B").find("*", , -4163, , 1, 2).row

hkg36

lss001 发表于 2023-2-22 19:36
'查找b列最后非空单元格所在行
x = Evaluate("Lookup(1,0/(b:b""""),Row(b:b))")

多谢帮忙，我自己再琢磨琢磨

dailj

range（"a1"）.end(4).row，这样的值等3

hkg36

fzxba 发表于 2023-2-22 19:50
r=range("B:B").find("*", , -4163, , 1, 2).row

多谢，还能说明一下find函数里除了*以外几个参数的意义吗？不太明白。

hkg36

dailj 发表于 2023-2-22 22:23
range（"a1"）.end(4).row，这样的值等3

end(4)这个是什么定义啊

那时雨

根据你预设的函数，可以通过判断A列前10行数据的值来定位B列不为空值的位置。

1. Sub Test()
   
2.     Dim r&
   
3.     For r = 1 To 10
   
4.         If Cells(r, 1) = "" Then    '如果 r 行 A列的值为空，那么
   
5.             MsgBox Cells(r - 1, 2).Address  'r-1为要定位数据的行号
   
6.             Exit For    '退出 For 循环
   
7.         End If
   
8.     Next r
   
9. End Sub

复制代码

lss001

hkg36 发表于 2023-2-22 22:38
end(4)这个是什么定义啊

'以下也可查找b列最后非空单元格所在行
x = Evaluate("Match(1,1/(b:b<>""""))")