Question

VB打开excel，然后在excel工作表中搜索某字符串。该字符串有多个，如何依次进行搜索并获取字符串的位置？

Answer 1

你要做什么？说出来，别人可以用公式跟你实现。能不用VB就不用。

Answer 2

你尝试使用数组功能，然后迭代搜索并取值。

追问

能说的详细一点吗？或者有示例程序吗？我是用Set findID = Excel_sheet.Cells.Find(strID)来搜索的，但是只是搜索到第一个字符串，后面的就不知道怎么搜索了？

Answer 3

比如从A列到C列 查找位置
range("a:c").find("你好").address

就是查找出位置 比如 $a$100

温馨提示：如果不存在会出错，那么
一种方法：你就是前面加一条
if application.worksheetfunction.countif(range("a:c"),"你好")>0 then

上面的语句
end if

方法二：
在该条语句之前加一条
on error resume next
出错不提示，并继续执行
就可以了

追问

查到第一个之后“你好”，怎么查第二个？

追答

比如有3个
set str1= range("a:c").find("你好")
for i=1 to 3
addr=str1.address
msgbox("第" & i & "个地址:" & addr)
if i<3 then
set str1 = range("a:c").findnext(str1)
end if
next

追问

如果不知道三个，并且数目不确定，该怎么一步步往下搜索，搜索完当前工作表自动退出呢？

追答

bbb = Application.WorksheetFunction.CountIf(Range("a:g"), "*你好*")

这条可以模糊查找 A：G列范围里面有多少个包含 “你好” 的单元格

追问

set str1 = range("a:c").findnext(str1).
为什么我的findnext查找一条信息时，查到的结果不是“你好”，这是什么原因呢？查到另外的字符段上去了？

追答

会吗 ,你能把整个excel发给我看看吗 zzhiling@qq.com

Answer 4

要求说清楚。发邮箱。308549083@qq.com