12
返回列表 上一主題 發帖

在不同工作表中找尋底色相同的資料並刪除

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-8-22 12:49 | 只看該作者

在不同工作表中找尋底色相同的資料並刪除

各位大大~
想請教一個問題~

在工作表一id那欄找到一樣在工作表二中綠色底的id號碼後，再工作表一把綠色底的id資料刪除


#在工作表二中ID欄位(資料會增加減少，順序不會和工作表一的id一樣)綠色底的資料


想請問這樣vba要怎麼寫

結果想要呈現的樣子



有想到要用dictionary來做 但沒有寫過想請求各位幫忙，謝謝
收藏 分享

zyzzyva

帖子
109 
主題
1 
精華
0 
積分
116 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2016-8-4 
最後登錄
2018-10-22 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2016-8-23 09:40 | 只看該作者
回復 1# Changbanana
試試看
  1. Dim myRow As Integer

  3. Sheets("sheet1").Activate
  4. Range("B2").Select
  5. Do While ActiveCell <> ""
  6.     myRow = WorksheetFunction.Match(ActiveCell, Sheets("sheet2").Range("A:A"), 0)
  7.     If Sheets("sheet2").Cells(myRow, "A").Interior.ColorIndex = 14 Then
  8.         Rows(ActiveCell.Row).Delete
  9.     Else
  10.         ActiveCell.Offset(1, 0).Select
  11.     End If
  12. Loop
複製代碼

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
3#
發表於 2016-8-23 10:23 | 只看該作者
回復 2# zyzzyva

z大~

把程式碼打進去後工作表都沒反應耶

不知道是那兒出了問題

附上檔案 新資料夾.zip (387.18 KB)

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
4#
發表於 2016-8-23 10:31 | 只看該作者
回復 2# zyzzyva


    顯示出的錯誤如圖
     
      1.png

TOP

zyzzyva

帖子
109 
主題
1 
精華
0 
積分
116 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2016-8-4 
最後登錄
2018-10-22 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2016-8-23 10:34 | 只看該作者
回復 3# Changbanana
顏色的問題，ColorIndex那邊要改成43。
可以簡單用msgbox檢查顏色對應的數字。
  1. mycolor = Sheets(2).Range("A2").Interior.ColorIndex
  2. MsgBox (mycolor)
複製代碼

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
6#
發表於 2016-8-23 10:39 | 只看該作者
回復 5# zyzzyva


    原來如此~已經沒問題了

    原來可以這樣查顏色~

    感謝你的解答 :)

TOP

zyzzyva

帖子
109 
主題
1 
精華
0 
積分
116 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2016-8-4 
最後登錄
2018-10-22 

論壇榮譽勳章論壇贊助勳章
7#
發表於 2016-8-23 10:42 | 只看該作者
回復 6# Changbanana
不客氣。如果sheet1的id都會在sheet2出現，只是順序不一樣，那這樣就可以了；
如果不一定的話就要加上錯誤處理，不然match找不到的時候就會出現錯誤訊息。

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
8#
發表於 2016-8-23 10:51 | 只看該作者
回復 7# zyzzyva

對耶
   
因為剛剛在加資料後來又不行

正如同您所說"sheet1的id都會在sheet2出現"，這是不一定的
        
sheet1的ID是當月全部資料

sheet2的ID是當月部份資料外加幾筆前幾個月的ID資料

那要該怎麼加上錯誤處理呢?

現在一直出現錯誤訊息0.0

TOP

zyzzyva

帖子
109 
主題
1 
精華
0 
積分
116 
點名
0  
作業系統
win7 
軟體版本
2007 
閱讀權限
20 
註冊時間
2016-8-4 
最後登錄
2018-10-22 

論壇榮譽勳章論壇贊助勳章
9#
發表於 2016-8-23 12:00 | 只看該作者
回復 8# Changbanana
試試看。
  1. Dim myRow As Integer

  3. Sheets("工作表1").Activate
  4. Range("B2").Select
  5. Do While ActiveCell <> ""
  6.     If IsError(Application.Match(ActiveCell, Sheets("工作表2").Range("A:A"), 0)) Then
  7.         ActiveCell.Offset(1, 0).Select
  8.     Else
  9.         myRow = WorksheetFunction.Match(ActiveCell, Sheets("工作表2").Range("A:A"), 0)
  10.         
  11.         If Sheets("工作表2").Cells(myRow, "A").Interior.ColorIndex = 43 Then
  12.         Rows(ActiveCell.Row).Delete
  13.         Else
  14.             ActiveCell.Offset(1, 0).Select
  15.         End If
  16.         
  17.     End If
  18.    
  19. Loop
複製代碼

TOP

Changbanana

帖子
76 
主題
17 
精華
0 
積分
95 
點名
0  
作業系統
windowsxp 
軟體版本
office2007 
閱讀權限
20 
性別
女 
註冊時間
2016-8-19 
最後登錄
2021-5-5 

論壇贊助勳章
10#
發表於 2016-8-23 13:35 | 只看該作者
回復 9# zyzzyva


    謝謝你~
   
    沒想到可以利用match來做
   
    又學到了一課~~~

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
12
返回列表 上一主題