创build一个单击button时移动到下一行的代码

我正在创build一个macros，点击Button1时，select（DateofRequest）将移动到单元格D6上的单元格C6和PayeesName; input名称时再次点击移动到C7和D7等等等等，直到所有单元格填满。

我将不胜感激任何帮助。 谢谢！

Public Sub CommandButton1_Click() Dim DateofRequest As Date Dim PayeesName As String Worksheets("C Check Request").Select DateofRequest = Range("C13") Worksheets("C Check Request").Select PayeesName = Range("C15") Worksheets("Costume").Select Worksheets("Costume").Range("C5").Select RowCount = Worksheets("Costume").Range("C5").CurrentRegion.Rows.Count With Worksheets("Costume") RowCount = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(RowCount, 3) = DateofRequest .Cells(RowCount, 4) = PayeesName End With End Sub 

Answer 1

您正在尝试增加C和D列中的计数，但正在查找A中的最后一行。

另外你的代码可以通过摆脱select和激活缩短。 你也可以直接赋值而不是使用variables。

 Public Sub CommandButton1_Click() Dim RowCount as Long With Worksheets("Costume") RowCount = .Cells(.Rows.Count, 3).End(xlUp).Row + 1 .Cells(RowCount, 3) = Worksheets("C Check Request").Range("C13").Value .Cells(RowCount, 4) = Worksheets("C Check Request").Range("C15").Value End With End Sub