標題: 多個工作表 比對 後刪除列 [打印本頁]

---

作者: pinklee    時間: 2012-11-7 14:16     標題: 多個工作表 比對 後刪除列

各位大大午安 有勞了
有 sheet1, sheet2, sheet3, 準則 等4個工作表
其中 sheet1, sheet2, sheet3 都包含了準則工作表a欄些資料
如何刪除 sheet1, sheet2, sheet3 三個工作表 所有含有準則工作表資料的 列
[attach]13065[/attach]
每工作表都有幾萬筆資料 還是有其更好方法 謝謝大家 感謝啦

---

作者: Hsieh    時間: 2012-11-7 14:47

回復 1# pinklee

1. Sub ex()
   
2. Dim Sh As Worksheet
   
3. For Each Sh In Sheets
   
4.   If Sh.Name <> "準則" Then
   
5.   With Sh
   
6.     .Range(.[C1], .[A65536].End(xlUp).Offset(, 2)).FormulaR1C1 = "=1/ISERROR(MATCH(RC[-2],準則!C[-2],0))"
   
7.      a = .Range(.[C1], .[A65536].End(xlUp).Offset(, 2)).Address(, , , 1)
   
8.     If Evaluate("SumProduct(IsError(" & a & ") * 1)") > 0 Then
   
9.     .Range(.[C1], .[A65536].End(xlUp).Offset(, 2)).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
   
10.     End If
    
11.     .Columns("C").Clear
    
12.   End With
    
13. End If
    
14. Next
    
15. End Sub

複製代碼

---

作者: pinklee    時間: 2012-11-7 15:48

回復 2# Hsieh


    謝謝 真是又快又好 :D

---

作者: wwweagle    時間: 2012-12-28 13:44

謝謝分享
正需要用到的說

---

作者: servmijh    時間: 2013-1-4 23:14

哇塞，太讚了，就欠這一味

---

作者: b9208    時間: 2013-1-6 10:38

太帥了
值得收藏備用
謝謝版大分享

---

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