如果活动单元格位于表列中，则仅复制单元格值

Question

我试图编写一个宏来检查用户是否在某个列中选择了一个单元格，然后将该单元格的值复制到另一个工作表。我在第一行中不断收到类型不匹配错误，我在那里检查用户是否在第二列中选择了一个单元格。这是我的代码：

    If Intersect(ActiveCell, ActiveSheet.ListObjects("Table1").ListColumns(2)) Is Nothing Then
    MsgBox "You must select a cell in the appropriate column.", vbOKOnly + vbInformation, "Error"
Else
    ActiveCell.Copy
    Sheets("Destination").Range("G3").PasteSpecial xlPasteValues
End If

我猜测它与我使用ListColumns有关...？

（我不希望标题行计为有效选择，所以实际上只有第2列的主体。）

Answer 1

想出来。我只需要将DataBodyRange添加到该行。代码现在是：

transactionId