修改宏仅适用于选择，而不是整个工作表-Java 学习之路

我有一个宏，它采用一列，基本上重复每一行：

Sub Duper()
Dim LR As Long
Dim i As Long

LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For i = LR To 1 Step -1
    Rows(i).Copy
    Range(Rows(i + 1), Rows(i + 1)).Insert Shift:=xlDown
    Application.CutCopyMode = False
Next i

End Sub

输入

101 102 103 104 105

产量

101 101 102 102 103 103 104 104 105 105

但是，我无法添加新数据，只能复制新数据，因为宏应用于整个工作表 .

我需要添加到这个宏，这将允许我只针对选定的单元格运行宏？

2 回答

要只做选定的单元格：

Sub Duper()

    Dim i As Long

    For i = (Selection.Row + Selection.Rows.Count - 1) To Selection.Row Step -1
        Rows(i).Copy
        Range(Rows(i + 1), Rows(i + 1)).Insert Shift:=xlDown
        Application.CutCopyMode = False
    Next i

End Sub

因此，选择所需的单元格，然后运行它 .

回复于 2024-05-16T22:32:42+08:00

建议你使用数组而不是循环（为了速度）：

Sub EddieBetts()
 Dim rng1 As Range
 Dim X, Y
 Dim lngCnt As Long

 Set rng1 = Selection
 X = Application.Transpose(Selection)
 ReDim Y(1 To UBound(X) * 2)
 For lngCnt = 1 To UBound(X)
   Y(2 * lngCnt - 1) = X(lngCnt)
   Y(2 * lngCnt) = X(lngCnt)
 Next
 rng1.Offset(rng1.Rows.Count).Rows.Insert xlDown
 rng1.Resize(rng1.Rows.Count * 2).Value2 = Application.Transpose(Y)
End Sub

回复于 2024-05-16T22:32:42+08:00

修改宏仅适用于选择，而不是整个工作表

2 回答

相关问题