需要一些帮助填充Excel

时间:2016-12-09 16:47:40

标签: excel vba excel-vba

所以我花了两天时间尝试学习足够的VBA脚本,以便在新的电子表格通过宏从供应商到达时自动填充电子表格。长话短说,我还没弄明白。我现在使用此公式=IF($A$1="", "", INDIRECT(CONCATENATE("'[",$A$1,"]Tester'!A12")))在将新工作表复制到我的工作簿中并将新工作表的名称放在行A中然后复制并粘贴旧条目下面的新公式时更新单元格。不幸的是,我的公式中的“Tester'A12”部分并没有增加我的列的单元格数(即A12没有变成A13,A14等)。我想知道是否有人知道我可以解决这个问题的方法。我可能会遗漏一些超级简单的东西。谢谢你的时间!

1 个答案:

答案 0 :(得分:0)

=IF($A$1="", "", INDIRECT(CONCATENATE("'[",$A$1,"]Tester'!A" & ROW())))

如果公式在第1行,它将获得测试仪A1。如果需要,可以添加或减去

=IF($A$1="", "", INDIRECT(CONCATENATE("'[",$A$1,"]Tester'!A" & ROW()+3)))

=IF($A$1="", "", INDIRECT(CONCATENATE("'[",$A$1,"]Tester'!A" & ROW()-5)))