求助，将两列数据每一列分别与另一列的数据合并

ljming

大神，如何将两列数据每一列分别与另一列的数据合并，然后排序在一起，如果能直接输出TXT文档就更好了，例子如附件~

两列合并.zip (7.1 KB, 下载次数: 26)

2016-11-30 15:57 上传

点击文件名下载附件

有4地

两列合并.zip (7.26 KB, 下载次数: 26)

2016-12-1 09:37 上传

点击文件名下载附件

ljming

有4地 发表于 2016-12-1 09:38

谢谢～如果我增加了这两列的数据量，套你的公式就不成功了呢~

ljming

自己写了个代码，但是当量达到一定级别时，特别慢，有大神帮忙优化下的么？数量级别如附件。
两列合并.zip (51.95 KB, 下载次数: 32)

2016-12-1 15:41 上传

点击文件名下载附件

1. Sub hb()
   
2.    
   
3.     i = 1
   
4.     For aa = 1 To Range("A65536").End(xlUp).Row
   
5.     For bb = 1 To Range("B65536").End(xlUp).Row
   
6.     Cells(i, 3) = Cells(aa, 1) & Cells(bb, 2)
   
7.     i = i + 1
   
8.     Next
   
9.     Next
   
10.   
    
11. End Sub
    

复制代码

ljming

再顶一下，求大神优化优化。

wangpbm

1. Sub hb()
   
2.     Dim arr, i As Long, brr()
   
3.     arr = Range("a1").CurrentRegion.Value
   
4.     ReDim brr(1 To 99999, 1 To 1)
   
5.     For i = 1 To UBound(arr)
   
6.         brr(i, 1) = arr(i, 1) & arr(i, 2)
   
7.     Next i
   
8.     Range("c1").Resize(i, 1).Value = brr
   
9. End Sub

复制代码