怎么用vba提取某单元格字符串中指定字符的位置？谢谢先！

cscnnn · 发表于 2018-9-23 11:34

如单元格cell(5,3)有字符串”ABCDEFGH,IJKLMO“，要得到"D"的字符位置
在单元格中可以直接用=find("D“,C5)来取得D的起始位置
用VBA要怎么实现？
求高手支招，谢谢先！

微笑12345 · 发表于 2018-9-23 11:37

VBA也可以借用工作表函数
application.worksheetfunction.find("d",c5)

xiangbaoan · 发表于 2018-9-23 11:48

instr([c5], "D")'顺着找
instrrev([c5], "D")'倒着找
比函数find好，找不到返回0，不是错误值。

cscnnn · 发表于 2018-9-23 13:05

xiangbaoan 发表于 2018-9-23 11:48
instr([c5], "D")'顺着找
instrrev([c5], "D")'倒着找
比函数find好，找不到返回0，不是错误值。

可以了，非常感谢！

cscnnn · 发表于 2018-9-23 13:06

微笑12345 发表于 2018-9-23 11:37
VBA也可以借用工作表函数
application.worksheetfunction.find("d",c5)

学习了，这个试了也可以返回正确的值，非常感谢！

cscnnn · 发表于 2018-9-23 13:29

xiangbaoan 发表于 2018-9-23 11:48
instr([c5], "D")'顺着找
instrrev([c5], "D")'倒着找
比函数find好，找不到返回0，不是错误值。

你好，再加个问题麻烦你下，如果单元格中有多个要查询的字符的，有没办法一个个统计各各字符所在的位置？
比如ABCDEFDABCDEFG,我要找出所有D的位置要用什么函数来查询？
我找了InStr中我查了好像是没办法添加起始搜索位置，不然就可以把第一个找到的做为起始位置

xiangbaoan · 发表于 2018-9-23 13:36

cscnnn 发表于 2018-9-23 13:29
你好，再加个问题麻烦你下，如果单元格中有多个要查询的字符的，有没办法一个个统计各各字符所在的位置？ ...

n = instr(5,"ABCDEFDABCDEFG", "D")
从第5个字符开始查，这里n返回的结果是7

cscnnn · 发表于 2018-9-23 13:44

xiangbaoan 发表于 2018-9-23 13:36
n = instr(5,"ABCDEFDABCDEFG", "D")
从第5个字符开始查，这里n返回的结果是7

明白了，就是把起始点设在第1个条件，
b = InStr(sht1.Cells(5, 3), aa)
d = InStr(b + 1, sht1.Cells(5, 3), aa)
简单试了下，有找到返回整体的位置值，没找到返回0，谢谢！

微笑12345 · 发表于 2018-9-23 13:50

xiangbaoan 发表于 2018-9-23 11:48
instr([c5], "D")'顺着找
instrrev([c5], "D")'倒着找
比函数find好，找不到返回0，不是错误值。

受教了，果然是高手

xiangbaoan · 发表于 2018-9-23 13:57

微笑12345 发表于 2018-9-23 13:50
受教了，果然是高手

哪里，正在学习的路上……

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

[求助] 怎么用vba提取某单元格字符串中指定字符的位置？谢谢先！