如何在EXCEL VBA宏中动态获取活动单元格地址和查找范围
如何在EXCEL VBA宏中动态获取活动单元格地址和查找范围
提问于 2018-08-06 23:07:10
在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。请告知！
回答 2
Stack Overflow用户
发布于 2018-08-06 23:17:20
这是我对它的看法。这样，如果您改变主意，您可以轻松地调整您想要在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 SubStack Overflow用户
发布于 2018-08-06 23:11:15
录制一个宏是在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 - How to avoid using Select in Excel VBA中的选择。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51710675
复制相关文章
相似问题
腾讯云开发者
