有难度，第二天了（获取网站数据，并保留数据向下填充）

我俩很熟

所获取数据网站只保留15个数据，更新的时候会自动去除最后一行，只显示最新的15个。希望更新的时候能保留原有数据，也就是说：获取最新数据且保留之前的数据请参考附件，本人小白，请勿说方法，烦请上传附件，顺祝新年快乐，猪年大吉~

sayhi95

放到PQ里更新前原数据表先断开链接，然后再更新新数据

我俩很熟

sayhi95 发表于 2019-2-12 14:08
放到PQ里更新前原数据表先断开链接，然后再更新新数据

感谢回复，本人小白，不明觉厉

我俩很熟

没有大神能解决吗

我俩很熟

隔两小时自己顶一下，防沉

sucx007

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim endRow As Long, arr
   
3.     endRow = Sheets("保存数据").Cells(Rows.Count, 1).End(3).Row
   
4.     If endRow <> 1 Then endRow = endRow + 1
   
5.     arr = UsedRange
   
6.     With Sheets("保存数据")
   
7.         .Cells(endRow, 1).Resize(16, 7) = arr
   
8.         .Cells(endRow, 7) = Format(Now, "yyyymmdd h:mm")
   
9.     End With
   
10. End Sub

复制代码

我俩很熟

sucx007 发表于 2019-2-13 10:30

非常感谢

sucx007

我俩很熟 发表于 2019-2-13 11:06
谢谢大神，请问能否只保存 “sheet1” 第二行的数据，如果可以，再次麻烦了，谢谢~

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim endRow As Long, arr
   
3.     Application.EnableEvents = False
   
4.     endRow = Sheets("保存数据").Cells(Rows.Count, 1).End(3).Row
   
5.     If endRow = 1 Then
   
6.         arr = Sheet1.UsedRange
   
7.     Else
   
8.         endRow = endRow + 1
   
9.         arr = Sheet1.UsedRange.Offset(1)
   
10.     End If
    
11.     Sheets("保存数据").Cells(endRow, 1).Resize(16, 7) = arr
    
12.     Application.EnableEvents = True
    
13. End Sub

复制代码

是不是这样？

我俩很熟

sucx007 发表于 2019-2-13 11:40
是不是这样？

上面的没有试，自己修改了一下，已经解决了，感谢