excel - 具有默认值的输入按钮

Answer 1

将以下宏分配给该按钮。

Sub test()

    With ThisWorkbook.Worksheets("CT Scan")
        .Range("D" & .Rows.Count).End(xlUp) = InputBox("Enter the amount")
    End With

End Sub