Question

我需要Excel VBA的帮助。我有一种情况需要从String中拆分成几个数据。现在有特定的分隔符，条件只是一个关键字。

我得到的完整字符串数据的例子如下：

/*ORDER FORM*/
Name: Randy
Full Address: Unknown Street 123 ABC
Phone:0246854612
Order: 1x G Action Figure
1x Y Action Figure
2x Z Action Figure

/*Fill Bank and Amount of Transfer*/
Bank: ABC
Total: 2000

/*If you Reseller, Fill Data below*/
Sender:
SenderPhone:

/*Thank you for your Order*/

而且，从那个数据我需要将几个数据发送到几个单元格或变量。例如，如果我想得到这个：

var Name = "Randy"

var address = "Unknown Street 123 ABC"

var phone = "0246854612" {Text format}

var Bank = "ABC"

var amount = 2000

var item1 = "G Action Figure"

var qty1 = 1 {from 1x G Action Figure}

var item2 = "Y Action Figure"

var qty2 = 1

var item3 = "Z Action Figure"

var qty3 = 2

我怎样才能实现这一点。

非常感谢

Answer 1

数据是否始终以相同的顺序出现，并且总是有相同的行数？您可以使用回车分割整个字符串。

MySplit = Split(MyString,VbCrLf)

然后将数组的每个部分分配给变量。

Name = MySplit(0)
Address = MySplit(1)
Phone = MySplit(2)
'...etc...

如何在Excel VBA中解析完整字符串并拆分成多个字符串？

1 个答案: