R语言for循环中break失效引发单元格合并报错问题求助

我编写了如下代码：

nc=10
for(n in 1:n){
  mergeCells(wb, 1, cols = (4*n):(4*n+3), rows = 1:1)
  if ((4*n)>nc) {break
  }
}

运行后出现错误：

Merge intersects with existing merged cells: 
        L1:Q1.
Remove existing merge first.

已知L1:Q1区域存在合并单元格，按逻辑当4*n > nc（nc=10）时循环应终止。n=3时4*n>10，循环该触发break，操作范围不会涉及L1，为何仍报错？

问题根源 #

• 循环迭代范围存在歧义：代码中for(n in 1:n)的第二个n在循环初始化时取的是nc=10的值，所以循环的迭代序列是1:10，意味着n会依次取1到10的数值，而非只运行到n=3就停止迭代。
• 执行顺序逻辑错误：你的代码是先执行合并单元格操作，再判断是否触发break。当n=3时，会先执行mergeCells(wb, 1, cols = 12:15, rows = 1:1)，这个范围对应Excel的L1到O1，刚好和已存在的L1:Q1合并单元格区域重叠，因此直接触发报错，根本没机会执行后续的break判断。

修正代码 #

把判断条件移到合并操作之前，并且替换循环变量避免歧义：

nc=10
for(i in 1:nc){
  if ((4*i)>nc) {
    break
  }
  mergeCells(wb, 1, cols = (4*i):(4*i+3), rows = 1:1)
}

这里用i代替原代码中的n作为循环变量，避免和初始的nc=10混淆，同时先判断是否满足终止条件，再执行合并操作，就能确保不会操作到超过nc范围的单元格区域。

内容的提问来源于stack exchange，提问作者Loki123