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

sxbjzjf110

改为数组快

准提部林

业务员 发表于 2023-2-24 06:52
请问"|" 这符合什么意思呢？没百度到可能就是分隔吧

以關鍵字(KEY)來說, 它是"連接符", 這是較謹慎的作法;
如: A AA A..及 AA A A
...不加連接符, 兩個都是 AAAA
...加入連接符, 即為 A|AA|A 及 AA|A|A...寫代碼...務必要養成這習慣

當然, 若要需要分別取出各單元文本, 它又是"分隔符"~~

业务员

准提部林 发表于 2023-2-24 10:19
以關鍵字(KEY)來說, 它是"連接符", 這是較謹慎的作法;
如: A AA A..及 AA A A
...不加連接符, 兩個都是 ...

T = Mid(xD(Arr(i, 1) & "|" & Arr(i, 3)), 2)
为什么从第二个字符开始呢，我看应该是/要跳过

业务员

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

觉得写的很简洁清楚

准提部林

业务员 发表于 2023-2-24 11:11
T = Mid(xD(Arr(i, 1) & "|" & Arr(i, 3)), 2)
为什么从第二个字符开始呢，我看应该是/要跳过

TT剛開始是""空字符
TT = TT & "|" & "A"....這時 TT= "|A"
接著....TT = TT & "|" & "B"....這時 TT = "|A|B"

到最後..第一個"|"是多出來的, 用 MID(TT, 2)....就是 "A|B"

业务员

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

修改之后，我8000行的运算时间由65秒降低到28秒。厉害！

准提部林

就以原檔來看, 8000行..應花不了幾秒(甚至秒內)...
要用到28秒, 可能檔案中還有其它公式或不知原因干擾,
可在程序前面關閉自動計算,
Application.Calculation = xlManual
填完結果後再開啟,
Application.Calculation = xlAutomatic

自動計算的設定, 可用錄錄取得~~