单元格的公式改用vba怎么表达？

chxw68 · 发表于 2023-2-23 10:24

猜测的。。

业务员 · 发表于 2023-2-23 13:20

chxw68 发表于 2023-2-23 10:24
猜测的。。

谢谢老师

tanglf188 · 发表于 2023-2-23 14:40

业务员 · 发表于 2023-2-23 21:41

本帖最后由业务员于 2023-2-23 22:37 编辑

chxw68 发表于 2023-2-23 10:23

变量类型改一下就可以了，行

业务员 · 发表于 2023-2-23 21:52

本帖最后由业务员于 2023-2-23 22:13 编辑

zxsea_7426 发表于 2023-2-22 23:32

测试了，一定程度符合要求，我就是要去理解内涵了

。但是第E列结果与公式计算的有区别，没那么准确，但是大体相符合。
运算效率上没有提高呢。

sxbjzjf110 · 发表于 2023-2-23 22:04

本帖最后由 sxbjzjf110 于 2023-2-23 22:06 编辑

sxbjzjf110 · 发表于 2023-2-23 22:05

本帖最后由 sxbjzjf110 于 2023-2-23 22:06 编辑

准提部林 · 发表于 2023-2-23 22:24

Sub TEST_A1()
Dim Arr, xD, T$, i&
Set xD = CreateObject("scripting.dictionary")
Arr = Sheet2.[a1].CurrentRegion
For i = 2 To UBound(Arr)
T = Arr(i, 1) & "|" & Arr(i, 2)
xD(T) = xD(T) & "/" & Arr(i, 3)
Next i
Arr = Sheet1.[a1].CurrentRegion
For i = 2 To UBound(Arr)
T = Mid(xD(Arr(i, 1) & "|" & Arr(i, 3)), 2)
Arr(i - 1, 1) = Split(T & "/", "/")(0)
Arr(i - 1, 2) = T
Next i
Sheet1.[e2].Resize(UBound(Arr) - 1, 2) = Arr
End Sub

业务员 · 发表于 2023-2-23 22:30

sxbjzjf110 发表于 2023-2-23 22:05

也是正确的，但是我对比了下，效率与公式下拉相比，并无优势呢。

业务员 · 发表于 2023-2-24 06:52

本帖最后由业务员于 2023-2-24 08:02 编辑

准提部林发表于 2023-2-23 22:24
Sub TEST_A1()
Dim Arr, xD, T$, i&
Set xD = CreateObject("scripting.dictionary")

请问"|" 这符合什么意思呢？没百度到

可能就是分隔吧

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

[求助] 单元格的公式改用vba怎么表达？

评分

评分

评分