VBAmacros – 如果单元格匹配单元格在第三张表复制从工作表部分行到新工作表

所以我对编码不是很了解,但是我很快就学会了,通过捎带现有的代码来创build其他代码,但是这个代码对于我来说太多了。

我需要一些帮助,为excel电子表格写一个VBA,这将为我节省大量的时间来比较和汇总数据。 另一种方法是在工作表中创build多个VLookup&If命令,大家都知道这会导致工作表中的不稳定。

任何帮助将不胜感激。

这里是电子表格的布局:

  • 工作表1 =“3年”
  • 工作表2 =“5年”
  • 工作表3 =“10年”
  • 工作表4 =“15年”
  • 工作表5 =“组合”
  • 工作表6 =“合格资金”
  • 第1行在所有工作表中都是相同的
    • 单元格A2是使用= COUNTA(A3:A1048576)的计数器单元格,
      • 任何行之间都不应该有中断
      • 不知道这是否需要,因为我已经看到在macros中这样做的代码(如果是这种情况,我将删除该行)
  • 工作表1-5中的第2行是相同的。 单元格A2:BF2是列标题
    • 工作表5有5个来自BG:BL的附加列
  • 工作表6包含工作表1-4将要交叉引用的数据
  • 如果有匹配,工作表5将成为复制数据的目标工作表,从第3行开始

这是我想要做的:

  • 在工作表6的行F中逐行search“WMC不符合条件”或“不符合条件的共享类”,如果发现其中任何一个文本,则删除整行
  • 在工作表6的A列中查找工作表1的B列中的文本的匹配(从第3行开始),逐行
    • 如果find,则search工作表5的列B以查看该行是否已经存在
      • 如果该行不存在,则将该行(从Worksheet 1)的列A2:BF2中的单元格复制到Worksheet 5中的第一个空白行,在BG列中input“1”,“= SUM(BG3:BJ3)”在列BK中,然后将工作表6中find的行的列D中的文本复制到Worksheet 5中新行的列BL
        • 对于工作表2,在列BK中input“1”,在列BK中input“= SUM(BG3:BJ3)”,然后将工作表6中find的行的列D中的文本复制到工作表中新行的列BL五
        • 对于工作表3,它将在列BK中的列BI“= SUM(BG3:BJ3)”中input“1”,然后将工作表6中find的行的列D中的文本复制到工作表5中新行的列BL
        • 对于工作表4,它将在列BK的列BJ“= SUM(BG3:BJ3)”中input“1”,然后将工作表6中find的行的列D中的文本复制到工作表5中新行的列BL
      • 如果该行存在,则不要再次复制该行,而是input:
        • 该行BH列中的“1”(如果在工作表2中查找)
        • 该行的BI列中的“1”(如果search工作表3)
        • 该行BJ栏中的“1”(如果正在search工作表4)
      • 移到工作表1中的下一行并重复search
      • 一旦达到工作表1的末尾,移动到工作表2,然后工作表3,最后工作表4

再次,任何帮助将不胜感激。