将单元格与以下空白单元格合并

Question

我正在编写一个代码，用于自动读取来自已关闭工作簿的数据。

我在格式化方面遇到了一些问题。问题是当我在连续阅读一些文本时（每个文本后跟六个空单元格），并且我试图合并下面的空白单元格。

For Row = 1 To NumRows 
    For Column = 3 To LastColumn 
     Range(Cells(Row, Column).Address, Cells(Row + 1, Column + 6).Address).Merge 
    ... 

这将所有东西合并成一个单元格。如果我有10个包含文本的单元格，我想要十个合并的单元格。

任何想法？

Answer 1

它确实是因为你以1 意味深长解析1，你的节目做的是合并你的整个细胞：

• 解析细胞A1
• 下一个6个格合并 - >细胞A1:A6是合并
• 解析单元A2
• 但是......嘿，这会尝试合并单元格A2到A6！

你可以做什么：

1. 使用你的for循环step选项 - 见here以获取更多信息
2. 检查，当你分析它的电池已经被合并。如果是，则使用continue声明在for循环

问候，