Vba 连接备用列

我有10000行和无限列数据。两个参数位于相邻列中，并在13个不需要的列后重复

我想连接一行中由空格分隔的相邻列

例如：

连接（B2、C2、“、P2、Q2、”、AC、AD、“、……）

但我不知道数据显示在哪一列

您能给我推荐一个宏，它将数据连接到一行中的一个单元格中的空白列，并且在前10000行中继续相同的操作。

---

非常感谢你的帮助

首先，所有行是否在同一列终止？i、 e.是否每行都有列AD中的数据，但没有列AE中的数据

如果上面的答案是“是”，那么您可能想看看：

Range.End()

它的用法如下：

YourSheet.Range(YourRange).End(xlToRight).Column

（）

这将返回

• 包含数据的最后一列（当起始单元格包含数据时）

或

• 包含数据的第一列（当起始单元格为空时）。
  • 不是没有数据的最后一列

根据您在问题中的示例，您的范围可能从B、p、AC等列开始

如果上面的答案是“否”，那么您可以使用类似的功能，但您必须循环每一行…

这很容易（不是很容易），但同时也不难：）您能告诉我们您尝试了什么或根据您的“逻辑”解决了这类问题吗？只是想让您知道，我已经编写了代码，如果我看到您方面为解决此问题做出了一些努力，我将发布此代码：）