Excel单元格大小限制导致宏失败

Question

我正在开发宏，其中我期待字符串如（存在于文本文件中）：

QUALAPP@QUALAPPC@GENRESOUS@NOMAPP@NOMAGENCE@PRENOMAPP@ADR1APP@ADR2APP~
ADR3APP@ADR4APP@VILLEAPP@CPAPP@PAYSAPP@TELAPP@NUMCONTRAT@DATEEFFCTR~

其中每个字段由@分隔，每个记录由~分隔为表格格式。

例如每个字段将在连续的单元格中，新记录将在新行中开始。 我有宏，目前需要在一个单元格中复制数据。但随着字符串大小超出某个限制，我无法粘贴它。所以，请提供其他简单的选择。

Answer 1

如果字符串的大小超过单个单元格的容量，则一次读取一个字符中的数据，然后将数据解析为字段。

Answer 2

将字符串分配给变量（让我们称之为“my_var”）然后

arr_1 = Split(my_var, "~", -1, vbTextCompare)

For x = LBound(arr_1,1) to UBound(arr_1,1)
  activecell = arr_1(x)
  activecell.offset(1,0).select
Next

这会创建一个数组，每个元素都是您的记录之一;然后将每条记录放在一个新行中。然后，您可以根据“@”返回并拆分每一行，并将拆分数据放在相邻的列中。