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

gulx · 发表于 2006-10-3 17:09

谢谢lz分享

我今天政好用到这个函数

黄玉宏 · 发表于 2006-10-4 14:50

Find方法配合计数循环(For I…Next)查找重复值

Sub bb()

On Error Resume Next 　　　 '此容错语句千万不能少，否则出错。

[H2:M65536].Clear

[B1].Select '因查找区域为B列故此处只能是激活B1单元格

K = 2

n = Application.CountIf([B:B], [G2]) '先对B列统计个数以供计数循环用

If n = 0 Then MsgBox "查无此人!": Exit Sub

For i = 1 To n

a = [B:B].Find([G2], ActiveCell, , 1).Activate

ActiveCell.Offset(0, -1).Resize(1, 6).Copy Cells(K, 8): K = K + 1 ' 如无On Error Resume Next句则本句出错

Next i

End Sub

no10000 · 发表于 2006-10-4 15:37

非常感谢！正需使用

小夏 · 发表于 2006-10-4 21:48

很深奥的哟

xiangtao · 发表于 2006-10-7 16:23

学习！！！！！！！！

xdg3669 · 发表于 2006-10-13 07:39

多谢。慢慢学！

warrant · 发表于 2006-10-13 10:29

乐于助人，正是因为有了很多像fanjy的高手，让我喜欢上了excelhome！！

opiona · 发表于 2006-11-30 12:44

谢谢楼主，非常详细

啊一 · 发表于 2006-12-24 21:43

楼主，对你非常敬佩！鞠躬了！！这样的好帖不顶顶啥帖？

fanrong88 · 发表于 2006-12-25 08:37

		自动登录	找回密码
密码			免费注册