Question

所以我一直在使用下面的代码示例取得巨大成功。它需要先前复制的选项，然后切换到另一页，从下面的第一行代码开始。它搜索了包含数据的最后一行，然后返回该行值，然后添加+ 1，然后在该位置粘贴选择。

我想更改代码以使用结构化引用，而不是列（4）我想使用列的名称：＆＃34; CCMS Notification＆＃34;。表名也是＆＃34; OpenComplaints＆＃34;。

如果有办法完全跳过使用LastRow2并直接粘贴到表的末尾，那就太棒了。感谢任何人给我的任何帮助。

Sheets("BP -Tracker - Open Complaints").Select
With activesheets
Dim LastRow2 As Long
    LastRow2 = Sheets("BP -Tracker - Open Complaints").ListObjects("OpenComplaints").Range.Columns(4).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
End With

Range("D" & LastRow2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

您可以尝试通过以下方式替换所有代码：

Sheets("BP -Tracker - Open Complaints").Range("OpenComplaints[CCMS Notification]").Offset(Range("OpenComplaints[CCMS Notification]").Count, 0).Resize(1).pastespecial xlpastevalues

请注意，无论该列是否包含数据，它都会粘贴在“OpenComplaints”表的最后一行之后。

要在最后一个“空白”单元格后粘贴：

Sheets("BP -Tracker - Open Complaints").Range("OpenComplaints[CCMS Notification]").Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Offset(1, 0).PasteSpecial xlPasteValues

Excel宏结构化列引用

1 个答案: