如何将EXCEL表格中一行合并为一个字符串？

397442484

各位大师，在线求助！
如图，将EXCEL表格中每一行（列数不确定），先合并姓名，再根据第一行的内容合并“基本项”的第三行和对应行内容，再合并“扣款项”的第三行和对应行内容，最后合并“实发工资列”。


如并后效果：燕春科技:\n[基本项目]\n序号：1\n基本工资：1000\n绩效工资：2000\n应发工资合计：3000\n[扣款项]\n公积金：300\n医保：200\n扣款合计：500\n实发工资：\n
望各位大师不吝赐教，不胜感谢！

397442484

每次工资表列数不确定。最好是能自动检测出有几列，就合并到哪一列为止。

397442484

基本项与扣款项可能交叉。

397442484

最好写成vba自定义函数，方便引用。

LIUZHU

我理解的意思，是不是要合并成这个样子，放在一个单元格中？以第一个姓名为例。
燕春科技
[基本项目]
基本工资：1000
绩效工资：2000
应发工资合计：3000
[扣款项]
公积金：300
医保：200
扣款合计：500
实发工资：2500

397442484

可以这么理解。我这是程序中的一部分，合并成\n分隔的话，后继程序可以将"\n”理解为换行的。

micch

会写程序，循环一下就可以了吧？if判断是否有数据。合并前先判断标题是否交换位置

397442484

菜鸟级，代码只会复制、粘贴、修改。自己不会写。

3190496160

Sub 合并()
With Sheets("sheet2")
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    ar = .Range(.Cells(1, 3), .Cells(r, y))
End With
ReDim br(1 To UBound(ar), 1 To 1)
For i = 3 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        n = n + 1
        For j = 2 To UBound(ar, 2) - 1
            If Trim(ar(1, j)) = "基本项" Then
                If br(n, 1) = "" Then
                    br(n, 1) = ar(i, 1) & ":" & Chr(10) & "[基本项目]" & Chr(10) & ar(2, j) & ":" & ar(i, j)
                Else
                    br(n, 1) = br(n, 1) & Chr(10) & ar(2, j) & ":" & ar(i, j)
                End If
            End If
        Next j
        k = 0
        For j = 2 To UBound(ar, 2) - 1
            If Trim(ar(1, j)) = "扣款项" Then
                k = k + 1
                If k = 1 Then
                    br(n, 1) = br(n, 1) & ":" & Chr(10) & "[扣款项]" & Chr(10) & ar(2, j) & ":" & ar(i, j)
                Else
                    br(n, 1) = br(n, 1) & Chr(10) & ar(2, j) & ":" & ar(i, j)
                End If
            End If
        Next j
        br(n, 1) = br(n, 1) & Chr(10) & ar(2, UBound(ar, 2)) & ":" & ar(i, UBound(ar, 2))
    End If
Next i
With Sheets("合并")
    .[a1].CurrentRegion = Empty
    .[a1].Resize(n, 1) = br
End With
MsgBox "ok!"
End Sub

3190496160