[已解决]用find查地址，offset偏移查值

独股求胜

我想用find查到第一个大米的地址，再用offset查到第一个大米N列的结存数，如果第一个结存数不够300，再查第二行大米结存数，请大神帮看看我的VBA为什么通不过？

最佳答案

月排行榜 / 总排行榜

roserice

2022-8-19 09:14

换一种方式或许更简单
Sub 查找()
Dim sh As Range
For Each sh In Sheet1.Range("f1:f10")
k = k + 1
If sh.Value = "大米" And sh.Offset(0, 5).Value >= 300 Then
Range("p" & k) = sh.Offset(0, 5).Value
End If
Next
End Sub

跳转到最佳答案楼层

roserice

换一种方式或许更简单
Sub 查找()
Dim sh As Range
For Each sh In Sheet1.Range("f1:f10")
k = k + 1
If sh.Value = "大米" And sh.Offset(0, 5).Value >= 300 Then
Range("p" & k) = sh.Offset(0, 5).Value
End If
Next
End Sub

砂海

单说语法问题
①   Dim ss As Range
②   ss = Range("e:e").Find("DM00000110").Address(0, 0)
③    ss.Offset(0, 9).Value

============
②句中  Range("e:e").Find("DM00000110").Address(0, 0) 的结果 是 文本 , 是单元格地址的文本 , 而不是单元格
③句    ss.Offset(0, 9).Value     对 这个值没有任何操作 , 【赋值 , 比较 , msgbox , debug.print  , ... 】 ,  Vba  哪知道你要做啥

哥儿-

纯find不可能得到你想要的效果的。可以参考一下

hcm19522

G2{=MATCH(1=1,SUMIF(OFFSET(B2,,,ROW(1:15)),E2,OFFSET(C2,,,ROW(1:15)))>=E6,)+1

格式化 B2:D16=$B2=$E$2

独股求胜

roserice 发表于 2022-8-19 09:14
换一种方式或许更简单
Sub 查找()
Dim sh As Range

非常感谢你帮我编好这个VBA，我试了一下非常满意。

同时也非常感谢另外几位的劳动付出。

独股求胜

哥儿- 发表于 2022-8-19 11:56
纯find不可能得到你想要的效果的。可以参考一下

你的劳动也非常不错，只是可惜只能设一个最佳，否则我也点你最佳的。

独股求胜

砂海 发表于 2022-8-19 09:40
单说语法问题
①   Dim ss As Range
②   ss = Range("e:e").Find("DM00000110").Address(0, 0)

谢谢你指正