Board logo

標題: 如何刪除重複資料的列與單純刪除儲存格的巨集做法 [打印本頁]
作者: lone_tiger0303    時間: 2011-7-26 11:32     標題: 如何刪除重複資料的列與單純刪除儲存格的巨集做法

如何用巨集作：
                           需求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    時間: 2011-7-26 13:10

回復 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    時間: 2011-7-26 13:42

謝謝GBKEE大大的協助
作者: linsurvey2005    時間: 2012-10-10 13:51

回復 2# GBKEE


請問大大
要變更為整列刪除怎麼修改
謝謝
作者: GBKEE    時間: 2012-10-10 14:34

本帖最後由 GBKEE 於 2012-10-10 15:58 編輯

回復 4# linsurvey2005
Rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp   
空白位置 整列 刪除的動作
作者: linsurvey2005    時間: 2012-10-10 14:53

回復 5# GBKEE


水管已經打通 感謝大大



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)