1樓：
終於弄明白你的意思了。修改一個通用的
sub 一次的數()
dim arr
dim ir&, x&, y&, i&
dim k$, t$, t1$
set d = createobject("scripting.dictionary")
ir = range("a65536").end(xlup).rowarr = range("a1:
a" & ir).valuet1 = arr(ubound(arr), 1)for x = ubound(arr) - 1 to 1 step -1
if arr(x, 1) = t1 thenn = x + 1
exit for
end if
next x
for y = ubound(arr) to n step -1if not d.exists(arr(y, 1)) thend.add arr(y, 1), ""
t = arr(y, 1)
for x = ubound(arr) to n step -1if arr(x, 1) = t theni = i + 1
if i > 1 then
exit for
end if
end if
next x
if i < 2 then
if k = "" then
k = t
else
k = k & "," & t
end if
end if
end if
i = 0
next y
k = left(k, len(k))
msgbox "只出現過一次的字元是:" & kend sub
2樓：匿名使用者
for i=count to 2 step by-1if countif(range(cells(2,1),cells(count,1)),cells(i,1))=1 then
msgbox "第" & i & "行的數只出現一次，值為" & cells(i,1).value
cells(i,1).select
用手機編的，只是想法，一些基本的語句自己寫一下
3樓：匿名使用者
=min(if(countif(a:a,row(a1:a5))=1,row(a1:a5)))
按「ctrl+shift+回車」確定
4樓：匿名使用者
這個容易，hi我，我明天下班後幫你搞定
5樓：匿名使用者
用資料透視表呀，一下子就知道結果了
vba刪除excel資料，vba中怎麼清空工作表中的資料
對於刪除重複資料，excel 2007中有一個功能可以刪除，不需要vba程式設計。方法 選中重複資料出現的單元格區域 選單 欄 資料 刪除重複項 點選 確定 即可如圖 在excel開啟控制元件工具箱，在excel中新增一個button commandbutton1 然後在button上滑鼠右鍵 檢視...
請問如何用VBA將EXCEL檔案中的資料複製到別EXCEL檔案相同的位置
sheet1的區域a1 c3拷貝到sheet2的區域a1 c3 sheet1.range a1 c3 copy sheet2.range a1 c3 丙雅弘雨凝 sub aaa dim sh1 as worksheet dim sh2 as worksheet set sh1 workbooks 1...
Excel表中通過VBa對比資料的語句
你給的資訊太少。比如具體哪些部分出問題了。另，你這麼寫肯定是有問題的，巢狀太多了。一般來說3層，最多4層巢狀是規範。你這個完全可以用lookup，或者find來實現。檢查下是否沒核對出來的資料中包含空格或換行等，可以去掉空白字元後再比較。如何將excel工作表的資料與access的資料做比較，檢視是...