如何把几个单元格内容易去掉分隔符后，合并成一个数组

imyushu

求助：表里1到10列，每一行不固定有内容，如何把有内容的单元格，去掉分隔符“+”后，合并成一个数组？

lenghonghai601

1. 不知道是什么意思，猜的：
   
2. Sub test()
   
3. Dim arr, i%, j%, k%, a, brr()
   
4. arr = Sheet1.UsedRange.Value
   
5. n = 20
   
6. For i = 2 To UBound(arr)
   
7.     For j = 1 To UBound(arr, 2)
   
8.         If arr(i, j) <> "" Then
   
9.             a = Split(arr(i, j), "+")
   
10.             For k = 0 To UBound(a)
    
11.                 m = m + 1
    
12.                 ReDim Preserve brr(1 To m)
    
13.                 brr(m) = a(k)
    
14.             Next k
    
15.         End If
    
16.     Next j
    
17.     If m <> 0 Then
    
18.     Range("a" & n).Resize(1, m) = (brr)
    
19.     Erase brr: m = 0: n = n + 1: b = False
    
20.     End If
    
21. Next i
    
22. End Sub

复制代码

一把小刀闯天下

'并不清楚最终的结果，自己处理

Option Explicit

Sub test()
  Dim arr, i, j, k, t
  arr = [a2:j12]
  ReDim brr(1 To UBound(arr, 1))
  For i = 1 To UBound(arr, 1)
    t = vbNullString
    For j = 1 To UBound(arr, 2)
      If Len(arr(i, j)) Then
        t = arr(i, j)
        For k = j + 1 To UBound(arr, 2)
          If Len(arr(i, k)) Then t = t & "+" & arr(i, k)
        Next
        j = UBound(arr, 2)
      End If
    Next
    brr(i) = Split(t, "+")
    Debug.Print i, "Array(" & Join(brr(i), ",") & ")"
  Next
End Sub

xiaocake

1. Option Explicit
   
2. Sub aa()
   
3.     Dim sht As Worksheet
   
4.     Dim arr, tmpArry
   
5.     Dim tmptxt As String
   
6.     Dim i As Long, j As Long
   
7.     Set sht = ThisWorkbook.ActiveSheet
   
8.     arr = sht.UsedRange
   
9.     For i = 2 To UBound(arr, 1) '从第二行开始直到最后一行
   
10.         tmptxt = ""
    
11.         For j = 1 To 10    'UBound(arr, 2)  '处理前10列
    
12.             tmptxt = tmptxt & " " & arr(i, j) '依次将单元格值用空格连接
    
13.             tmptxt = Replace(tmptxt, "+", " ") '将可能存在的+替换为空格
    
14.             tmptxt = Replace(tmptxt, "  ", " ") '将可能出现的连续的两个空格替换成一个空格
    
15.         Next
    
16.         tmptxt = Trim(tmptxt) '将头尾可能出现的空格去掉
    
17.         tmpArry = Split(tmptxt, " ") '生成该行对应的数组
    
18.         '如果得到的数组不为空,则在立即窗口中显示
    
19.         If UBound(tmpArry) >= 0 Then Debug.Print "第" & i & "行:", "Array(" & Join(tmpArry, ",") & ")"
    
20.     Next
    
21. End Sub

复制代码

ww87725244

1. Sub aa()
   
2. Dim ar, i&, k&, ar1(), m&, s$, ar2, n%
   
3. With Sheet1
   
4.     ar = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count, "j"))
   
5.     ReDim Preserve ar1(1 To UBound(ar), 1 To UBound(ar, 2))
   
6.     For i = 1 To UBound(ar)
   
7.         For k = 1 To UBound(ar, 2)
   
8.             If ar(i, k) <> "" Then
   
9.                 s = s & ar(i, k) & "+"
   
10.             End If
    
11.         Next
    
12.         If Len(s) <> 0 Then
    
13.             m = m + 1
    
14.             ar2 = Split(Left(s, Len(s) - 1), "+")
    
15.             For n = LBound(ar2) To UBound(ar2)
    
16.                 ar1(m, n + 1) = ar2(n)
    
17.             Next
    
18.             s = ""
    
19.         End If
    
20.     Next
    
21. End With
    
22. End Sub

复制代码

imyushu

问题已解决，感谢楼上各位的帮助