求助单元格VBA写入公式多出个@符号

斗笠渔翁 · 发表于 2023-4-22 15:23

本帖最后由斗笠渔翁于 2023-4-22 15:25 编辑

求助，VBA在C列写入公式=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(A2,"元",REPT(" ",99)),ROW($1:$9531),99),),2,99)*1,""))，得到的结果却多出个@符号，=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(A2,"元",REPT(" ",99)),@ROW($1:$1000),99),),2,99)*1,""))，不如何解决，请高手帮新手解惑，谢谢！
代码如下，请指正
Sub cs()
Dim i%
For i = 2 To [a65536].End(3).Row
Cells(i, 3) = "=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(a2,""元"",REPT("" "",99)),ROW($1:$1000),99),),2,99)*1,""""))"
Next i
End Sub

ww87725244 · 发表于 2023-4-22 15:41

为什么一定要写公式呢？

Sub aa()
Dim d, ar, i, s, d1
Set d = CreateObject("vbscript.regexp")
With Worksheets("sheet1")
ar = .UsedRange
With d
.Global = True
.Pattern = "\d+(?=元)"
For i = 2 To UBound(ar)
Set s = .Execute(ar(i, 1))
For Each d1 In s
ar(i, 4) = ar(i, 4) + Val(d1)
Next
Next
End With
End With
End Sub

复制代码

zhjlgaojuan · 发表于 2023-4-22 15:47

Cells(i, 3).FORMULAARRAY = "=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(a2,""元"",REPT("" "",99)),ROW($1:$1000),99),),2,99)*1,""""))"

斗笠渔翁 · 发表于 2023-4-22 16:22

zhjlgaojuan 发表于 2023-4-22 15:47
Cells(i, 3).FORMULAARRAY = "=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(a2,""元"",REPT("" "",99)),ROW($1:$1 ...

谢谢！完美解决

斗笠渔翁 · 发表于 2023-4-22 17:33

数组公式引用变量：在公式中插入变量：" & 变量 & "即
Cells(i, 3).FormulaArray = "=SUM(IFERROR(MID(TEXT(MID(SUBSTITUTE(a" & i & ",""元"",REPT("" "",99)),ROW($1:$1000),99),),2,99)*1,""""))"

斗笠渔翁 · 发表于 2023-4-22 17:35

本帖最后由斗笠渔翁于 2023-4-22 17:37 编辑

ww87725244 发表于 2023-4-22 15:41
为什么一定要写公式呢？

特殊情况下需调整金额，我也不会写如此复杂的代码，学习了，谢谢！

斗笠渔翁 · 发表于 2023-4-22 19:41

ww87725244 发表于 2023-4-22 15:41
为什么一定要写公式呢？

测试报错提示，运行时错误'13':类型不匹配

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

[求助] 求助单元格VBA写入公式多出个@符号