Subtotal在vba中怎么完善一下

边缘码农 · 发表于 2024-7-9 10:46

hhxq001 发表于 2024-7-9 10:39
我实验不行呢

Sheets("结果").Range("a1").Formula = "=Subtotal(103, a3:a30000) & ""条""”

试试这样行不行。

sdytsxd991122 · 发表于 2024-7-9 10:51

Range("a1").Formula = "=Subtotal(103, a2:a30000) & ""条"""

ykcbf1100 · 发表于 2024-7-9 10:52

hhxq001 发表于 2024-7-9 10:39
我实验不行呢

那你第一条代码为什么会对呢？

杨建营 · 发表于 2024-7-9 10:52

用VBA输入公式，有“的需要再加上一个“，否则就报错了。就像你的“条”，本来有“”，所以要“”条“”。

tanglf188 · 发表于 2024-7-9 11:13

试试这样：
Sheets("结果").Range("a1").Formula = "=Text(Subtotal(103, a3:a30000)," & Chr(34) & "0条" & Chr(34) & ")"

micch · 发表于 2024-7-9 11:55

你在单元格写好公式，然后代码提取出来看看是啥样。一般来说公式中有引号，写在代码里的时候要用两个引号

ykcbf1100 · 发表于 2024-7-9 12:03

公式录制宏的代码是这样的：
ActiveCell.FormulaR1C1 = "=SUBTOTAL(103, R[1]C[-2]:R[29999]C[-2]) & ""条"""

小凡、、、 · 发表于 2024-7-9 13:28

饮冰e士 · 发表于 2024-7-10 10:08

一直把VBA里的引号用不好，不会用3个引号，只会最笨的办法

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

[求助] Subtotal在vba中怎么完善一下