Question

在Excel宏中，我想实现以下目标：在“ A”列中，可以有许多行的数据。当用户选择“ A”列中的任何单元格并单击按钮时，将在所选行的下方插入6行，并将所选单元格中的数据复制到这6行中。我录制了一个宏，这就是我的内容：

Sub MacroTest()
'
' MacroTest Macro
'

    Rows("5:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A4").Select
    Selection.AutoFill Destination:=Range("A4:A10"), Type:=xlFillDefault
End Sub

我想知道的是如何用活动单元替换A4，以及范围A4：A10和活动单元格地址+6。请告知！

Answer 1

这是我的看法。这样，如果您改变主意，便可以轻松地调整要在activecell之后要复制的单元格的数量，并且它消除了冗长的代码：）

Sub MacroTest()

    If ActiveCell.Column = 1 Then

        Dim numCopies As Long
        numCopies = 6

        Dim i As Long
        For i = 1 To numCopies
            Rows(ActiveCell.row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next i

        ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(numCopies, 0)), Type:=xlFillDefault

    End If

End Sub

Answer 2

恭喜，录制宏是在vba中开始编程的最佳方法之一。这是ActiveCell和Offset()的用法：

Sub MacroTest()
    Rows("5:5").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    'Range("A4").Select
    ActiveCell.Select
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(6, 0)), Type:=xlFillDefault
End Sub

如果您想对代码进行一些改进，请考虑将其放在https://codereview.stackexchange.com中，将会弹出一些好主意。

例如，未在Excel中使用Selecti-How to avoid using Select in Excel VBA。

如何在EXCEL VBA宏中动态获取活动单元地址并找出范围

2 个答案: