在表1中每输入一条记录,在表2中就添加一行新记录,即表1中输入多条,在表2生成多少

nicl0302

   求大神帮忙，万分感谢

暮牧

1. Private Sub CommandButton1_Click()
   
2. n = Worksheets("总表").Range("A65536").End(xlUp).Row() + 1
   
3. r = 2
   
4. For r = 2 To 32 Step 1
   
5. a = Worksheets("信息录入").Cells(r, 3).Value
   
6. Worksheets("总表").Cells(n, r - 1).Value = a
   
7. Next
   
8. End Sub
   
9. 
   

复制代码