多行多列合并到一行多列

翡然

行列数量不确定，如何让多行多列数据整合到一行内，如有2条及以上数据，用特殊符号分隔

谢谢

祝洪忠-

xuemei0216

看一下，是不是你想要的结果

everbest2015

3楼代码写的是不错,就是缩进有点惨不忍睹

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m, p
  arr = [a1].CurrentRegion.Offset(1).Resize(, 7)
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To UBound(arr, 2)) As String
  For i = 1 To UBound(arr, 1) - 1
    m = m + 1: brr(m, 1) = arr(i, 1)
    For j = 2 To UBound(arr, 2)
      If Len(arr(i, j)) Then brr(p + 1, j) = brr(p + 1, j) & "," & arr(i, j)
    Next
    If arr(i, 1) <> arr(i + 1, 1) Then
      For j = 2 To UBound(arr, 2)
        If Len(brr(p + 1, j)) Then brr(p + 1, j) = Mid(brr(p + 1, j), 2)
      Next
      p = i
    End If
  Next
  [j2].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

YZC51

everbest2015 发表于 2019-10-17 21:02
3楼代码写的是不错,就是缩进有点惨不忍睹

这样试试
[a1].CurrentRegion.HorizontalAlignment = xlCenter ''左右居中
[a1].CurrentRegion.VerticalAlignment = xlCenter ''上下居中

jjmysjg

各列的数据不变