1樓：網友
dim b(9) as double
for i =0 to 9
b(i)=a(i)
for j=o to i-1
if b(j)=a(i) then
n=n+1b(j)=-1
end if
nextnext
**運乎戚行結束後就知道有幾個值為-1的項了，啟頃困重悄念新為陣列賦值即可。
dim credim c(9-n) as double以下**你自己寫吧。
2樓：匿名使用者
用dictionary陣列，它的key值是唯一的，重複賦值將出錯，利用錯誤處理過程忽略即可。
excel vba 怎麼對去重後的資料進行個數統計？
3樓：陽光上的橋
測試資料：<>
程式**：<>
執行效果：<>
**文字：option explicit
sub 提重統計()
dim arr, db, i&, k, vset db = createobject("")arr = range("a1").currentregionfor i = 2 to ubound(arr)v = trim(arr(i, 1))
k = trim(arr(i, 2))
if not then k, createobject("")db(k)(v) =true
next i
redim arr(1 to , 1 to 2)i = 0for each k in
v = db(k).count
i = i + 1
arr(i, 1) =k
arr(i, 2) =v
next k
range("d3").resize(i, 2) =arrend sub
求助vba刪除相同項
4樓：始甘麼安娜
資料量太大，vba還不如內建的函式計算的快，下標越界估計是因為使用的整形資料型別不正確。
你可以這樣試試：
1.將需要比較的幾列字串連線起來，形成乙個新的列，權且記為w列。
2.將w列公式貼上為數值(很關鍵，排序的時候帶著公式會非常慢)3.將w列排序。
4.在新一列(假設x列)
x1=1，然後x2寫公式為(=if(w1=w2,x1+1,1)。目的是將w列相同的記錄在x列編乙個從1開始的流水號。
5.將x列排序，那麼x列為1的記錄靠在一塊，篩選x列為1的記錄，那麼這些資料就是從原來重複的資料裡面每個挑乙個出來組成的集合。
excel2007如何去除重複資料
5樓：小小小兔
excel2007以上版本，自帶刪除重複項功能，可以快速刪除excel**中的重複資料。
1.刪除a列中的重複資料：
2.選擇a列，資料，刪除重複項：
3.因為只有一列，這裡不需要設定，如果有多列，勾選需要刪除重複的列，確定：
4.得到結果如下：
6樓：網友
先選擇需要處理的資料單元格區域，再「資料」→「刪除重複項」
excel如何抽取同樣列名的資料，用VBA程式設計也可以，高分，急
點尺度欄，可選中整列，然後點選資料 篩選 自動篩選，中會出現倒三角標記，點選下拉，選擇排序即可。方便的話發到 chengyan420 126.com 例如 range rows 3 rows 5 insert shift xldown excel 如何 用 vba 根據第一行的列名獲取整列，並做相關...
請問如何用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.xls s...
用excel去掉重複的資料
1.複製a1到b1,選擇b2,進入資料選單 分列,在對話方塊中選擇特殊符號,下一步,逗號,完成.複製b2分列出的所有單元格區域,選擇b2單元格,點選右鍵 選擇性貼上 轉置。選擇b列,資料選單 篩選 高階篩選，在對話方塊中勾選選擇不重複內容。將結果複製到word中貼上,進入 選單 轉換，轉換為文字,特...