excel - 同时将 2 个选定的相邻单元格的内容复制到表格的最后一行

Question

我看过几篇文章展示了如何使用指定的单元格范围执行此操作，但我需要能够使用可变范围(无论选择什么范围)来执行此操作。我在我的宏中，有两个相邻的单元格，需要根据 A 列的距离将公式复制到表的末尾(事件单元格在 B 列和 C 列中)。我正在尝试的代码如下:

ActiveCell.Resize(1, 2).Select <--Selects the two cells containing a formula in columns B and C. 
Set rng = Selection
Selection.AutoFill Destination:=Range("rng" & Range("A" & Rows.Count).End(xlUp).Row)
Range(Selection, Selection.End(xlDown)).Select

这给出了一个错误。我认为问题出在“rng”上，但我不能指定类似“3B:50C”的内容，因为每次运行时，B 列和 C 列中的起始点单元格都可能是不同的行。任何帮助，将不胜感激。太感谢了!

Answer 1

像这样:

Dim lr As Long, ws As Worksheet, c As Range

If TypeName(Selection) <> "Range" Then Exit Sub 'make sure a range is selected
Set c = Selection.Cells(1)                      'get the top-left cell
Set ws = c.Worksheet                            'parent worksheet

lr = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'last occupied row in ColA
c.Resize(1, 2).AutoFill Destination:=ws.Range(ActiveCell, ws.Cells(lr, c.Column + 1))