1樓：匿名使用者
sub kk()
dim i as integer
for i = 2 to 1000
cells(i, 3) = mid(cells(i, 2), 1, 13)
next
end sub
2樓：
' *** 在工作頁面（例如：sheet1）內加個「命令按鈕」其**如下：
private sub commandbutton1_click()
macro1
end sub
'****** 模組**如下：
sub macro1()
for i = 2 to 65535
if len(cells(i, 2).value) = 0 then
exit for
else
bb = strreverse(cells(i, 2).value)
for j = 1 to len(bb)
if isnumeric(mid(bb, j, 1)) = true then
aa = mid(bb, j, len(bb) - j + 1)
exit for
end if
next j
cells(i, 3).value = strreverse(aa)
end if
next i
end sub
3樓：匿名使用者
事例太少,看不出規律,非數字字元是否都是2位?
vb提取字串中符號前面的數字，VB 提取字串中「 」符號前面的數字
private sub command1 click dim st as string dim a as string st 33 abc a mid st,1,instr 1,st,1 msgbox a end sub dim a a split 33.abc print a 0 left 字串,...
Excel怎樣用VBA提取中文字元
gb2312範圍 0xa1a1 0xfefe gbk範圍 0x8140 0xfefe public function hibyte byval word as integer as byte end function public function lobyte byval word as inte...
vb6 0分別提取字串中的中文和英文
沒有專用的函式。可以自己寫一個自定義函式。你的要求並不明確 是分離中英文字元？還是把相鄰段當做一個字串？數字 標點符號怎麼計算？這些都要有明確的目標。關於vb6.0從一個字串提取字串的問題 網頁程式源 裡面會有很多的數字，可能有些數字並不是你需要的吧？那你就在你需要的數字堆裡面找一找規律！比如數字的...