急求助大师：Excel多个表头与对应数据连接，形成一段话，填写到对应单元格中。VBA...

Excel2119

求助各位大师：编写多个表头与对应数据连接，形成一段话，填写到对应单元格中。VBA代码如何编写？




附件如下：

Excel2119

参考：

1. <font face="宋体" size="3">Sub text2()
   
2.     For i = 5 To 9
   
3.         For j = 1 To 11
   
4.             If Cells(i, j) <> "" Then
   
5.                c = c & "、" & Format(Cells(i, j), "0.0000")
   
6.             End If
   
7.         Next
   
8.         Cells(i, "L") = Trim(Mid(c, 2))
   
9.     Next
   
10. End Sub</font>

复制代码

limonet

纯苦力活，用函数可以。

Excel2119

limonet 发表于 2024-3-25 16:56
纯苦力活，用函数可以。

用函数的话，就一个判断数据是否为空，若空，则不显示表头和空值。这一要求，用函数，很长很长

Excel2119

求助大师，我思路有点混乱，如下代码，仅为参考，不灵活，没能完全实现，等待大师帮助
Sub ConnectData()
    Dim i As Integer
    Dim salesDept As String
    Dim customer As String
    Dim fruitTotal As Double
    Dim vegTotal As Double
    Dim result As String

    For i = 5 To 9
        salesDept = Cells(i, 1).Value
        customer = Cells(i, 2).Value
        nam = Cells(i, 3).Value
'        fruitTotal = Cells(i, 3).Value + Cells(i, 4).Value + Cells(i, 5).Value
        fruitTotal = Cells(i, 4).Value + Cells(i, 5).Value + Cells(i, 6).Value
        vegTotal = Cells(i, 6).Value + Cells(i, 7).Value + Cells(i, 8).Value

        result = salesDept & "、" & customer & "：给客户 " & nam & " 售出共 " & fruitTotal & "kg, 水果 " & fruitTotal & "kg (" & Cells(i, 3).Value & "kg, " & Cells(i, 4).Value & "kg, " & Cells(i, 5).Value & "kg)。"
        If vegTotal > 0 Then
            result = result & " 蔬菜 " & vegTotal & "kg (" & Cells(i, 6).Value & "kg, " & Cells(i, 7).Value & "kg, " & Cells(i, 8).Value & "kg)。"
        End If

        Cells(i, 12).Value = result
    Next i
End Sub

limonet

函数：=A5&"、"&B5&"：给客户"&C5&"售出共"&K5&"kg，水果"&G5&"kg"&"（"&TEXTJOIN("、",,MAP(D$4:F$4&D5:F5&"kg",LAMBDA(x,IF(ISNUMBER(--MID(x,FIND("kg",x)-1,1)),x,""))))&IF(J5<>"","）；蔬菜"&J5&"kg（"&TEXTJOIN("、",,MAP(H$4:I$4&H5:I5&"kg",LAMBDA(x,IF(ISNUMBER(--MID(x,FIND("kg",x)-1,1)),x,"")))),"")&"）。"

鄂龙蒙

【附件1】求助：编写多个表头与对应数据连接，形成一段话，填写到对应单元格中。VBA代.rar (18 KB, 下载次数: 8)

2024-3-25 17:31 上传

点击文件名下载附件

Excel2119

1. <blockquote>Sub text02()

复制代码

Excel2119

鄂龙蒙 发表于 2024-3-25 17:31

感谢大师，我的思路好像和您的有点像，代码如下：

1. Sub text02()
   
2. 
   
3. 
   
4.     For i = 5 To 9
   
5.         序号 = Cells(i, 1).Value
   
6.         销售部 = Cells(i, 2).Value
   
7.         客户 = Cells(i, 3).Value
   
8. 
   
9.         水果小计 = Cells(i, 7).Value
   
10.         蔬菜小计 = Cells(i, 10).Value
    
11.         
    
12.         合计 = Cells(i, 11).Value
    
13.         
    
14.         '-----------恳请大师修改以下代码，实现自动判断数据是否为空或0，若是，则该数据及对应表头不显示在内容中-------
    
15.         
    
16.         连接合并 = 序号 & "、" & 销售部 & "：给客户 " & 客户 & " 售出共 " & 合计 & "kg 商品, 其中：水果 " & 水果小计 & "kg (" _
    
17.             & Cells(4, 4).Value & Cells(i, 4).Value & "kg, " _
    
18.             & Cells(4, 5).Value & Cells(i, 5).Value & "kg, " _
    
19.             & Cells(4, 6).Value & Cells(i, 6).Value & "kg)。"
    
20.         
    
21.         If 蔬菜小计 > 0 Then
    
22.             连接合并 = 连接合并 & " 蔬菜 " & 蔬菜小计 & "kg (" _
    
23.                 & Cells(4, 8).Value & Cells(i, 8).Value & "kg, " _
    
24.                 & Cells(4, 8).Value & Cells(i, 9).Value & "kg)。"
    
25.         End If
    
26.         
    
27.         '------------------------------------------------------------------------------------------------------------------
    
28.         
    
29.         Cells(i, 12).Value = 连接合并
    
30.         
    
31.     Next i
    
32.    
    
33. End Sub

复制代码

Excel2119

limonet 发表于 2024-3-25 17:30
函数：=A5&"、"&B5&"：给客户"&C5&"售出共"&K5&"kg，水果"&G5&"kg"&"（"&TEXTJOIN("、",,MAP(D$4:F$4&D5:F5 ...

感谢limonet老师用函数实现，我举这个案例是在工作经常用的，比如：根据勘界数据编制征地协议等。在数据较多时，用函数可能会慢点。感谢limonet老师。