excel - 有条件的循环。做直到数字结束

Question

我有一个带有完整地址的单元格。我想将街道名称和街道号码复制到下一个单元格。例如“STRANDVEJEN 100 MIDDELFART DENMARK”

在此示例中，我希望复制“STRANDVEJEN 100”。

目前一切都被复制到下一个单元格。但我需要建议如何继续

Sub move()
    Range("C3:C2000").Copy Range("D3:D2000")
    Do until......
End Sub

我需要帮助，直到部分。

标签： excelvba

Answer 1

尝试：

Option Explicit

Sub CopyYes()

    Dim arr As Variant, strSplit As Variant
    Dim i As Long

    With ThisWorkbook.Worksheets("Sheet1")

        arr = .Range("C3:C2000")

        For i = LBound(arr) To UBound(arr)

            strSplit = Split(arr(i, 1), " ")

            .Range("E" & i + 2).Value = strSplit(0)

            .Range("F" & i + 2).Value = strSplit(1)

        Next i

    End With

End Sub

结果：