因报告需要，请高手帮忙，急急急！！！！

镇远信合

在日常检查中，经常遇到这样的问题，实在太急，一个一个的人工汇总，既浪费时间，又可能出现差错，不知如何破解，请众位精英帮忙。表格中的A先生的笔数可能只有1笔，也可能有10笔不等，问题是一个有具体指向（如超权、未办理抵押登记、无评估报告等等.......）

wofuocibei2008

可以用PHONETIC(C3:J3)，区域自己调整，但公式不会分,可以敏个空单元格加一个软回车可自动换行（alt+回车）

kkf5560

用IF判断，PHONETIC或者CONCATENATE或者&连接，需要回车的加入&CHAR(10),然后....想不到啦

gdszczh

建议发到vba群，那里可能可以帮你解决。

镇远信合

达不到效果呀，有其他方法吗？

wofuocibei2008

镇远信合 发表于 2018-3-22 09:40
达不到效果呀，有其他方法吗？

可以用PHONETIC(C3:J3)，区域自己调整，但公式不会分行,可以每个空单元格加一个软回车可自动换行（alt+回车）；至于所有的加软回车可以用批量查找替换作很方便

superperson

写了一组代码，可以处理第三行的数据，结果显示在M3单元格，符合你的要求。当然这只是提出一个解决的思路，根据楼主的实际情况，把代码展开我想是可以解决这个问题的，希望能抛砖引玉。代码如下：
Sub test()
Dim str1 As String, str2 As String, i As Integer, s As Integer
    For i = 3 To 10 Step 1
        If Cells(3, i) <> "" Then
            s = s + 1
            If s = 1 Then
                str1 = Cells(3, i).Value
            Else
                str1 = Chr(10) & Cells(3, i).Value
            End If
            str2 = str2 & str1
        End If
    str1 = ""
    Next i
    s = 0
    Cells(3, 13) = str2
    str1 = ""
    str2 = ""
End Sub