使用以下空白单元合并单元格

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

它会合并您的整个单元格，因为您逐个解析。 有意义的是，你的程序做的是：

• 解析单元格A1
• 与接下来的6个单元格合并 - ＆gt;单元格A1:A6已合并
• 解析单元格A2
• 但是......嘿，这会尝试将单元格A2合并到A6！

你能做什么：

1. 使用for循环上的step选项 - 有关详细信息，请参阅here
2. 解析时，检查单元格是否已合并。如果是，则使用for循环中的continue语句

此致