返回列表 上一主題 發帖

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

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 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
複製代碼

TOP

lone_tiger0303

帖子
76 
主題
19 
精華
0 
積分
145 
點名
0  
作業系統
win xp 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2010-5-24 
最後登錄
2014-6-24 
3#
發表於 2011-7-26 13:42 | 只看該作者
謝謝GBKEE大大的協助

TOP

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
4#
發表於 2012-10-10 13:51 | 只看該作者
回復 2# GBKEE


請問大大
要變更為整列刪除怎麼修改
謝謝
開心學習,學習很開心

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-10-10 14:34 | 只看該作者
本帖最後由 GBKEE 於 2012-10-10 15:58 編輯

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

TOP

linsurvey2005

帖子
84 
主題
15 
精華
0 
積分
123 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台南市 
註冊時間
2011-5-16 
最後登錄
2022-9-17 
6#
發表於 2012-10-10 14:53 | 只看該作者
回復 5# GBKEE


水管已經打通 感謝大大
開心學習,學習很開心

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題