Question

我想将行从A列复制到CO，但每次行都会不同。我想根据光标的位置复制A：CO的范围。

Range("A6:CO6").Copy
    Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
    Sheets("Active").Select
    Rows("6:6").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
End Sub

我想选择具有光标位置的行，并将A：CO范围复制到“完成”表。我有这个宏，但仅适用于第6行。

Answer 1

用以下内容替换.Copy行：

ActiveSheet.Range("A" & ActiveCell.Row & ":CO" & ActiveCell.Row).Copy

它基于ActiveCell.Row构建范围字符串，类似于您在代码段第2行中所做的操作。

Answer 2

使用调整大小的简单解决方案。

ActiveCell.Resize(, 93).Copy
Sheets("Completed").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues

有没有一种方法可以根据光标位置在宏中动态选择范围？

2 个答案: