- 帖子
- 109
- 主題
- 1
- 精華
- 0
- 積分
- 116
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 註冊時間
- 2016-8-4
- 最後登錄
- 2018-10-22
 
|
9#
發表於 2016-8-23 12:00
| 只看該作者
回復 8# Changbanana
試試看。- Dim myRow As Integer
- Sheets("工作表1").Activate
- Range("B2").Select
- Do While ActiveCell <> ""
- If IsError(Application.Match(ActiveCell, Sheets("工作表2").Range("A:A"), 0)) Then
- ActiveCell.Offset(1, 0).Select
- Else
- myRow = WorksheetFunction.Match(ActiveCell, Sheets("工作表2").Range("A:A"), 0)
-
- If Sheets("工作表2").Cells(myRow, "A").Interior.ColorIndex = 43 Then
- Rows(ActiveCell.Row).Delete
- Else
- ActiveCell.Offset(1, 0).Select
- End If
-
- End If
-
- Loop
複製代碼 |
|