Vba分解单元格内的文本？文本到列不起作用

Question

如何使用 vba 拆分单元格内的文本？我使用 vba 将电子邮件导出到 excel 文件，其中一个单元格中导出的信息的格式如下所示：

Name * xxxxxx
Country of residence * xxxxxx Email * xxxxx@gmail.com mailto:xxxxxxx@gmail.com
Mobile phone number * 0xxxxxx
Do you want to become a member of Assoc? Yes Check all that apply *

Members
Education
Ethical Conduct
Events
Regulation

我尝试了以下解决方案，但它不起作用。 来自文章：如果您需要构建一个公式来删除这些换行符，您只需要知道这个“字符”是 Excel 中的字符 10。您可以使用公式 =CHAR(10) 在 Excel 单元格中创建此字符。

所以要删除它，我们可以使用 SUBSTITUTE 公式并将 CHAR(10) 替换为空（显示为“”）。

https://www.auditexcel.co.za/blog/removing-line-breaks-from-cells-the-alt-enters/#:~:text=Building%20a%20formula%20to%20remove%20the%20ALT%20ENTER%20line%20breaks,-If%20you%20need&text=You%20can%20create%20this%20character,cell%20with%20no%20line%20breaks.

Answer 1

我的理解是，您将一封电子邮件转储到 1 个 excel 单元格中，并希望将一系列字符串 [Country, Email, Etc.] 以换行符分隔？

我建议使用 split 函数将字符串分隔成一个数组，然后遍历该数组以将信息放入所需的单元格中。请注意，这仅在项目每次都处于相同顺序时才有效，如果顺序可以更改，那么您将需要添加数据验证步骤。即如果 inStr("@",[Range]) 那么它是一封电子邮件......

Split([要拆分的字符串], [分隔符]) https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function

Dim strEmail as String 'Email dump
Dim arrEmail() as String 'Array for looping
Dim ItemsInArray as Integer 'Used to hold array count
Dim i as Integer 'Counter

strEmail = ActiveSheet.Cells("[Column,Row]") 'Cell your email dumps to
arrEmail = Split(strEmail, char(10)) 'Populate array
ItemsInArray = UBound(arrEmail) 'Get upper bound of array (total item count)

For i = 0 to ItemsInArray
    ActiveSheet.Cells("[Column,Row]") = arrEmail(i)
    Column + 1
Next i

当 i = 0 时，它是国家代码
当 i = 1 时，它是一封电子邮件
当 i = 2 时，它是电话 #
等等……