EXCEL VBA合并各单元格内容

2024-11-30 09:30:43

推荐回答（1个）

回答1：

Sub s()
    For i = 2 To 12
        a = Cells(5, i).Text
        n = Len(a)
        For j = 1 To n
            b = Mid(a, j, 1)
            If IsNumeric(b) Then c = c & b
        Next
    Next
    With Sheet2
        i = 11
        Do While .Cells(i, 4) <> ""
            If i = 19 Then MsgBox "无位置": End
            i = i + 1
        Loop
        .Cells(i, 4).NumberFormatLocal = "@"
        .Cells(i, 4) = c
    End With
End Sub