比對不同工作表的儲存格以及刪除內容 - Excel程式區

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

1^# 跳轉到 »

發表於 2018-10-4 01:14 | 顯示全部帖子

本帖最後由 n7822123 於 2018-10-4 01:16 編輯

回復 1# netfish777

你的解說感覺邏輯怪怪的，我試著修改如下
你看對不對

工作表1 總共有15行的值
A B C
1 13 9 YY
2 CC 44 XX
3 77 99 33
4 2A PP 89
....................................

假設工作表2 儲存格A1的值是 CC，在工作表2按下按鈕則搜尋工作表1 A欄儲存格CC這個值在第二行，
然後刪除工作表1第二列 A2到C2的內容

假設工作表3 儲存格A1的值是 2A，在工作表3按下按鈕則搜尋工作表1 A欄儲存格2A這個值在第四行，
然後刪除工作表1第四列 A4到C4的內容

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2018-10-4 22:44 | 顯示全部帖子

本帖最後由 n7822123 於 2018-10-4 22:57 編輯

回復 3# netfish777

能否提供範例檔案，因為這樣有點瞎子摸象

會有很多問題需要釐清

例如:
1.如果第一工作表D欄以後還有資料，D欄以後的資料都保留，只刪除A,B,C 三欄的資料
還是一併刪除?

2.你舉的兩個例子都在工作表1的A欄，是不是B欄與C欄不再比對範圍?

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

3^#

發表於 2018-10-6 02:31 | 顯示全部帖子

本帖最後由 n7822123 於 2018-10-6 02:40 編輯

回復 7# netfish777

套用Hsieh 超版的程式
簡單，如下

Sub 清除一覽表某股票()
Sheet1.Columns(3).Find([c1], lookat:=xlWhole).Resize(, 12).ClearContents
End Sub

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2018-10-6 23:11 | 顯示全部帖子

回復 9# netfish777

If [C1] <> 0 Then Sheet1.Columns(3).Find([c1], lookat:=xlWhole).Resize(, 12).ClearContents

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助