[已解决]把17至24行的数据提取到 2至9的位置上

hanjia

如付件 B17至B24行的数据提取到 B2至B9的位置   
17行至24行的数据是增加往右边排,比如C17至C24有数据就提取C17至C24
就是提取最后一排
C7(色位)这俩个字是跟着带背景色的单元格后面的
带背景色的单元格数据提取到 C10     
大于带背景色的数变为红色 1最小   0最大   要是相同就他一种颜色

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-21 17:35

附件

跳转到最佳答案楼层

老司机带带我

1. Sub xx()
   
2.     Dim x%, z%
   
3.     With Sheet1
   
4.         x = .Cells(17, .Columns.Count).End(1).Column
   
5.         .[C2:C10].ClearContents
   
6.         For i = 17 To 24
   
7.             If .Cells(i, x).Interior.Color = 49407 Then
   
8.                 z = .Cells(i, x)
   
9.             End If
   
10.         Next
    
11.         For i = 1 To 9
    
12.             .Cells(i, 2) = .Cells(i + 15, x)
    
13.             If .Cells(i, 2) = 0 Or .Cells(i, 2) > 7 Then
    
14.                 .Cells(i, 2).Font.Color = 255
    
15.             Else
    
16.                 .Cells(i, 2).Font.Color = 0
    
17.             End If
    
18.             If .Cells(i, 2) = z Then
    
19.                 .Cells(i, 2).Font.Color = 11312130
    
20.                 .Cells(i, 2).Offset(0, 1) = "色位"
    
21.                 .Cells(i, 2).Offset(0, 1).Font.Color = 255
    
22.             End If
    
23.         Next
    
24.         .[C10] = z
    
25.     End With
    
26. End Sub

复制代码

hanjia

老司机带带我 发表于 2016-7-21 13:26

先谢谢
大于背景的数据不会变红  
只有890这三位数
还有相同的数字只要颜色一样就行  不用后面跟着色位这字
色位这2个字只跟在对应位置一个就行

老司机带带我

附件