Question

EXCEL VBA合并各单元格内容

1。A表的B5：L5范围单元格的内容合并到另表（只合并数字）
2。合并到RT表的D11(如果D11有内容,就合并到D12以此类推)
RT表的范围是D11:D19(如果这个范围都有结果就弹出BOX提示,结果无位置)

Answer 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