日日操夜夜添-日日操影院-日日草夜夜操-日日干干-精品一区二区三区波多野结衣-精品一区二区三区高清免费不卡

公告:魔扣目錄網為廣大站長提供免費收錄網站服務,提交前請做好本站友鏈:【 網站目錄:http://www.ylptlb.cn 】, 免友鏈快審服務(50元/站),

點擊這里在線咨詢客服
新站提交
  • 網站:51998
  • 待審:31
  • 小程序:12
  • 文章:1030137
  • 會員:747

excel取不重復值的方法真是多種多樣,比如使用高級篩選、SQL、函數、VBA完成excel取不重復值。下面以一個例子來說明excel取不重復值的方法。

excel取不重復值方法一:高級篩選

  A列姓名有重復的,將A列姓名取不重復值之后放在C列。

  操作方法是:單擊數據——高級,打開“高級篩選”對話框,進行如下圖設置。

excel取不重復值方法二:SQL

  單擊數據——現有連接,單擊最下面的“瀏覽更多”,按照路徑找到文件,彈出的“導入數據”對話框,單擊“屬性”,打開“連接屬性”對話框,切換到“定義”選項卡,在“命令文本”輸入:select distinct 姓名 as 不重復姓名 from [Sheet1$],確定。

excel取不重復值方法三:VBA

  按ALT+F11,打開VBE編輯器界面,單擊插入——模塊,復制下面的代碼,然后按F5鍵運行,在B1開始提取A列不重復姓名。

Sub excel取不重復值()
Dim d As Object
Dim lRow As Long
Dim i As Long
Dim str As Variant
Dim strKey As String
Set d = CreateObject("scripting.dictionary")
lRow = Range("A65536").End(xlUp).Row
str = Range("A1:A" & lRow)
For i = 1 To lRow
strKey = CStr(str(i, 1))
If Not d.exists(strKey) Then
d.Add strKey, strKey
End If
Next i
Range("B1").Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)
End Sub

excel取不重復值方法四:函數

  B1單元格留空或者輸入文字“不重復姓名”,然后在B2單元格輸入公式:=OFFSET($A$1,MATCH(,COUNTIF($B$1:B1,$A$2:$A$15),),)&"",按ctrl+shift+enter,三鍵結束數組公式,完成不重復值提取。

分享到:
標簽:姓名 方法 重復 Excel函數
用戶無頭像

網友整理

注冊時間:

網站:5 個   小程序:0 個  文章:12 篇

  • 51998

    網站

  • 12

    小程序

  • 1030137

    文章

  • 747

    會員

趕快注冊賬號,推廣您的網站吧!
最新入駐小程序

數獨大挑戰2018-06-03

數獨一種數學游戲,玩家需要根據9

答題星2018-06-03

您可以通過答題星輕松地創建試卷

全階人生考試2018-06-03

各種考試題,題庫,初中,高中,大學四六

運動步數有氧達人2018-06-03

記錄運動步數,積累氧氣值。還可偷

每日養生app2018-06-03

每日養生,天天健康

體育訓練成績評定2018-06-03

通用課目體育訓練成績評定