试图创建一个新的Excel表单，这是另一个数据表的条件摘要

我有一个大型数据表40列x 10000行，我想在新表中删减，准备导出到csv文件。试图创建一个新的Excel表单，这是另一个数据表的条件摘要

主要数据表的相关标题是： -

如果“列表”等于一个值（在本例中为“摩托车销售”），“取消订阅”，则新表希望填充列：段，组，电子邮件，姓，名和手机号不等于-1，“email”不是空白。

起初，我尝试了vlookup，但它似乎只有在“列表”列中的所有内容都是唯一值时才有效。在我的情况下，他们有很多“摩托车销售”记录。

我也尝试了一些示例VBA代码填充新工作表，但它将需要永远，并经常崩溃的Excel。我也无法解决如何添加我需要的条件。

我的示例代码如下。有人可以帮忙吗 - 我已经失去了一天半的在线示例，教程和书籍。我觉得我缺少一些简单的东西，因为我期望这种排序是常规练习。

预先感谢

Private Sub Workbook_Open() 
Dim i, LastRow 
LastRow = Sheets("THS Contact Database").Range("A" & Rows.Count).End(xlUp).Row 
Sheets("Motorbike Sales").Range("A2:AR10000").ClearContents 
For i = 2 To LastRow 
If Sheets("THS Contact Database").Cells(i, "A").Value = "Motorbike Sales" Then 
Sheets("THS Contact Database").Cells(i, "A").EntireRow.Copy Destination:=Sheets("Motorbike Sales").Range("A" & Rows.Count).End(xlUp).Offset(1) 
End If 
Next i 
End Sub

来源

2015-03-19 KarlHonda

复印整个片材上List过滤器来选择和删除Unsubscribed所有行不Motorbike，滤波器选择和删除所有-1，滤波器上email选择和删除所有（空白）。

然后删除列List和Unsubscribed。

来源

2015-03-19 04:34:50 pnuts

感谢您的回复 - 我可能没有说清楚的是，我希望表格2上的信息在表格1中添加或更改数据时动态更新。 – KarlHonda 2015-03-19 04:54:49

是的，的确“缺少简单的东西”。复制到新工作表时，请尝试粘贴链接。 – pnuts 2015-03-19 05:05:51

谢谢 - “粘贴链接”是我不知道的，几乎完全解决了我的问题。（任何类型的链接数据似乎都会显着减慢所有进程的速度 - 这是否正常？仅用于保存就花了差不多5分钟时间） – KarlHonda 2015-03-19 05:53:26

试图创建一个新的Excel表单，这是另一个数据表的条件摘要

回答

相关问题