查找到文字并在其后加excel单元格内的文字？

tsml

做设计时，经常要在CAD图上根据一些表格上的参数，添加对应的相关参数，哪位老兄能帮我编一下，最好用VBA，拜谢了！！！

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

      A      B       C        D

1    张三   李四    王五     赵六

2     30     32      34      28


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