在Excel VBA中单击button后，如何将数据保存到下一行

Sheet6.Range("A8:T8").Value = Sheet1.Range("A14:T14").Value 

上面的代码复制粘贴这些values.But当我点击button下一次我想保存我的数据在新的一行即

 Sheet6.Range("A9:T9").Value 

怎么做？

Answer 1

您需要find下一个打开的行：

 Dim nxtrw as long nxtrw = Sheet6.Range("A" & Sheet6.Rows.Count).End(xlUp).Row + 1 Sheet6.Range("A" & nxtrw & ":T" & nxtrw).Value = Sheet1.Range("A14:T14").Value