[已解决]在表格中查找每一行中的最小值，并添加底色

yytf2016 · 发表于 2016-12-30 08:42

在表格中查找每一行中的最小值，并添加底色

最佳答案

冥王

2016-12-30 08:56

使用条件格式可以实现

yytf2016 · 发表于 2016-12-30 08:43

表格很大，有没有简便的方法

冥王 · 发表于 2016-12-30 08:56

使用条件格式可以实现

望帝春心 · 发表于 2016-12-30 08:59

本帖最后由望帝春心于 2016-12-30 09:00 编辑

Sub test()
Dim rng As Range
Set rng = [a1].CurrentRegion
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
If rng.Item(i, j) <> "" And rng.Item(i, j) = WorksheetFunction.Min(rng.Rows(i)) Then
rng.Item(i, j).Interior.ColorIndex = 6
End If
Next
Next
End Sub

复制代码

望帝春心 · 发表于 2016-12-30 09:05

复制代码

yytf2016 · 发表于 2016-12-30 09:15

自己解决了

		自动登录	找回密码
密码			注册