使用通配符不对，怎么修改？

看飞鸟的金鱼 · 发表于 2024-10-14 15:20

本帖最后由看飞鸟的金鱼于 2024-10-14 15:43 编辑

问题1、红色部分，想表示含PXX尖桩，XX想用通配符拼接表示，怎么写？
问题2、绿色部分，想部前面公式&尖桩，怎么写，才是正确的？

For xx = bt + 1 To 1000
If InStr(Cells(xx, 2), "P" & "*" & "C尖桩") Then
Cells(xx, 4).Formula = "=left(cells(xx,3),find(" - ",cells(xx,3))-1)&"尖桩 ""
End If
Next xx

kevinchengcw · 发表于 2024-10-14 15:28

instr不支持通配符，用like

看飞鸟的金鱼 · 发表于 2024-10-14 15:41

本帖最后由看飞鸟的金鱼于 2024-10-14 15:42 编辑

kevinchengcw 发表于 2024-10-14 15:28
instr不支持通配符，用like

感谢，问题2怎么写才是对的？而且第4列不是公式，不知道自己哪里错了。

kevinchengcw · 发表于 2024-10-14 15:45

本帖最后由 kevinchengcw 于 2024-10-14 16:01 编辑

Cells(xx, 4).Formular1c1 = "=left(rc[-1],find(""-"",rc[-1])-1)&""尖桩"""

看飞鸟的金鱼 · 发表于 2024-10-14 15:49

本帖最后由看飞鸟的金鱼于 2024-10-14 16:09 编辑

再帮我修改一下代码，感谢！

小凡、、、 · 发表于 2024-10-14 15:58

本帖最后由小凡、、、于 2024-10-14 16:10 编辑

gs = "=left(" & Cells(xx, 3).Address(0, 0) & ",find("" - "", " & Cells(xx, 3).Address(0, 0) & ")-1)&""尖桩"""
Cells(xx, 4).Formula = gs

看飞鸟的金鱼 · 发表于 2024-10-14 16:15

小凡、、、发表于 2024-10-14 15:58
gs = "=left(" & Cells(xx, 3).Address(0, 0) & ",find("" - "", " & Cells(xx, 3).Address(0, 0) & ")-1)& ...

这个怎么修改？

小凡、、、 · 发表于 2024-10-14 16:22

看飞鸟的金鱼发表于 2024-10-14 16:15
这个怎么修改？

你双引号使用得不对
Cells(xx , 4).FormulaR1C1 = "=left(rc[-1],find("" - "", rc[-1])-1)&""尖桩"""

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