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

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- 如何避免在Excel VBA中使用Select 。