[已解决]如何提取要求颜色单元格内的数值

幻想1573

详情见附件{:041:}求解决

最佳答案

月排行榜 / 总排行榜

qh8600

2015-6-23 19:48

1. Sub demo()
   
2.     Dim ar(1 To 2, 1 To 10), i, j, n
   
3.     For i = 2 To 3
   
4.         n = 0
   
5.         For j = 1 To 10
   
6.             If Cells(i, j).Interior.ColorIndex = 3 Then
   
7.                 n = n + 1
   
8.                 ar(i - 1, n) = Cells(i, j)
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     Range("l2").Resize(2, 10).ClearContents
    
13.     Range("l2").Resize(2, 10) = ar
    
14. End Sub
    

复制代码

附件楼下

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar(1 To 2, 1 To 10), i, j, n
   
3.     For i = 2 To 3
   
4.         n = 0
   
5.         For j = 1 To 10
   
6.             If Cells(i, j).Interior.ColorIndex = 3 Then
   
7.                 n = n + 1
   
8.                 ar(i - 1, n) = Cells(i, j)
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     Range("l2").Resize(2, 10).ClearContents
    
13.     Range("l2").Resize(2, 10) = ar
    
14. End Sub
    

复制代码

附件楼下

qh8600

提取要求颜色的数值.rar (16 KB, 下载次数: 6)

2015-6-23 19:49 上传

点击文件名下载附件
楼主试试