复制一定范围的数据,粘贴到没有重复和空白的表格列中

时间:2019-04-24 03:24:46

标签: excel vba excel-tables

我正在导入大量数据,客户名称。

  1. 我要在导入csv后复制此列中的名称,工作表名称为“ Import_Data”,列为“ C”,第一行中有标题

  2. 粘贴到新表中的表列中,没有重复项和空格,表名“ Ticket_Info” ,表名“ Tickets ”,B列,在表的第一行中有标题,但所需的列除外

我需要能够将它们粘贴到表的一列中,因为我在表的其他行中都有方程式,这些方程式可以根据这些唯一值自动生成其他所需的信息。

我已经成功地从Import_Data复制并粘贴了没有重复的内容到Ticket_Info。但是,当它粘贴到Ticket_Info时,它包括Import_Data的标题,并且只有第一个单元格在表中,其余的在表外。

这是我目前拥有的:

 With Sheets("Ticket_Info")
    Sheets("Import_Data").Columns("C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("B2"), Unique:=True
    .Range("B2", .Range("B" & .Rows.Count).End(xlUp)).SpecialCells(xlBlanks).Delete Shift:=xlUp
  End With

我希望将值粘贴到表中,以便其他行可以自动生成其值,但实际上只有第一个值在表中。第一个值也是来自Import_Data的标头,我不想要。

0 个答案:

没有答案