请教一下，如果格式内容是这种表达形式，可以用什么公式得到结果吗？

swl4561255

1. Sub test()
   
2. arr = Sheets("数据").Range("A1").CurrentRegion
   
3. br = [A1].End(4).Row
   
4. brr = Range("B2:B" & br)
   
5. Dim crr(1 To 100, 1 To 1)
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. For i = 2 To UBound(arr)
   
8.     d(arr(i, 1)) = arr(i, 2)
   
9. Next
   
10. k1 = d.keys
    
11. t1 = d.items
    
12. For j = 1 To br - 1
    
13.     mystr = Replace(brr(j, 1), "、", "+")
    
14.     For k = 0 To d.Count - 1
    
15.         If InStr(mystr, k1(k)) Then
    
16.             mystr = Replace(mystr, k1(k), t1(k))
    
17.         End If
    
18.     Next
    
19.     crr(j, 1) = Evaluate("=" & mystr)
    
20. Next
    
21. [C2].Resize(br - 1, 1) = crr
    
22. End Sub
    

复制代码

咔咔乱坠

1. =LET(a,IFNA(TEXTSPLIT(B2,"*","、"),1),SUM(VLOOKUP(TAKE(a,,1),数据!A:B,2,0)*DROP(a,,1)))

复制代码

mykitami

=LET(a,IFNA(TEXTSPLIT(B2,"*","、",1),1),SUM(VLOOKUP(TAKE(a,,1),数据!$A$2:$B$4,2,)*TAKE(a,,-1)))

qzaa789z

swl4561255 发表于 2024-4-19 17:10

可以请教一下 这个《按钮1》想把它移动到旁边一点 怎么设置呀，移动到EF那边去

swl4561255

qzaa789z 发表于 2024-4-22 09:12
可以请教一下 这个《按钮1》想把它移动到旁边一点 怎么设置呀，移动到EF那边去

光标移在按纽上时点右键，出现选中状态时，按住左键不动，就可以拖动按纽到其他位置了。

qzaa789z

swl4561255 发表于 2024-4-22 09:43
光标移在按纽上时点右键，出现选中状态时，按住左键不动，就可以拖动按纽到其他位置了。

额。下标越界是我哪里弄冲突了么


点进去 是这行标黄了
   crr(j, 1) = Evaluate("=" & mystr)

swl4561255

qzaa789z 发表于 2024-4-22 10:10
额。下标越界是我哪里弄冲突了么

检查一下是不是定义的数组维度与实际不符？或是循环变量的取值是不是超过了数组的上下限？最好是上传附件，好帮你检查调试。

qzaa789z

swl4561255 发表于 2024-4-22 10:20
检查一下是不是定义的数组维度与实际不符？或是循环变量的取值是不是超过了数组的上下限？最好是上传附件 ...

额，谢谢，就是不好意识 再传才想直接问。。。

qzaa789z

swl4561255 发表于 2024-4-22 10:20
检查一下是不是定义的数组维度与实际不符？或是循环变量的取值是不是超过了数组的上下限？最好是上传附件 ...

哦 我明白了 您设置的 上下线是100是吧 我看到了

swl4561255

qzaa789z 发表于 2024-4-22 10:28
哦 我明白了 您设置的 上下线是100是吧 我看到了

1. Sub test()
   
2. arr = Sheets("原表").Range("A1").CurrentRegion
   
3. brr = Sheets("数据").Range("A1").CurrentRegion
   
4. Dim crr(1 To 10000, 1 To 1)
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For i = 2 To UBound(brr)
   
7.     d(brr(i, 1)) = brr(i, 2)
   
8. Next
   
9. k1 = d.keys
   
10. t1 = d.items
    
11. For j = 2 To UBound(arr)
    
12.     mystr = Replace(arr(j, 2), "、", "+")
    
13.     For k = 0 To d.Count - 1
    
14.         If InStr(mystr, k1(k)) Then
    
15.             mystr = Replace(mystr, k1(k), t1(k))
    
16.         End If
    
17.     Next
    
18.     crr(j - 1, 1) = Evaluate("=" & mystr)
    
19. Next
    
20. [C2].Resize(UBound(crr), 1) = crr
    
21. Set d = Nothing
    
22. End Sub
    

复制代码