1樓：匿名使用者
將這個功能單獨做個函式，備用：
--------------
sub macro2()
dim s$
s = "[2011020001][辦公裝置購置費][2011302][31002]"
msgbox ichrplace(s, "[", 3) & chr(10) & s
end sub
function ichrplace(byval istr$, ichr$, n%)
'istr：字串
'n： 找第幾個
'ichr：找什麼字元
dim i%
on error resume next
for i = 1 to n - 1
istr = replace(istr, ichr, "|", 1, 1)
next
i = instr(1, istr, ichr)
if err.number <> 0 or i = 0 then
ichrplace = "未找到!"
err.clear
else
ichrplace = i
end if
end function
2樓：匿名使用者
a1為[2011020001][辦公裝置購置費][2011302][31002]，執行**，取得的i值就是位置了。
sub aaa()
n = 0
m = cells(1, 1)
for i = 1 to len(m)
if mid(m, i, 1) = "]" thenn = n + 1
end if
if n = 2 then
exit for
end if
next
msgbox (i)
end sub
delphi中如何呼叫函式過程，在VBA中如何呼叫過程與函式？
火籬笆 procedure tform1.button1click sender tobject begin getfilecount srcpath,srcfilename end srcpath,srcfilename必須賦值 function getfilecount srcpath,srcf...
2019中如何設定多級編號，word2010中如何設定多級編號
血刺聆聽 你要用多級標題，就必須要包括一級標題 就是你的第n章 然後再設定二級標題的時候，選擇 高階 下的 正規形式編號 你的問題應該是第n章是用的普通編號 甚至是自己輸入的 二級標題雖然用的是多級編號，但在編號中二級標題用的是一級編號，而且在一級編號前自己加上去的1.請採納。 word2010中設...
在VBA中如何用陣列給另陣列賦值
通過陣列迴圈的方式進行陣列賦值。示例 dim names 定義一個初始化陣列dim dest 3 定義一個要賦值的陣列 賦值names array 小明 小紅 效力 張明 王武 通過ubound 函式計算上界，lbound計算陣列下界for i lbound dest to ubound dest ...