xlPastevalues给我一个对象定义的错误VBA

Question

unsigned char

晚上好，“粘贴值”部分给了我一个对象定义的错误，我不知道为什么

Answer 1

您要进行测试以确保要复制的可见单元格为

If Application.WorksheetFunction.Countif(ws.Range("A1:N" & LastRow),Worksheets("test").Cells(1, 26).Value) > 0

。测试您的过滤器有多个单元格

If LastRow > 1 

，您还已经粘贴了以下行：

ws.Range("F2:F" & LastRow).SpecialCells(xlCellTypeVisible).Copy Range("C6")

您粘贴到C6，现在有一个空的剪贴板，因此无法再次粘贴。

也许您想要：

ws.Range("F2:F" & LastRow).SpecialCells(xlCellTypeVisible).Copy 
DestinationRow = wsDestination.Cells(wsDestination.Rows.Count, "C").End(xlUp).Row + 1
wsDestination.Range("C" & DestinationRow).PasteSpecial xlPasteValues

Answer 2

您已经将复制的单元格粘贴到inbd表C6中。

您的代码没有多大意义。在过滤之前，您需要确定数据的最后一行，然后复制并粘贴，然后再次粘贴。我建议您先过滤，然后确定两张纸中的最后一行，然后依次复制并粘贴特殊字符，而不要将错误粘贴到C6步骤。