查找特定列中的每个不同单元格值

时间:2015-04-21 19:28:05

标签: excel vba excel-vba excel-2010

很抱歉,如果之前已经问过这个问题。我真的不知道该找什么。我有一张excel表格,在A栏上我有一些看起来像这样的东西

       A
________________  
1 |  Banana
2 |  Banana
3 |  Banana
4 |  Banana
5 |
6 |  Potato
7 |  Potato
8 |  Potato
9 |  Potato
10|
11|  Noodles
12|  Noodles
13|  Noodles
14|  Noodles

但我想将其改为

       H
________________  
1 |  Banana
2 |  Potato
3 |  Noodles

我知道如何在专栏中找到一个单词,但我不知道如何找到所有不同的单词。有一个简单的方法吗?

3 个答案:

答案 0 :(得分:1)

在“数据”标签下,选择“删除重复项”。

答案 1 :(得分:1)

尝试一下:

Sub Macro1()
    Selection.Copy
    Range("A1:A12").Copy Range("H1")
    ActiveSheet.Range("$H$1:$H$12").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

<强> 编辑#1:

要摆脱空格,请改用:

Sub Macro1()
    Selection.Copy
    Range("A1:A12").Copy Range("H1")
    Range("$H$1:$H$12").RemoveDuplicates Columns:=1, Header:=xlNo
    Range("$H$1:$H$12").Cells.SpecialCells(xlCellTypeBlanks).Delete
End Sub

答案 2 :(得分:0)

VBA方法RemoveDuplicates对一个Range进行操作,并且与菜单选项的作用相同。

Microsoft MSDN Reference for Excel 2010 RemoveDuplicates

相关问题