[已解决]求大师修改一下代码，具体要求看内容感谢感谢！！！

menlgr

a1中输入数据,点击采集更新,可以将这个数据采集到sheet2中的a列,以前的数据要保留。也就是说,点击采集更新以后,保留以前采集的数据，新的数据向下空白单元格填充。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-7-4 22:22

代码替换成如下：

1. Private Sub CommandButton1_Click()
   
2.     Dim n&
   
3.     With Sheet2
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         If .Cells(n, 1) = "" Then
   
6.             .Cells(n, 1) = Sheet1.[a1]
   
7.         Else
   
8.             .Cells(n + 1, 1) = Sheet1.[a1]
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

代码替换成如下：

1. Private Sub CommandButton1_Click()
   
2.     Dim n&
   
3.     With Sheet2
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         If .Cells(n, 1) = "" Then
   
6.             .Cells(n, 1) = Sheet1.[a1]
   
7.         Else
   
8.             .Cells(n + 1, 1) = Sheet1.[a1]
   
9.         End If
   
10.     End With
    
11. End Sub

复制代码

cjainwei

1. Private Sub CommandButton1_Click()
   
2.   Application.ScreenUpdating = False
   
3. 
   
4. With Sheet2
   
5. .Cells(65536, 2).End(xlUp).Offset(1) = Sheet1.[a1]
   
6. End With
   
7.   Application.ScreenUpdating = True
   
8. End Sub

复制代码

menlgr

cjainwei 发表于 2016-7-5 08:20

和楼上的代码都可以实现，感激感激！