VBAmacros – 如果单元格匹配单元格在第三张表复制从工作表部分行到新工作表
所以我对编码不是很了解,但是我很快就学会了,通过捎带现有的代码来创build其他代码,但是这个代码对于我来说太多了。
我需要一些帮助,为excel电子表格写一个VBA,这将为我节省大量的时间来比较和汇总数据。 另一种方法是在工作表中创build多个VLookup&If命令,大家都知道这会导致工作表中的不稳定。
任何帮助将不胜感激。
这里是电子表格的布局:
- 工作表1 =“3年”
- 工作表2 =“5年”
- 工作表3 =“10年”
- 工作表4 =“15年”
- 工作表5 =“组合”
- 工作表6 =“合格资金”
- 第1行在所有工作表中都是相同的
- 单元格A2是使用= COUNTA(A3:A1048576)的计数器单元格,
- 任何行之间都不应该有中断
- 不知道这是否需要,因为我已经看到在macros中这样做的代码(如果是这种情况,我将删除该行)
- 单元格A2是使用= COUNTA(A3:A1048576)的计数器单元格,
- 工作表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
- 如果该行不存在,则将该行(从Worksheet 1)的列A2:BF2中的单元格复制到Worksheet 5中的第一个空白行,在BG列中input“1”,“= SUM(BG3:BJ3)”在列BK中,然后将工作表6中find的行的列D中的文本复制到Worksheet 5中新行的列BL
- 如果find,则search工作表5的列B以查看该行是否已经存在
再次,任何帮助将不胜感激。