[分享]关于查找方法(Find方法)的应用

gyzzf

介绍得很详细，谢谢fanjy版主分享

黑子2009

学习了  谢谢楼主

wcm_xp

谢谢楼主的分享。我学习了，也许学的不细。具体我的例子在Excel中用Find 函数可以实现，可是贴到VBA中如何实现？
（目的在【数据源】中提取第二个“,”之后，第三个“,”之前的内容
1                  A                                                |      B                                  | A                           | C                                   |D                                                                                         ----------------------------------------------------------------+---------------------------------------+------------------+-----------------------------+---------------------------------
2                 数据源                               |             第1步计算公式  | 第1步计算结果|  第2步计算公式         |  第2步计算结果
----------------------------------------------------------+--------------------------------------------------------------------------------------------+------------------------------------------
3     10 R 可 变 费 用 (元),柴油,4.9元/kg,定额| MID(A3,FIND(",",A3,18)+1,20)| 4.9元/kg,定额 | LEFT(B3,FIND(",",B3)-1) | 4.9元/kg
----------------------------------------------------------+-------------------------------------------------------------------------------------------+--------------------------------------------
4     10 R 可 变 费 用 (元),煤,金额          | MID(A4,FIND(",",A4,18)+1,20)|             金额  | LEFT(B4,FIND(",",B4)-1) | #VALUE!

在Excel中用函数我不能一步实现“第2步计算结果”，还是菜鸟，请楼主帮忙。
VBA中如何实现我的“第2步计算结果”，请楼主帮忙。谢谢

泓()

学习一下





谢谢

sxqumin

fanjy 好
我是VBA盲，看了你这贴很感兴趣，想根据你的内容达到附件的效果，可是总不得要领，请给帮助，谢谢！！！

ningyong58

现在把这个帖子的PDF文件给打印出来了。好好学习吧。

hongyin

学习了！

qldd

这个要好好学习学习，用处很多

wangruoxu

原帖由 fanjy 于 2006-9-28 21:11 发表
关于查找方法(Find方法)的应用(续)4.1.3 对VBA帮助系统上的一点疑问探讨在VBA帮助系统中，介绍Find方法和FindNext方法所使用的示例好像有点问题：当在Excel中运行时，虽然运行结果正确，但是在运行到最后时，会报错误 ...

同感,只是不知道有什么好方法,我是在中间加了一句If c Is Nothing Then Exit Do  
也能解决问题,不知道是否合适,请讨论.
       Do
                c.Value = "YES"
                Set c = .FindNext(c)
               
                If c Is Nothing Then Exit Do  '增加这一句
               
            Loop While Not c Is Nothing And c.Address <> firstaddress

何彪

呵呵，又能学习了，呵呵