標題: [分享] excel資料庫刪除重複資料 [打印本頁]

---

作者: mhl9mhl9    時間: 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

---

作者: mhl9mhl9    時間: 2013-7-31 23:48

[attach]15657[/attach]

---

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