菜鸟谈VBA最最基础入门《原创》

maxwelllhj

这个帖子太NB！！！！！！！！！！！！

xhc1

说得真好，我看了几本VBA的书，都不知从何下手，现在好象明白了很多

涵辛

我从 1 楼一直看到 3 楼结束，叶枫老师讲得很好，我学到了不少，谢谢您，叶枫老师。

wangjiyun0

老师您看看~

太极张

我是一只不努力的菜鸟，今天也努力一回吧

cjainwei

回872楼
借jxb8088
Sub jxb8088()
With Sheet2
m = InStr([b24], ".")
Set rng1 = .[a:a].Find(Left([b24], m - 1), , , xlWhole)
Set rng2 = .[1:1].Find(Right([b24], Len([b24]) - m), , , xlWhole)
If rng1 Is Nothing Or rng2 Is Nothing Then
MsgBox "数据不存在！"
Else
[c24] = Application.Intersect(rng1.EntireRow, rng2.EntireColumn)
End If
End With
End Sub

ggsmart

楼上的代码就可以了，其实像这样的问题也可以用公式啊。。。。
做了一个公式的例子。

wangjiyun0

老师你太牛了，我都不知道说什么来赞美你了，我知道你不喜欢听这些，但是我还是忍不住要崇拜下！特别是用公式解决……

turan21

怀着无比感谢的心情看了帖子，虽然不懂，但我一定要好好再研究，谢谢！

appher

good   useful for me