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

对不起，如果这已被问过。我真的不知道该找什么。我有一个Excel工作表，其中在列AI有一些看起来像这样在特定列中查找每个不同的单元格值

 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

我知道如何找到一列一个字，但我不不知道如何找到所有不同的人。是否有捷径可寻？

来源

2015-04-21 phil652

试试这个：

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

来源

2015-04-21 19:41:53

这很好用，但我在我的问题中的例子并不完全在我的工作表中。我现在更新了我的问题以向你展示。每个产品之间都有一个空间，我不希望空间被复制。 – phil652

@ phil652看到我的**编辑＃1 ** –

正是我需要的非常感谢！ – phil652

在“数据”选项卡下，选择“删除重复项”。

来源

2015-04-21 19:31:00 nwhaught

这必须用vb完成因为这只是我宏中的一个步骤，而且它也必须在多张纸上运行 – phil652

您是否尝试过录制一个宏，点击相同的“删除重复项”按钮，然后看看它提供了哪些代码？ – CactusCake

VBA方法RemoveDuplicates对Range执行操作，并执行与菜单选项相同的操作。

Microsoft MSDN Reference for Excel 2010 RemoveDuplicates

来源

2015-04-21 19:39:31 davidmneedham

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

回答

相关问题