返回列表 上一主題 發帖

多個工作表 比對 後刪除列

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-11-7 14:16 | 只看該作者

多個工作表 比對 後刪除列

各位大大午安 有勞了
有 sheet1, sheet2, sheet3, 準則 等4個工作表
其中 sheet1, sheet2, sheet3 都包含了準則工作表a欄些資料
如何刪除 sheet1, sheet2, sheet3 三個工作表 所有含有準則工作表資料的 列
多表比對刪除.rar (1.9 KB)
每工作表都有幾萬筆資料 還是有其更好方法 謝謝大家 感謝啦
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
120  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-5-18 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

pinklee

帖子
57 
主題
25 
精華
0 
積分
87 
點名
0  
作業系統
xp2 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2010-9-16 
最後登錄
2023-11-29 
3#
發表於 2012-11-7 15:48 | 只看該作者
回復 2# Hsieh


    謝謝 真是又快又好 :D

TOP

wwweagle

帖子
1 
主題
0 
精華
0 
積分
1 
點名
0  
作業系統
XP 
軟體版本
7.0 
閱讀權限
10 
性別
男 
註冊時間
2012-12-28 
最後登錄
2012-12-28 
4#
發表於 2012-12-28 13:44 | 只看該作者
謝謝分享
正需要用到的說

TOP

servmijh

帖子
2 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
XP 
軟體版本
office 2003 
閱讀權限
10 
性別
男 
註冊時間
2013-1-4 
最後登錄
2013-1-6 
5#
發表於 2013-1-4 23:14 | 只看該作者
哇塞，太讚了，就欠這一味

TOP

b9208

帖子
182 
主題
34 
精華
0 
積分
316 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-5-2 
最後登錄
2023-6-24 
6#
發表於 2013-1-6 10:38 | 只看該作者
太帥了
值得收藏備用
謝謝版大分享
100 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
返回列表 上一主題