需要帮助在第 550 个字符后使用 VBA 或公式在文本字符串中拆分或添加回车符 return

Question

几天来我一直在为这个问题苦苦挣扎，希望能在这里找到一些帮助。

我有一个文本文件，当我将其复制到 Excel 时，最终会将整个文本作为一个长字符串放入单元格 A1 中。这些文件可能有数千个字符长，但每条记录始终为 550 个字符。我需要将此文本分成 550 个字符长的部分，以便前 550 个字符进入单元格 A1，第二个 550 个字符进入 A2 等等，直到文本字符串完成。

我完全不知所措。我在这里尝试过的一切都不适合我。但我认为自己是这方面的新手。

我可以使用这些公式获取前 550 个：

=LEFT(Sheet1!A1,550) 和

=TRIM(LEFT(SUBSTITUTE(A1,"< /a >",REPT(" ",550),2),550))

如您所见，这只给出了前 550 个字符。

理想情况下，我希望这是最终结果：

A1 前 550 个字符

A2第二个550个字符

A3第三个550个字符

A4 4 550 个字符

A5 ECT 直到整个字符串被分解。

如有任何帮助，我们将不胜感激！

Answer 1

每第 550 个字符拆分，A1 中的原始数据：

=MID(Sheet1!$A,(ROW(1:1)-1)*550+1,550)

将其放在第一个单元格中并向下复制

需要帮助在第 550 个字符后使用 VBA 或公式在文本字符串中拆分或添加回车符 return

Need help splitting or adding carrage return in text string after 550th character uisng VBA or Formula

vba

text

formula

carriage-return