vba - 连接备用列

Question

我有 10,000 行和无限列数据。相邻列中的两个参数在 13 个不需要的列后重复。

我想连接一行中以空格分隔的这些相邻列

例如:

连接(B2,C2,"",P2,Q2,"",AC,AD,"",....)

但我不知道数据出现在哪一列。

您能否建议我使用一个宏，将数据连接到一行的一个单元格中的空白列，并在前 10,000 行中继续执行相同操作。 非常感谢您的帮助!

Answer 1

首先，所有行都终止于同一列吗？即每行是否在 AD 列中都有数据，但在 AE 列中没有数据？

如果上述答案是"is"，那么您可能需要查看:

Range.End()

其用法如下:

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

( see here for more info )

这将返回

• 包含数据的最后列(当起始单元格包含数据时)

或

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

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

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