使用宏在Excel中将新行替换为计数器

请求某人提供有关vba/宏代码的帮助。我想为每个单元格在每个句子中设置数字。附上详细的屏幕截图

以下是输入和预期输出。我是新来的宏，所以请帮助一些人

---

如果愿意，您也可以使用公式并避免VBA：

B1

中的公式：

=TEXTJOIN(CHAR(10)&CHAR(10),1,IFERROR(ROW(A$1:INDEX(A:A,LEN(A1)))&"."&FILTERXML("<t><s>"&SUBSTITUTE(A1,CHAR(10),"</s><s>")&"</s></t>","//s[node()]"),""))

=TEXTJOIN（CHAR（10）&CHAR（10），1，IFERROR（ROW（A$1:INDEX（A:A，LEN（A1））&“&FILTERXML（“&SUBSTITUTE（A1，CHAR（10）”）&“//s[node（）]”）

通过CtrlShift输入确认

使用

XPATH

返回所有具有参考底图值的节点。如果您想更多地了解如何使用

FILTERXML

来更改子字符串，您可能会发现一篇有趣的文章

---

---

注意：对于显示的结果，您需要在B列上启用文本换行。在

对齐下的
开始
选项卡上单击
文本换行
您可能会从阅读中受益•注意，这不是免费的代码编写服务。所以你应该先做一些研究，自己尝试一些东西，然后再尝试（以及你已经研究过的）提出一个好问题（请参阅）。我知道这不是免费的代码编写服务。我试图达到预期的产出，但没有成功。这是我们相互联系和帮助的平台。我不是在问完整的代码，而是我想要的逻辑。顺便说一句，感谢您阅读我的问题。感谢您为更好地理解Filterxml提供参考。我不知道为什么我在一行中得到这样的输出1.TestA 2.TestB 3。TestC。在您附加的屏幕截图输出是预期的。我正在做的是，我只是应用公式并按下ctlr+shift+Enter……我做错了什么吗？您只需要在列=）上启用文本换行即可@ImranAzam