每次单击按钮时增加 excel 中的行值

Question

在 excel 宏中，每次单击按钮时我都需要增加行数。应从数据 sheet 中读取的下一个值函数类型。此值也需要返回到不同 sheet 中的单元格。这是我的代码，如何增加每次点击的价值。我试过 Offset() 但我希望按钮记住我之前的位置。 For循环中的东西可能

Sub Button6_Click()

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

End Sub

Answer 1

我不确定我是否正确理解了你的问题，但你似乎希望 Cells(4,6) 在每次点击时等于 Sheet4 中某个单元格的值 shifted一排下来。如果是这种情况：

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

每次单击按钮时增加 excel 中的行值

Increment Row value in excel on each button click

excel

vba

row

increment