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