如何刪除重複資料的列與單純刪除儲存格的巨集做法

lone_tiger0303

如何用巨集作：
                           需求1.重複資料的刪除列的動作                                                           需求2.重複資料僅刪除儲存格資料不刪除列
     A     B     C                  A    B    C                                      A     B      C                        A    B     C
1   AA                         1   AA                                           1   AA                                 1  AA   
2   BB                          2   BB                                           2   BB                                 2  BB
3   CC                  →        3   CC                                           3   CC                    →          3  CC  
4   AA                         4   DD                                           4   AA                                 4
5   CC                         5   EE                                           5   CC                                 5
6   DD                                                                            6   DD                                 6   DD
7   EE                                                                            7   EE                                  7   EE

GBKEE

回復 1# lone_tiger0303

1. Sub Ex()
   
2.     Dim Rng As Range, Ar, i%
   
3.     Set Rng = [a1:a10]
   
4.     Ar = Application.Transpose(Rng)
   
5.     For i = UBound(Ar) To 1 Step -1
   
6.         If Application.CountIf(Rng, "=" & Ar(i)) > 1 Then Rng(i) = ""
   
7.     Next    ''
   
8.     ''''''''''上面程式碼  將重複資料的位置為空白 ''''''''''''''''''''''''
   
9.     Rng.SpecialCells(xlCellTypeBlanks).Delete xlUp    '空白位置刪除的動作
   
10. End Sub

複製代碼

lone_tiger0303

謝謝GBKEE大大的協助

linsurvey2005

回復 2# GBKEE


請問大大
要變更為整列刪除怎麼修改
謝謝

GBKEE

回復 4# linsurvey2005
Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp   
空白位置 整列 刪除的動作

linsurvey2005

回復 5# GBKEE


水管已經打通 感謝大大