Excel VBA-For循环。使用值查找单元格

Question

I am struggling to write an effective macro that will find a cell with error in column, then replace that cell with value of the first non-empty cell without error below it (there might be consecutive error cells) then loop for 12 columns.

The code I have below replaces each of the error cells in all 12 columns, but not in a consistent manner: some cells will indeed be filled by the next cell below that contains a number, but some cells end up with value of the second next cell below that contains a number. I can't tell where the problem in my code is.

Option Explicit
Sub ClearError()

    ThisWorkbook.Sheets("WorkSheet1").Activate

    Dim c, x, z As Integer
    Dim y As Long

    For z = 3 To 14 Step 1   ' Start with column 'C' and do for total of 12 columns
    x = 999

        For c = 1 To x Step 1
            If IsError(Cells(c, z)) Then
               Cells(c, z) = Range(Cells(1, z), Cells(x, z)).Find(y, _
                             After:=Cells(c, z), LookIn:=xlValues, SearchDirection:=xlNext).Value
            End If
        Next c   
    Next z

End Sub

If you could offer any insight or advice, I would greatly appreciate it. Thank you for your time! Ante

Answer 1

Try reversing your loop.

For c = x to 1 Step -1
    If IsError(Cells(c, z)) Then
           Cells(c, z) = Cells(c + 1, z)
    End If
Next c