Question

EXCEL VBA提取内容

1.B9内容提取到B141

Answer 1

Sub s()
    n = 2
    Do While Cells(141, n) <> ""
        n = n + 1
    Loop
    n = n - 2
    If n Then
        arr = [b141].Resize(1, n)
        [c141].Resize(1, n) = arr
    End If
    a = [b9].Text
    n = Len(a)
    For i = 1 To n
        b = Mid(a, i, 1)
        If IsNumeric(b) Then c = c & b
    Next
    [b141] = c
End Sub