请问最后一步，点击记录，将上方内容复制生成到下方的表格中要怎么实现。

我不是小灰灰

LIUZHU

用代码可以实现

我不是小灰灰

LIUZHU 发表于 2024-4-1 11:19
用代码可以实现

是的，所以想问问是哪方面的代码，可以在哪里学到。

dy83797465268

我不是小灰灰

dy83797465268 发表于 2024-4-1 11:59

太感谢您了，完全实现了功能，而且非常清楚易懂，方便修改。然后还想问一下前面的序号想自动填上，应该加上什么代码呢？就每次记录的时候，1、2、3自动填上。万分感谢！

dy83797465268

多练习。。这个不难

我不是小灰灰

dy83797465268 发表于 2024-4-1 13:03
多练习。。这个不难

您好，可以再打扰您一下吗，就是我上面数据生成到下方的时候想要带上对应的填充颜色，应该加上什么呢。

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

复制代码