- 帖子
- 6
- 主題
- 0
- 精華
- 0
- 積分
- 19
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣台中
- 註冊時間
- 2016-10-24
- 最後登錄
- 2017-8-22
|
Sub TEST_A()
For A = 1 To Cells(Rows.Count, "A").End(3).Row
If Cells(A, 1).Interior.ColorIndex <> xlNone Then
Cells(A, 1).Value = ""
End If
Next
End Sub |
|
發表於 2016-10-25 10:01
| 