Sub 数据对比() Dim x, i, a x = Cells.Rows.Count i = Range("a" & x).End(3).Row Do a = a + 1 If a > i Then Exit Do If Range("a" & a) = Range("b" & a) And VBA.IsNumeric(Range("c" & a)) And Range("c" & a) <> 0 Then Range("d" & a) = Range("c" & a) End If Loop End Sub