Vba visualbasic在Excel中的应用

下面是我在activex控件中使用textbox和Button分割文本的示例输出。如您所见，文本框中输入了“Hello World！”，输出为拆分文本

但我想要的是，每次我在文本框中输入一些数据，它就会不断地给出分割的文本，换句话说，单元格会保留我在文本框中输入的历史数据

因为在文本框中输入新数据时，它只提供拆分的文本，而不保留它。我想要这个输出，因为我将使用所有历史分割文本，并在计算最多出现的次数后对其进行计数，我将为我的项目制作一个描述性图表

这是我的密码：

Sub SplitText()
    Dim TextString As String, WArray() As String, Counter As Integer, Strg As String

    TextString = TextBox1
    WArray() = Split(TextString, " ")

    For Counter = LBound(WArray) To UBound(WArray)
        Strg = WArray(Counter)
        Cells(Counter + 2, 1).Value = Trim(Strg)
    Next Counter
End Sub

---

您可以在不循环的情况下执行此操作

编辑：更新为附加到列的末尾

Sub SplitText()
    Dim WArray As Variant

    WArray = Split(TextBox1, " ")
    With Sheets("DatabaseStorage")
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(WArray) + IIf(LBound(WArray) = 0, 1, 0)) = Application.Transpose(WArray)
    End With
End Sub

---

您可以在不循环的情况下执行此操作

编辑：更新为附加到列的末尾

Sub SplitText()
    Dim WArray As Variant

    WArray = Split(TextBox1, " ")
    With Sheets("DatabaseStorage")
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(WArray) + IIf(LBound(WArray) = 0, 1, 0)) = Application.Transpose(WArray)
    End With
End Sub

---

---

这是非常简单的解决方法-您想将原始输入存储在哪里？我想将所有历史数据存储到另一个工作表Sir下面的答案：）先生，它可以工作，但是我应该怎么做才能将“测试”一词替换到我的texbox1中，用户可以输入任何数据这里是示例输出我尝试更改“测试”一词但是它给这个输出输入数据：程序员和开发人员输出：程序员，和，开发人员，开发人员这是非常简单的解决方法-你想把原始输入存储在哪里？我想把所有的历史数据存储到另一个工作表中。下面的答案：）先生，它可以工作，但是我应该怎么做来替换“测试”这个词呢在我的texbox1中，用户可以输入任何数据。在示例输出中，我尝试更改“test”一词，但它给出了此输出输入数据：程序员和开发人员输出：程序员，开发人员，开发人员它拆分但不连续地存储在texbox1中输入的所有数据。我的预期输出是每次我把数据放在文本框上，它是否可以存储被拆分的数据。我不完全确定你在说什么。你是说你不想覆盖包含数据的单元格吗？是的，汤姆爵士，这正是我想做的。但不幸的是，我找不到关于我的问题的好教程，hmmmI已将其更新为附加到

A

列的末尾，请看一下以供参考嗨，汤姆爵士，谢谢你的帮助，它终于起作用了我期望的输出。这个答案对我们来说意义重大，因为它可以拆分，但不能连续地将输入的全部数据存储在textbox1中。我的预期输出是每次我把数据放在文本框上，它是否可以存储被拆分的数据。我不完全确定你在说什么。你是说你不想覆盖包含数据的单元格吗？是的，汤姆爵士，这正是我想做的。但不幸的是，我找不到关于我的问题的好教程，hmmmI已将其更新为附加到

A

列的末尾，请看一下以供参考嗨，汤姆爵士，谢谢你的帮助，它终于起作用了我期望的输出。这个答案对我们来说意义重大，谢谢