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