时间戳

首页 > 解决方案 > 多行文本框中的值到单元格

excel - 多行文本框中的值到单元格

问题描述

我在这里遇到了麻烦，我无法在任何地方找到解决方案，或者用我找到的解决方案来解决。

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

如何更改： 图 1

或者这个： 图2

对此，仅使用用户窗体上的一个按钮： 图 3

标签： excelvba

解决方案

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

推荐阅读