性感日本美女视频,韩国激情美女视频

在Excel中經(jīng)常要查找和去除重復(fù)值，下面的6種方法都能實(shí)現(xiàn)這個(gè)目的，其中方法1-3適合于Excel的所有版本，方法4-5僅僅適用于Excel 2007，最后的一種方法是用VBA來實(shí)現(xiàn)的。假設(shè)數(shù)據(jù)區(qū)在A2：A21中，如圖。

    方法一：利用高級(jí)篩選
    1.單擊菜單“數(shù)據(jù)→篩選→高級(jí)篩選”。
    2.在“高級(jí)篩選”對(duì)話框中，選擇“將篩選結(jié)果復(fù)制到其他位置”，并且勾選“選擇不重復(fù)的記錄”，單擊“列表區(qū)域”文本框右側(cè)的按鈕，選擇區(qū)域A2：A21，表示需要篩選的數(shù)據(jù)區(qū)為A2：A21,同樣，將“復(fù)制到”區(qū)域設(shè)置為$C$2，如圖。

    3.單擊“確定”。Excel將把篩選后的結(jié)果放置到C2：C18中，去掉了其中的3個(gè)重復(fù)值。
    方法二：利用公式和排序
    利用COUNTIF函數(shù)來確定區(qū)域中的重復(fù)值。
    1.在B2單元格中輸入公式“=COUNTIF(A$1:A1,A2)=0”，然后雙擊B2單元格右下角的填充柄，公式將自動(dòng)填充到B3：B21。這時(shí)可以看到排在后面的重復(fù)值在B列中都顯示為“FALSE”。

2.選擇區(qū)域A2:B21，然后單擊菜單“數(shù)據(jù)→排序”，選擇主要關(guān)鍵字為列B，同時(shí)選擇“降序”，單擊“確定”?？梢钥吹街貜?fù)的姓名都已排到最后。

    方法三：利用數(shù)據(jù)透視表
    1.選擇A1：A21區(qū)域中的任意單元格，單擊菜單“數(shù)據(jù)→數(shù)據(jù)透視表和數(shù)據(jù)透視圖”，然后直接單擊“下一步”按鈕，在3步驟之2中可以看到“選定區(qū)域”已自動(dòng)設(shè)置為“Sheet1!$A$1:$A$21”，再次單擊“下一步按鈕”，在3步驟之3中，選擇“現(xiàn)有工作表”，區(qū)域選擇C2單元格，然后單擊“完成”按鈕。
    2.在“數(shù)據(jù)透視表字段列表”中，選擇“神雕人物名單”，用鼠標(biāo)左鍵將其拖至行字段區(qū)域，或直接單擊“添加到”按鈕。

3.可以看到Excel已自動(dòng)將重復(fù)值去掉，并拼音順序?qū)⒚麊闻藕昧恕?/font>

方法四：用Excel 2007的條件格式
1.選擇區(qū)域A2:A21，然后單擊功能區(qū)“開始→條件格式→突出顯示單元格規(guī)則→重復(fù)值”，在“重復(fù)值”對(duì)話框中單擊“確定”。

2.可以看到所有重復(fù)的姓名都用淺紅色標(biāo)記出來。選擇一個(gè)姓名，右擊鼠標(biāo)，在彈出的菜單中選擇“排序→升序”，使重復(fù)的姓名排在一起。

3.選擇一個(gè)重復(fù)的姓名，再次單擊鼠標(biāo)右鍵，選擇“排序→將所選單元格顏色放在最前面”，Excel將把重復(fù)的姓名自動(dòng)排在最上面以便查看。

方法五：用Excel 2007中的“刪除重復(fù)項(xiàng)”功能
選擇A2:A21區(qū)域，單擊功能區(qū)“數(shù)據(jù)→刪除重復(fù)項(xiàng)”，在“刪除重復(fù)項(xiàng)”對(duì)話框中單擊“確定”。

Excel 2007自動(dòng)將重復(fù)值刪除，并給出提示。

    方法六：用VBA
    這兩段VBA代碼分別運(yùn)用了Scripting.Dictionary和Collection對(duì)象，并利用了其元素具有唯一性的特點(diǎn)。
    1.用Scripting.Dictionary對(duì)象：
    Sub Uniquedata()
    Dim Cel As Range, Res
    '創(chuàng)建對(duì)象
    Set d = CreateObject("Scripting.Dictionary")
    '遍歷數(shù)據(jù)區(qū)域的單元格
    For Each Cel In Range("A2:A21")
        '判斷單元格內(nèi)容是否為空
        If Cel <> "" Then
            '如果字典對(duì)象中不包含同樣的對(duì)象就添加該對(duì)象
            If Not d.exists(Cel.Value) Then d.Add Cel.Value, Cel.Value
        End If
    Next
    Res = d.Items
    '將對(duì)象中的元素寫入工作表
    For i = 0 To d.Count - 1
        Cells(i + 2, 3) = Res(i)
    Next i
End Sub

    2.用Collection對(duì)象：
Sub Uniquedata1()
    Dim myList As New Collection, Cel As Range, itm, i As Integer
    On Error Resume Next
    '遍歷數(shù)據(jù)區(qū)域的單元格
    For Each Cel In Range("A2:A21")
    '判斷單元格內(nèi)容是否為空
        If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)
    Next
    On Error GoTo 0
    i = 1
    '將非重復(fù)值寫入工作表
    For Each itm In myList
        Cells(i + 1, 3) = itm
        i = i + 1
    Next
End Sub

單擊右側(cè)文件名下載示例源文件：用VBA提取取不重復(fù)值.xls

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看