VBA 提取不重複值?vba判斷某一列是否有重複值

2025-06-20 19:05:13 字數 1408 閱讀 1763

1樓:

僅變這道題而言,直接使用 excel 自身的刪除重複項段公升功能會更簡握數老單:

選擇這塊去除重複的區域;

主選單中選擇「資料」→「刪除重複項」;

根據提示,預設「資料包含標題」選中,畢迅點選「確定」按鈕即可。

2樓:網友

這個問題雖然已經完結了,不過我還是說兩句吧。

你這個問題其實不必用字典,有更簡單的方法。

就是刪除重複項那個辦法,你錄個巨集,讓**自動實現刪除重複項的動作。

兩旅汪伏句**搞定。

sub shishi()

range("a1:d7").copy range("g1")range("g1:

j7").removeduplicates columns:=array(1, 2, 3, 4), header:

xlyesend sub

這段**的意思是:

把a1:d7複製並貼上到g1

把g1:j7刪除重複項。

就這麼簡單。

注意有可能修改的引數:

header:=xlyes,表示這個區域包含一行標題。如果沒拆攜有標題就改成header:=xlno

array(1, 2, 3, 4),表示這個陵閉區域的列數的陣列,共有幾列就是1至幾。

3樓:帳號已登出

可以啊,用字典來處理把abcd作為關鍵字。

excel (求助)用vba自動提取不重複姓名

4樓:網友

舉例說明。

要求將a列姓名取出後去除重複值,然後輸出到c列。

第一步:點選開發工具-visual basic。選擇sheet1,輸入**如下:

sub 姓名去重()

dim jgarr(1 to 100)

zz = 0

sheets("sheet1").activateset zd = createobject("")hh = 2

do while cells(hh, 1) <""

if not , 1).text) thencells(hh, 1).text, zzzz = zz + 1

jgarr(zz) = cells(hh, 1).textend if

hh = hh + 1

loop輸出結果。

range("c2:c100000").clearcontentsfor i = 1 to zz

cells(2 + i - 1, 3) = jgarr(i)next i

end sub

vba判斷某一列是否有重複值

5樓:明佳妙明

excel怎樣快速提取不重複資料個數。

個數大於1有重複。

sql怎麼不重複記錄,sql 怎麼查詢不重複資料

alter table table a add purchase price number a表沒有purchase price列 首先給表a加一列。insert into table a purchase price select purchase price from select table ...

EXCEL中用VBA提取符合條件的數

寫好了,測試通過了 option explicit sub dim arr,arr1,arr2,arr3 dim i,j arr1 array 1,0,3,6,9 arr2 array 1,4,7 arr3 array 2,5,8 i j65536 end xlup row j i while i ...

如何在excel數不重複的名字

見截圖a2 a10中不重複名字的個數在c3 c3輸入 sumproduct 1 countif a2 a10,a2 a10 製作baiexcel 有時輸入excel單元格 du時要求輸入數值的唯一zhi性dao,我們可以通過 專 資料有效性 來防止重複輸屬入,如身份證號碼的輸入 選中需要輸入身份證號...