excel vba合并字符串

Sub ss()
    Dim c As Range
    s = "出"
    For Each c In [b5:c6]
        For i = 2 To Len(c)
            If Characters(i, 1).Font.ColorIndex = xlAutomatic Then
                s = s & Mid(c, i, 1)
            End If
        Next
    Next
    [b1] = s
End Sub追问

If Characters子过程未定义

追答Sub ss()
    Dim c As Range
    s = "出"
    For Each c In [b5:c6]
        For i = 2 To Len(c)
            If c.Characters(i, 1).Font.ColorIndex = xlAutomatic Then
                s = s & Mid(c, i, 1)
            End If
        Next
    Next
    [b1] = s
End Sub追问

For i = 2 To Len这个是什么意思

追答

第一个字是出不算从第二个到最后一个一个一个查看

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/v2237v32xjf23jjx7f2.html