Excel VBA -需要从文本框中获取特定行并发送到特定单元格[已关闭]

whhtz7ly  于 2023-02-05  发布在  其他
关注(0)|答案(1)|浏览(91)

**已关闭。**此问题需要debugging details。当前不接受答案。

编辑问题以包含desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem。这将有助于其他人回答问题。
3天前关闭。
Improve this question
我有一个文本框,用户可以在其中通知不同的序列号

按下按钮后,它应如下所示:

以下是2小时的进度:

我得到的结果是:

我一直在尝试从字符串的特定行获取文本,但我几乎没有vba知识,不知道是否有任何方法可以做到这一点

eaf3rand

eaf3rand1#

一个不错的选择是先将字符串移动到数组中:

Private Sub Example()
    Dim txt As String
    Dim txtArr
    txt = "" & _
        "Test0" & Chr(10) & _
        "Test1" & Chr(10) & _
        "Test2" & Chr(10) & _
        "Test3" & Chr(10) & _
        "Test4"
    Debug.Print txt
    txtArr = Split(txt, Chr(10)) 'Or maybe chr(13)... idk
    
    Cells(50, 1).Resize(UBound(txtArr) + 1, 1) = Application.Transpose(txtArr)

End Sub

我从来不记得哪个是哪个,所以您可能需要与Ch(10)或Chr(13)分开。

输出:

第一节第一节第一节第一节第一次

相关问题