Question

EXCEL VBA同列从最后开始找出最近相同内容

1.同列从最后开始往上找出最近相同内容并填充为红色

Answer 1

Sub xx()
  For i = 3 To 9
  n = Cells(4 ^ 8, i).End(3).Row
  For j = n - 1 To 1 Step -1
    If Cells(j, i) = Cells(n, i) Then
      Cells(j, i).Interior.ColorIndex = 3
      If j < n - 1 Then Cells(j + 1, i).Interior.ColorIndex = 33
      Cells(5, 9 + i) = Cells(j + 1, i)
      Exit For
    End If
  Next: Next
End Sub

Answer 2

为什么要用VBA 直接条件格式就可以了 直接录制个宏可以看

Answer 3

请提供例子