[已解决]VBA对齐合并单元格数据

yjwdjfqb

VBA对齐合并单元格数据
如图：最好能用公式实现，如果不能，用VBA也可以，请老师们帮下忙，谢谢老师们了！


VBA对齐合并单元格数据.rar (9.1 KB, 下载次数: 5)

2016-12-18 23:20 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-12-19 15:42

yjwdjfqb 发表于 2016-12-19 14:42
哪位老师有好的办法呀，谢谢了！

1. Sub test()
   
2.     Dim i&, j%, arr, brr
   
3.     For i = 2 To Cells(1, 1).End(4).Row
   
4.         arr = Split(Cells(i, 1), Chr(10))
   
5.         brr = Split(Cells(i, 2), Chr(10))
   
6.         Debug.Print UBound(arr)
   
7.         Debug.Print LBound(arr)
   
8.         For j = 0 To UBound(arr)
   
9.             s = s & arr(j) & "(" & brr(j) & ")" & Chr(10)
   
10.         Next
    
11.         Cells(i, 3) = Left(s, Len(s) - 1)
    
12.         s = ""
    
13.     Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

“最好能用公式实现”这个问题大概函数公式是完不成的吧

yjwdjfqb

哪位老师有好的办法呀，谢谢了！

望帝春心

yjwdjfqb 发表于 2016-12-19 14:42
哪位老师有好的办法呀，谢谢了！

1. Sub test()
   
2.     Dim i&, j%, arr, brr
   
3.     For i = 2 To Cells(1, 1).End(4).Row
   
4.         arr = Split(Cells(i, 1), Chr(10))
   
5.         brr = Split(Cells(i, 2), Chr(10))
   
6.         Debug.Print UBound(arr)
   
7.         Debug.Print LBound(arr)
   
8.         For j = 0 To UBound(arr)
   
9.             s = s & arr(j) & "(" & brr(j) & ")" & Chr(10)
   
10.         Next
    
11.         Cells(i, 3) = Left(s, Len(s) - 1)
    
12.         s = ""
    
13.     Next
    
14. End Sub

复制代码

爱疯

挤在一起真心不是好的方式。

不能避免这种情况吗？

7171

Sub test()

Dim arr()
Dim arr1()
Dim arr2()
Dim arr3() As String
Dim arr4() As String


arr1 = Range("a2:a7")
arr2 = Range("b2:b7")
ReDim arr(1 To UBound(arr1))

For i = 1 To UBound(arr1)
  arr3 = Split(arr1(i, 1), Chr(10))
  arr4 = Split(arr2(i, 1), Chr(10))
  For j = 0 To UBound(arr4)
    arr4(j) = Join(Array("(", arr4(j), ")"), "")
    arr3(j) = Join(Array(arr3(j), arr4(j)), "")
  Next
  arr(i) = Join(arr3, Chr(10))
Next
Range("c2:c7") = Application.WorksheetFunction.Transpose(arr)

End Sub
这是我的方法，请高手指教