1樓：匿名使用者
按下alt+f11,選單:插入-模組,複製下面**.退出
然後在c1輸入
=order(a1,b1)
以後這個函式可以通用.裡面兩個引數,你可以相應改變單元格.也可以手工輸入.
public function order(byval m as string, byval n as string) as string
dim a() as string
dim y as integer
redim a(1 to len(m)) as string
y = 0
for x = 1 to len(m)
if instr(1, n, mid(m, x, 1)) > 0 then
y = y + 1
a(y) = mid(m, x, 1)
end if
next
for x = 1 to len(m)
order = order & a(x)
next
redim a(1 to len(n)) as string
y = 0
for x = 1 to len(n)
if instr(1, m, mid(n, x, 1)) = 0 then
y = y + 1
a(y) = mid(n, x, 1)
end if
next
for x = 1 to len(n)
order = order & a(x)
next
end function
你的另一個問題
public function order(byval m as string, byval n as string) as string
dim a() as string
dim y as integer
redim a(1 to len(m)) as string
y = 0
for x = 1 to len(m)
if instr(1, n, mid(m, x, 1)) > 0 then
y = y + 1
a(y) = mid(m, x, 1)
end if
next
for x = 1 to len(m)
if instr(1, n, mid(m, x, 1)) = 0 then
y = y + 1
a(y) = mid(m, x, 1)
end if
next
for x = 1 to len(m)
order = order & a(x)
next
end function
改下**就好了
2樓：匿名使用者
a1、b1本身中有重複的數嗎？
等高人來吧。。。。
excel如何去掉同單元格內重複的文字
function qu rng as range dim dic as object set dic createobject scripting.dictionary arr split rng.value,for i 0 to ubound arr if dic.exists arr i fal...
Excel單元格內怎麼使用乘法，excel表格中乘法函式是怎麼用的？
與非 方法如下 1 開啟excel，找到需要存放結果的單元格 2 如果是兩個 內的值相乘，例如a4 b4輸入 a4 b4即可 3 如果是單個 乘數字，例如0.9 b6，輸入 0.9 b6即可 4 多個數字相乘方法相同 公式按特定順序計算數值。microsoft excel 中的公式通常以等號 開始，...
excel單元格內公式相加，excel怎麼在一個單元格內數字求和公式
不能在a3中輸入 a1 a2 而是應該在a3中輸入以下公式 left a1,find a1 1 mid a1,find a1 1,len a1 left a2,find a2 1 mid a2,find a2 1,len a2 相當於將a1，a2中的數字逐一拆開後再計算。如果你的a1單元格的數字內容...