Question

我正在尝试从列表中提取部分信息，其中信息以特定格式提供（此列表不会出现在电子表格中）：

A BUYS: PRODUCT @ 85 / B SELLS
B BUYS: PRODUCT @ 500 / C SELLS
B BUYS: PRODUCT @ 200 / A SELLS

如果我将整个列表粘贴到文本框中，是否可以从文本框中仅提取部分数据？

对于列表的第一行＆＃34; A BUYS：PRODUCT @ 85 / B SELLS＆＃34;，我想分开：＆＃34; A＆＃34; ; ＆＃34;产品＆＃34; ; ＆＃34; 85＆＃34; ; ＆＃34; B＆＃34;，并将它们放入同一行的不同单元格中。

任何帮助都会非常感激。或者你可能有一个更简单的方法来实现这个目标？

Answer 1

下面的东西？或者你可以尝试文本到列

{{1}}

Answer 2

如果您想遍历列表，可能会出现类似下面的内容吗？

Sub splitMyList()

    Dim iRow As Integer
    iRow = 1

    Do While Cells( iRow, 1) <> ""
        temp = Split( Cells( iRow, 1 ), " ")
        Cells( iRow, 2 ) = temp(0)
        Cells( iRow, 3 ) = temp(2)
        Cells( iRow, 4 ) = temp(4)
        Cells( iRow, 5 ) = temp(6)

        iRow = iRow + 1
    Loop

End Sub

这假设您从第1行开始将列表粘贴到A列中。只需更改数字（如果需要）。希望这有帮助

VBA从文本框中提取数据

2 个答案: