[已解决]提取最后一列数据

hanjia · 发表于 2016-7-24 06:08

本帖最后由 hanjia 于 2016-7-24 12:46 编辑

提取W2至W9到B2至B9, 如果X2至X9有数据就提X2至X9。。。。。
数据是往右边排的, 所以每次提取2至9行的数据是要提取最后一排
带背景颜色的数据再提取到C10, 在C列 (色位) 俩个字是跟着带背景颜色数据的
字体的颜色,带背景颜色的数据提取到B列显示为蓝色
1跟2除了是色位显示为蓝色外，在其他的单元格都是黑色,不用对比
3以上的对比, 跟带背景颜色的数据相同的显示为蓝色，大于背景颜色数据显示为红色，小于背景颜色数据显示为黑色
0大于9,如付件,B5带背景颜色的数据是4,B2的数据是0，B2的0大于4所以B2的0显示为红色带背景颜色的不是固定在第五行的，
比如下一排有可能是在X3或者X9了

工作表.zip (10.16 KB, 下载次数: 11)

老司机带带我 · 发表于 2016-7-24 11:09

Sub xx()
Dim x%, z%, y%
With Sheet1
x = .Cells(2, .Columns.Count).End(1).Column
.[C2:C10].ClearContents
For i = 2 To 9
If .Cells(i, x).Interior.Color = 49407 Then
z = .Cells(i, x)
y = i
Exit For
End If
Next
For i = 2 To 9
.Cells(i, 2) = .Cells(i, x)
If .Cells(i, 2) = 0 Or .Cells(i, 2) > z Then
.Cells(i, 2).Font.Color = 255
Else
.Cells(i, 2).Font.Color = 0
End If
If z = 0 Then .Cells(i, 2).Font.Color = 0
If .Cells(i, 2) = z Then
.Cells(i, 2).Font.Color = 11312130
.Cells(i, 2).Offset(0, 1).Font.Color = 255
End If
If .Cells(i, 2) = 1 And i <> y Then .Cells(i, 2).Font.Color = 0
If .Cells(i, 2) = 2 And i <> y Then .Cells(i, 2).Font.Color = 0
Next
.Cells(y, 3) = "色位"
.Cells(y, 3).Offset(0, 1).Font.Color = 255
.[C10] = z
End With
End Sub

复制代码

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

[已解决]提取最后一列数据

评分