0

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

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

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

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

ActiveCell.EntireRow.Select

任何和所有的帮助将不胜感激。即使只是对上述部分步骤的帮助也可以帮助我。

谢谢！

4

1 回答 1

0 
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
于 2012-08-10T21:56:35.863 回答