如何按照A列将B列内容合并在一个单元格

172664175

如图，A列行数不确定，将B列内容全部合并在C列，大概就是如图示样子。求大佬帮助

zxsea_7426

没有附件，不能测试：

zxsea_7426

1. Sub test()
   
2. ar = [a1].CurrentRegion
   
3. ReDim arr(1 To UBound(ar), 1 To 3)
   
4. For i = 1 To UBound(ar)
   
5.     If Len(ar(i, 1)) Then
   
6.         n = n + 1
   
7.         arr(n, 3) = arr(n, 3) & ar(i, 2)
   
8.     ElseIf ar(i, 1) = "" And Len(ar(i, 2)) Then
   
9.         arr(n, 3) = arr(n, 3) & ar(i, 2)
   
10.     End If
    
11. Next i
    
12. [a1].Resize(n, 3) = arr
    
13. End Sub
    
14. Sub test()
    
15. ar = [a1].CurrentRegion
    
16. ReDim arr(1 To UBound(ar), 1 To 3)
    
17. For i = 1 To UBound(ar)
    
18.     If Len(ar(i, 1)) Then
    
19.         n = n + 1
    
20.         arr(n, 3) = arr(n, 3) & ar(i, 2)
    
21.     ElseIf ar(i, 1) = "" And Len(ar(i, 2)) Then
    
22.         arr(n, 3) = arr(n, 3) & ar(i, 2)
    
23.     End If
    
24. Next i
    
25. [a1].Resize(n, 3) = arr
    
26. End Sub

复制代码

准提部林

空手寫一個
sub test()
dim x as range, y as range
for each x in range([a1], [b65536].end(3)).columns(1).cells
     if x<>"" then set y=x(1, 3)
     y = y & x(1, 2)
next
end sub

172664175

zxsea_7426 发表于 2023-5-18 11:46
没有附件，不能测试：

不好意思，考虑不周，感谢大佬

172664175

zxsea_7426 发表于 2023-5-18 11:47

感谢大佬，你这个会运行错误，四楼运行成功

172664175

准提部林 发表于 2023-5-18 12:18
空手寫一個
sub test()
dim x as range, y as range

大佬厉害，感谢大佬，成功

gwjkkkkk

空手写一个。。。
Sub test()
    Dim ar, br, i&, p&
    ar = Range([A1].Cells(Rows.Count, "B").End(xlUp))
    ReDim br(1 To UBound(ar), 0)
    For i = 1 To UBound(ar)
        If ar(i, 1) <> "" Then p = i
        br(p, 0) = br(p, 0) = ar(i, 2)
    Next
    [D1].Resize(UBound(br)) = br
End Sub

咔咔乱坠

冬佬的，不是我的，365版本的函数，自己简单改一下里面的参数