关于字符串拆分成数组的问题

jcc013

最近在帮同事做一个工具，设想是这样的：
sheet1为基础数据，在sheet2中填写不带行数的公式（例如：A+B*C-D），工具可以自动利用sheet2中的公式在sheet1相应的单元格中填写计算后的结果。
但我在写代码的时候发现，sheet2中的公式有些比较复杂，并且只写出的参与计算的列字母，不知道如何能把它们拆分出来并加上行数。
在这里请教大神想想办法，先谢谢了！

可能表达有点不清楚，可以参考附件。

不知道为什么

代码供测试：

Sub test1()
Application.ScreenUpdating = False
Dim brr()
arr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 5)
For i = 2 To UBound(arr)
    brr(i - 1, 1) = arr(i, 2) * arr(i, 4)
    brr(i - 1, 2) = arr(i, 6)
    brr(i - 1, 3) = arr(i, 7)
    brr(i - 1, 4) = arr(i, 2) * arr(i, 3) + arr(i, 6) + arr(i, 7)
    If Len(arr(i, 4)) = 0 Or arr(i, 4) = 0 Then
      brr(i - 1, 5) = "无重量"
     Else
      brr(i - 1, 5) = arr(i, 2) * arr(i, 3) / arr(i, 4)
    End If
Next i
Range("e2").Resize(UBound(arr), 5) = brr
Application.ScreenUpdating = True
End Sub

不知道为什么

刚忘上附件了，补上

liucf

看看能满足你的要求吧?

jcc013

不知道为什么 发表于 2018-4-6 23:35
刚忘上附件了，补上

感谢回复。
但不是我想要的结果，可能是我没表述清楚，sheet2的公式不是固定不变的，有可能会变化。
我想要的是从公式中提取列（字母部分）和运算符，再在sheet1中参与计算。
比如公式 B*C+F，想提取出一个数组 arr("B","*","C","+","F")，再结合sheet1中的行数进行计算：
st1.range("H" & row) = "=" & st1.range(arr(0) & row) & arr(1) & st1.range(arr(2) & row) & arr(3) & st1.range(arr(4) & row)

jcc013

liucf 发表于 2018-4-7 08:58
看看能满足你的要求吧?

对正则一知半解，能理解您的意思是把公式那串字符中的字母替换成字母+行号。
但我尝试在sheet1增加新的列和新的公式时却运行不了。。。
还有一点不明白的地方，function只定义了两个数据变量，为什么调用的时候写了三个变量？

liucf

1."但我尝试在sheet1增加新的列和新的公式时却运行不了。"→增加后要相应更改或增加程序语句
2."function只定义了两个数据变量，为什么调用的时候写了三个变量？"→调用的时候是两个变量,第一个一".",不是","

jcc013

liucf 发表于 2018-4-7 09:37
1."但我尝试在sheet1增加新的列和新的公式时却运行不了。"→增加后要相应更改或增加程序语句
2."function ...

太好了，我也发现我问了个傻问题，重新修改后已经可以使用了！
谢谢！！！
非常感谢！！

liucf

如增加一句:
S1.Cells(I, "K") = TS(S2.[B5], I)
则是在sheet1中的K列应用sheet2中[B5]的公式

LMY123

Sub 分类汇总()
数组 = Sheet1.UsedRange.Offset(1, 0)
上限 = UBound(数组)
维度 = UBound(数组, 2)
    For 行 = 1 To 上限
        数组(行, 1) = 数组(行, 1)
        数组(行, 2) = 数组(行, 2)
        数组(行, 3) = 数组(行, 3)
        数组(行, 4) = 数组(行, 4)
        数组(行, 5) = 数组(行, 2) * 数组(行, 4)
        数组(行, 6) = 数组(行, 2) * 数组(行, 6)
        数组(行, 7) = 数组(行, 2) * 数组(行, 7)
        数组(行, 8) = 数组(行, 2) * 数组(行, 3) + 数组(行, 6) + 数组(行, 7)
        数组(行, 9) = 数组(行, 2) * 数组(行, 3)
    Next
Sheet1.[A2].Resize(上限, 维度) = 数组
End Sub