我下面寫的代碼在列A,F和G刪除整個排在Excel VBA
Sub DeleteRawBlank()
Dim Cnt As Long
Dim RowCnt As Integer
RowCnt = Worksheets("Raw").UsedRange.Rows.Count
Worksheets("Raw").Activate
For Cnt = RowCnt To 2 Step -1
If Trim(Worksheets("Raw").Cells(Cnt, "A").Value) <> "" And
Trim(Worksheets("Raw").Cells(Cnt, "F").Value) <> "" And
Trim(Worksheets("Raw").Cells(Cnt, "G").Value) <> "" Then
Rows(Cnt).Delete
End If
Next Cnt
End Sub
沒有值刪除行,但它不工作。請任何幫助
我不知道爲什麼,但即使你的代碼也不會刪除行。 – refactor
那麼它肯定是你的If語句的一個問題,你期望它的評估與它實際評估的是什麼。你只想刪除列A,F和G中有數據的行嗎? –
如果條件良好,並且「行(Cnt).Delete」也正在執行,但行不會被刪除。 – refactor