我这儿有一个宏代码是按单元格颜色排序的。
发布网友
发布时间：2024-09-17 07:29
共1个回答
热心网友
时间：2024-10-21 04:00
Application.ScreenUpdating = False
Columns("A:A").Insert Shift:=xlToRight
For i = 2 To Sheet1.UsedRange.Rows.Count
Cells(i, 1) = Sheet1.Cells(i, 3).Interior.ColorIndex
Next i
Sheet1.Range("A1").Sort Key1:=Worksheets("Sheet1").Columns("A"), Header:=xlGuess
Columns("A:A").Delete Shift:=xlToLeft
Application.ScreenUpdating = True
End Sub
这个代码和上面的原理一样，就是读取单元格的颜色并写入到旁边插入列的单元格，因为关闭了屏幕刷新，你看不到而已，然后排序，最后删除写入颜色值的列。不同点就是上面用了数组。
