多列合并一个问题，拜托各位大神

小王吗

如图所示，我需要在A-E显示图中所示内容，但是要H列到L列下面没有数据了才追加N列到R列，麻烦各位大神协助一下


------------------
意思就是把 H-L的5列与N-R的5列合并到A-E列，有个条件就是H-L和N-R的行数是未知的，合并完以后就是图中A-E那样显示出来

狗尾巴草儿

你的意思是把H-L列和N-R列一起合并到A-E列吗？还是说如果H-L列没有内容，就把N-R列合并到A-E列？呃。。。你的要求不太明白

小王吗

狗尾巴草儿 发表于 2018-1-23 21:54
你的意思是把H-L列和N-R列一起合并到A-E列吗？还是说如果H-L列没有内容，就把N-R列合并到A-E列？呃。。。你 ...

抱歉，我的意思就是把H-L 和 N-R 合并到A-E，具体意思就是先把H-L放过去，如果H-L下面没有更多数据了，再把N-R继续往A-E放

狗尾巴草儿

恩，复制粘贴的结果不是你想要的是吗，复制粘贴最快了，你是担心后面有数据看不到吗

小王吗

狗尾巴草儿 发表于 2018-1-24 08:37
恩，复制粘贴的结果不是你想要的是吗，复制粘贴最快了，你是担心后面有数据看不到吗

复制也行，但是因为输出的内容不在这个表，所以这里还是想用公式实现

狗尾巴草儿

我用VBA做的，你看一下

1. Sub dd()
   
2. x = ActiveSheet.Range("H65535").End(xlUp).Row
   
3. y = ActiveSheet.Range("N65535").End(xlUp).Row
   
4. k = 1
   
5. For i = 1 To x
   
6. If Cells(i, 8) <> "" Then
   
7. Cells(k, 1) = Cells(i, 8)
   
8. Cells(k, 2) = Cells(i, 9)
   
9. Cells(k, 3) = Cells(i, 10)
   
10. Cells(k, 4) = Cells(i, 11)
    
11. Cells(k, 5) = Cells(i, 12)
    
12. k = k + 1
    
13. End If
    
14. Next
    
15. For j = 1 To y
    
16. If Cells(j, 14) <> "" Then
    
17. Cells(k, 1) = Cells(j, 14)
    
18. Cells(k, 2) = Cells(j, 15)
    
19. Cells(k, 3) = Cells(j, 16)
    
20. Cells(k, 4) = Cells(j, 17)
    
21. Cells(k, 5) = Cells(j, 18)
    
22. k = k + 1
    
23. End If
    
24. Next
    
25. End Sub

复制代码

狗尾巴草儿

小王吗 发表于 2018-1-24 08:48
复制也行，但是因为输出的内容不在这个表，所以这里还是想用公式实现

跨工作表的话，VBA也能实现，用函数的话我暂时想不到适合的

小王吗

狗尾巴草儿 发表于 2018-1-24 11:28
跨工作表的话，VBA也能实现，用函数的话我暂时想不到适合的

感谢，感谢，非常感谢，我试试

小王吗

狗尾巴草儿 发表于 2018-1-24 11:12
我用VBA做的，你看一下

非常感谢，太强大了，赞赞攒攒赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞赞

狗尾巴草儿

不用客气，能帮上你我也很开心，证明我的学习还是有效果的，哈哈哈