返回列表下一主題上一主題發帖

[分享] excel資料庫刪除重複資料

mhl9mhl9

中學生 Rank: 2

帖子: 214
主題: 74
精華: 0
積分: 296
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
來自: hk
註冊時間: 2013-6-17
最後登錄: 2018-11-3

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-7-28 03:05 | 只看該作者

[分享] excel資料庫刪除重複資料

excel資料庫,輸入資料好易重複,利用ADO+sql,輕輕鬆松刪除重複的資料

Sub iDo()
Dim R As Range, A As Integer
   Set R = Range("A1").CurrentRegion.Rows(1)
A = R.Interior.ColorIndex
   iPath = ActiveWorkbook.FullName
   iQ = "select distinct * from [" & ActiveSheet.Name & "$] order by ¤é´Á"
   Set iAddress = ActiveSheet.Range("A1")
iSql
   R.Interior.ColorIndex = A
End Sub