求更好办法串联字符

microyip

1. Sub 汇总()
   
2.     Dim vData As Variant, nRow As Integer, nCol As Integer
   
3.     Dim vFill As Variant, nFillRow As Integer
   
4.     With Sheet1
   
5.         With .UsedRange
   
6.             vData = .Offset(2).Resize(.Rows.Count - 2).Value
   
7.         End With
   
8.         For nRow = 1 To UBound(vData)
   
9.             If vData(nRow, 1) = "汇总工作内容" Then
   
10.                 nFillRow = nRow
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.         ReDim vFill(5 To UBound(vData, 2))
    
15.         For nRow = 1 To nFillRow - 1
    
16.             For nCol = 5 To UBound(vData, 2)
    
17.                 If vData(nRow, 1) Like "A*" And vData(nRow, nCol) <> "" Then
    
18.                     If vFill(nCol) <> "" Then vFill(nCol) = vFill(nCol) & "；"
    
19.                     vFill(nCol) = vFill(nCol) & vData(nRow, 1) & vData(nRow, 2) & vData(nRow, nCol) & vData(nRow, 3)
    
20.                 End If
    
21.             Next
    
22.         Next
    
23.         .Cells(nFillRow + 2, "E").Resize(, UBound(vFill) - 4).Formula = vFill
    
24.     End With
    
25. End Sub

复制代码

microyip

附上附件以供参考

micch

1. Sub test()
   
2.     arr = Sheet1.UsedRange
   
3.     ReDim brr(1 To 2, 5 To UBound(arr, 2))
   
4.     For i = 3 To UBound(arr)
   
5.         If arr(i, 1) Like "A*" Then
   
6.             st = arr(i, 1) & arr(i, 2)
   
7.             For k = 5 To UBound(arr, 2)
   
8.                 If arr(i, k) <> "" Then
   
9.                     brr(1, k) = brr(1, k) & IIf(brr(1, k) = "", "", ";") & st & arr(i, k) & arr(i, 3)
   
10.                     brr(2, k) = brr(2, k) + arr(i, k) * arr(i, 4)
    
11.                 End If
    
12.             Next
    
13.         ElseIf arr(i, 1) = "汇总工作内容" Then Exit For
    
14.         End If
    
15.     Next
    
16.     Cells(i, 5).Resize(2, UBound(arr, 2) - 4) = brr
    
17. End Sub
    

复制代码

短腿小居居。

用textjoin()串联数据；trim()，Clean()来整理数据

artin88

AI_ACE 发表于 2020-2-20 15:53
CONCAT 函数，图片是先连接一行然后再用另一个CONCAT连接所有结果。
也可以调整好你的数据顺序，来使C ...

这个法子好，能用公式解决最方便，不需要编程

票留记

artin88 发表于 2020-2-21 14:54
这个法子好，能用公式解决最方便，不需要编程

哈哈。。用函数固然好，如果几百列，和几百行，你怎么玩啊？谢谢

artin88

用数组公式啊，解决问题，一个函数解决问题，不需要辅助列

=CONCAT($A$3:$A$5&$B$3:$B$5&E3:E5&$C$3:$C$5&";")

micch

artin88 发表于 2020-2-24 11:22
用数组公式啊，解决问题，一个函数解决问题，不需要辅助列

=CONCAT($A$3:$A$5&$B$3:$B$5&E3:E5&$C$3:$C$ ...

需要加个if判断，去掉空单元格所在行