合并单元格与下面的空白
我正在编写一个代码，用于自动读取来自已closures的工作簿的数据。
我在格式化方面遇到一些问题。 问题是当我正在阅读连续的一些文本（每个文本后跟六个空单元格），我试图合并下面的空白单元格。
For Row = 1 To NumRows For Column = 3 To LastColumn Range(Cells(Row, Column).Address, Cells(Row + 1, Column + 6).Address).Merge ... 这将一切合并成一个单元格。 如果我有10个单元格包含文本，我想十个合并的单元格。
有任何想法吗？
它会合并您的整个单元格，因为您将1分为1.也就是说，您的程序所做的是：
- parsing单元格
A1 - 与接下来的6个单元格合并 – >单元格
A1:A6合并 - parsing单元格
A2 - 但是…嘿，这将尝试将单元格
A2合并到A6！
你可以做什么：
- 使用for循环中的
step选项 – 请参阅此处了解更多信息 - 检查单元是否已经合并，当你parsing它。 如果是，则在for循环中使用
continue语句
问候，