excel中增加行值excel中的每个按钮点击

Question

在excel宏中，我需要每次单击按钮时增加一行。应该从数据表中读取的下一个值的函数。此值也需要返回到另一个表格中的单元格。这是我的代码，如何增加每次点击的价值。我尝试了Offset（），但我想让按钮记住我以前的位置。在东西For循环也许

Sub Button6_Click() 

Cells(4, 6) = Sheets("Sheet4").Range("B:B").Value 

End Sub 

Answer 1

我不知道我正确理解你的问题，但似乎你想要Cells(4,6)是相等的，在每一次点击，到某个小区在Sheet4价值转移的一排下来。如果是这样的话：

Dim previousRow As Long '<-- global variable previousRow 
Sub Button6_Click() 
    If previousRow = 0 Then 
     previousRow = 1 '<--starts at row 1 
    Else 
     previousRow = previousRow + 1 '<--increases of 1 each click 
    End If 
    Sheets("Sheet1").Cells(4,6) = Sheets("Sheet4").Cells(previousRow,6) '<-- it will be the value of the cell in the column 6 with a variable row 
    'first click: Cells(1,6) 
    'second click: Cells(2,6) 
    'third click: Cells(3,6) 
    'etc. 
End Sub