怎么快速对多行数据每一行对比大小并按照大小顺序进行标记或排序

kidfg

各位大神好，小弟有些问题想请教各位。
如表所示，想对每个品种的价格进行对比，然后按照大小顺序标记颜色或者排序，方便快速找到高价位或低价位。表中我用条件格式标记了不同颜色，但是没办法用格式刷直接复制到表格全部内容，要每一行刷一下，有没有解决办法？排序还有个问题，价格对应的供应商名字只有最上面一行，下面每个品种价格排序后供应商名字如何对应？

跪求大神答疑解惑，万分感谢！！！

3190496160

Sub 标记()
Application.ScreenUpdating = False
Dim rn As Range, rng As Range
With Sheets("sheet1")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(1, 3), .Cells(r, y)).Interior.ColorIndex = 0
    ar = .Range(.Cells(1, 3), .Cells(r, y))
    For i = 3 To UBound(ar)
        zd = Application.Max(Application.Index(ar, i, 0))
        For j = 1 To UBound(ar, 2)
            If Trim(ar(i, j)) <> "" Then
                If ar(i, j) = zd Then
                    If rn Is Nothing Then
                        Set rn = .Cells(i, j + 2)
                    Else
                        Set rn = Union(rn, .Cells(i, j + 2))
                    End If
                Else
                    If rng Is Nothing Then
                        Set rng = .Cells(i, j + 2)
                    Else
                        Set rng = Union(rng, .Cells(i, j + 2))
                    End If
                End If
            End If
        Next j
    Next i
    If Not rn Is Nothing Then rn.Interior.ColorIndex = 3
    If Not rng Is Nothing Then rng.Interior.ColorIndex = 10
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

供应商价格对比.rar (20.43 KB, 下载次数: 4)

2023-6-2 10:25 上传

点击文件名下载附件

3190496160

vba完成的，最高价填充红色，其他的填充绿色
其实，要排序也不是不可能，每一行增加供应商名称就行了吧