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