Question

我正在创建一个宏，在点击Button1时，选择（DateofRequest）将移动到单元格D6上的单元格C6和PayeesName;输入名称时再次单击，分别移动到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中的最后一行。

此外，您可以通过删除选择并激活您的代码来缩短代码。您也可以直接分配值而不是使用变量。

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

创建用于在单击按钮时移动到下一行的代码

1 个答案: