Tag: insert update

VBA导入Excel工作表，追加新行，并更新现有的行

我正在使用Excel生成支持票证系统的报告，我想使用VBA来简化更新报告数据的过程。 我想要做的是将从票务系统转储的Excel文件导入到我用于报告的Excel文件中，但有一个转折点。 我需要使用一列中的值来确定票证是新的还是现有的。 如果是新的，我想将它添加到报告文件。 如果存在，我想用导入的数据覆盖匹配的行（基于匹配的列值，即票号）。 所以基本的过程是： 打开导出的文件（我知道如何做到这一点） 对于导出文件中的每一行 阅读门票号码（A栏） search票据号码的现有票据列（也是列A） 如果find，则用导入的数据replace信息（BX列） 否则将导入的数据附加为新行（列AX） 下一行 上面的步骤4-6是我想要帮助的。 如果票据ID存在，则可以使用= NOT（ISNA（MATCH（[ 导入的票证ID ]，[ 现有票证ID数组 ]））的公式，如果不存在，则返回TRUE;如果票据ID不存在，则返回FALSE喜欢find一个更优雅的解决scheme，如果存在的话。 有没有人有这样做的经验和/或一些VBA代码，我可能会调整，以适应我的目的？ 提前致谢。 编辑：这是我到目前为止的代码。 这并不多。 Sub UpdateTickets() 'Specify data export file Dim fNameAndPath As Variant fNameAndPath = Application.GetOpenFilename(Title:="Select File To Be Processed") If fNameAndPath = False Then Exit Sub 'Open data export file Workbooks.Open Filename:=fNameAndPath 'For […]