用VBA调用large函数匹配前6名并且填充颜色

laoau128

用VBA调用large函数匹配前6名并且填充颜色

小石头936

1. Sub 排序()
   
2. n = [C2000].End(3).Row
   
3. For i = 1 To 6
   
4.    For j = 2 To n
   
5.       If Cells(j, 3) = Application.WorksheetFunction.Large(Range("C2:C" & n), i) Then
   
6.          Cells(j, 3).Interior.Color = 255
   
7.       End If
   
8.     Next
   
9. Next
   
10. End Sub

复制代码

laoau128

小石头936 发表于 2018-11-18 00:44

这个能不能用数组

abc123281

Sub test()
With Worksheets("sheet1")
  .Range("d2:d1000").ClearContents
  .Cells.Interior.ColorIndex = xlNone
  arr = .Range("a1").CurrentRegion
  For x = 1 To 6
    For i = 2 To UBound(arr)
      If arr(i, 3) = Application.Large(arr, x) Then
        .Cells(i, 3).Interior.ColorIndex = 4
        .Cells(i, 4) = x
        Exit For
      End If
    Next
  Next
End With
End Sub

laoau128

abc123281 发表于 2018-11-18 09:45
Sub test()
With Worksheets("sheet1")
  .Range("d2:d1000").ClearContents

VBA数组比较两列不相同数字  错在哪里如何改正

http://club.excelhome.net/thread-1446671-1-1.html