上方数据生成到下方的时候，如何带上相应的填充颜色

我不是小灰灰

1. Sub 记录1()
   
2. Dim myArr(1 To 8) As String '定义一个数组
   
3. Dim i As Long
   
4. myArr(1) = Cells(2, 2)
   
5. myArr(2) = Cells(2, 4) '他没有写内容，我们先以自定义内容列填写
   
6. myArr(3) = Format(Now(), "yyyy/mm/dd") '记录日期
   
7. myArr(4) = Cells(2, 6)
   
8. myArr(5) = Cells(2, 8)
   
9. myArr(6) = Cells(2, 10)
   
10. myArr(7) = Cells(2, 12)
    
11. myArr(8) = Cells(2, 14)
    
12. Debug.Print UBound(myArr)
    
13. For i = 1 To UBound(myArr)
    
14.     Cells(10000, i + 1).End(xlUp).Offset(1, 0) = myArr(i)
    
15. Next
    
16. '这里只是案例，当然在实际的应用中，建议将项目的数据进行结构设计，然后循环写入数组，在调用此方法即可
    
17. For i = 8 To 10000
    
18.     Cells(i, 1) = i - 7
    
19.     If Cells(i + 1, 2) = "" Then Exit For
    
20.     Next
    
21.   Sheet1.[F2].ClearContents
    
22.   Sheet1.[H2].ClearContents
    
23.   Sheet1.[J2].ClearContents
    
24.   Sheet1.[C5].ClearContents
    
25. End Sub

复制代码

shiruiqiang

数组不支持单元格的属性