宏命令按钮可在单击的行下方添加一行并将其唯一的公式复制到新行

时间:2018-11-13 21:01:37

标签: excel vba

我正在研究一个时间表,用户可以单击+命令按钮,它将在单击的命令按钮行下方添加一个新行,并将公式复制到该新行。用户需要在同一行中输入同一天针对不同资金来源的工作时间。

下面的宏可以正常工作,但是它在被点击的行中添加了上方行,而不是在被点击的行中低于。我发布这个问题是希望这个论坛的一些专家可以为我提供帮助。提前非常感谢您。

Sub Macro1()

    Dim row As Long

    'Insert new row on button row
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
    Rows(row).Insert

    'AutoFill from 1 row above new row for 1 row down
    Rows(row - 1).AutoFill Destination:=Rows(row - 1 & ":" & row), Type:=xlFillDefault

    'Clear cells A-S on new row
    Range("A" & row & ":F" & row).ClearContents
    Range("H" & row & ":P" & row).ClearContents


End Sub

1 个答案:

答案 0 :(得分:0)

非常感谢戴维斯。有用。这是我完整的宏。

Sub Macro1()

    Dim row As Long

    'Insert new row on button row
    row = ActiveSheet.Buttons(Application.Caller).TopLeftCell.row
    Rows(row + 1).Insert

    'AutoFill new row
    Rows(row).AutoFill Destination:=Rows(row + 1 & ":" & row), Type:=xlFillDefault

    'Clear cells A:F and H:M on new row
    Range("A" & row + 1 & ":F" & row + 1).ClearContents
    Range("H" & row + 1 & ":M" & row + 1).ClearContents

End Sub