[VBA程序]：查找到文字并在其后加excel单元格内的文字？

tsml

有下面一个程序，我怎么编也编不好，哪位老兄能帮我编一下，最好用VBA，拜谢了！！！

设有一个excel表name.xls如下，四列两行，上行为姓名，下行为年龄，

     A          B          C          D

1    张三   李四    王五     赵六

2     30     32       34       28


用鼠标在CAD中框中一些文字后，执行程序，就可以与excel表中的相比较，当文字中包含“王五”，该文字就变为“王五，34”，再接着找下一个被选中的文字重选与该表比较，找完为止。