只在Excel vba中添加新表格数据

我试图从几个文件中读取数据，并创build一个包含读取数据的新文档，使用工作簿对象很容易。

但是，我不确定如何只添加尚未添加的数据，而不覆盖先前写入的数据。

任何帮助将不胜感激，在此先感谢。

Answer 1

您可以先将数据读入Dictionary对象。 字典可以用来存储唯一的项目列表。 例如：

 Dim d As Object Set d = CreateObject("Scripting.Dictionary") ' Loop thru your file data, adding each value if it doesn't exist... If Not d.Exists(strData) Then d.Add strData, "" ' End loop ' Now add each dictionary item to your workbook... Dim k As Variant For Each k In d ' Add k to workbook Next