Question

我在这里遇到麻烦，无法在任何地方找到解决方案，也无法找到找到的解决方案。

我需要在单个多行文本框中插入许多值，并将其放置在多个单元格中。我尝试了很多方法都没有成功，所以...问题是这样的：

如何更改此设置： Fig1

或者这个： Fig2

仅使用UserForm上的一个按钮即可： Fig3

Answer 1

如果数字之间总是有空格，则可以使用SPLIT。
类似于

Option explicit 

Sub test()

    Dim Temp As Variant
    Dim i As Long
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Sheets("Your sheet name")
    Temp = Split(UserForm1.TextBox1, " ")

    For i = LBound(Temp) To UBound(Temp)
        With ws
            'split returns array starting with 0 
            .Cells(i + 2, 1).NumberFormat = "0.00" 
            .Cells(i + 2, 1).Value = Temp(i)
        End With
    Next i

End Sub

多行文本框中到单元格[VBA]的值

1 个答案: