Excel VBA代碼可根據另一個單元格值清除一個單元格中的數據

Question

我是自學成才，遇到一些我認為很容易的問題。 我有一個電子表格，我需要遍歷O列並查找任何包含數據的單元格，並清除H列中相應單元格的內容。跨頁是不斷變化的，因此最后一行數據總是在變化。 以下是我一直在使用但似乎無法使用的代碼。 任何幫助都是極好的..

    Dim deleterate As Long
    Dim ws As Worksheet

' set object
Set ws = Sheets("Import file")


' loop through the data to find the $$ amounts in column o

For deleterate = ws.Range("O" & Row.count).End(xlUp).Row To 1 Step -1

' indentify values in O which have value

If ws.Range("O" & deleterate).Value <> 0 Then
Cells(0, 7).ClearContents
End If

Answer 1

您不能有0行，所以您的行

Cells(0, 7).ClearContents

將給出一個錯誤。 除非您知道要使用ActiveSheet ，否則還應該始終限定要引用的工作表。

---

所以你應該使用

ws.Cells(deleterate, 8).ClearContents

指定正確的行和列（因為“ H”是第8列，而不是第7列），甚至

ws.Cells(deleterate, "H").ClearContents

或者，為了與上一行（ If語句）保持一致，可以使用

ws.Range("H" & deleterate).ClearContents