Excel宏选择整个表行，剪切和粘贴到另一个表，然后删除原始行

Question

我正在尝试创建一个可执行以下操作的宏：

1. 识别我的活动单元格并选择整个表格行 那些细胞。切掉所有这些行。
2. 将它们粘贴到另一个工作表上的另一个表中（最后 将表格添加到已存在的任何内容中。
3. 返回原始工作表并删除现在为空的行。

我对VBA有一个很好的理解。我能够根据我的活动单元格选择整行。但是如果我选择多个单元格（例如，B4，B5和B6），它只会选择一行而不是全部三行。另外，我一直无法选择Table Row，而不是整个Row。

这是我开始使用的第一行代码。但它不是A：选择多行或B：只选择表格的行单元格。

ActiveCell.EntireRow.Select

非常感谢任何和所有帮助。即使只是帮助我完成上述部分步骤也可以帮助我。

谢谢！

Answer 1

Sub Tester()

Dim rng As Range

    Set rng = Application.Intersect(Selection.EntireRow, _
                    Selection.Parent.ListObjects(1).Range)

    If Not rng Is Nothing Then
        'rng.Font.Color = RGB(255, 0, 0) 'do something with rng
    End If

End Sub