用于下一个循环

streng · 发表于 2022-7-6 14:37:16

我正在努力建立下一个循环，一旦我得到这个，我认为其余的都会到位。

从第1行到第1行的重复代码如下


Row1 = 2
End1 = DrgNo + 2
objXL.Range("R" & Row1).Formula = "=IF(ISBLANK(D & Row1),D & Row1,CONCATENATE(D & Row 1,"" "",E & Row1,"" "",F & Row1)))"

此插入代码是一个excel电子表格，从单元格R2开始，结束于End1。

希望我的解释正确。

SEANT · 发表于 2022-7-6 15:13:10

尝试：

copy


End1 = DrgNo + 2
For Row1 = 2 to End1
   objXL.Range("R" & Row1).Formula = "=IF(ISBLANK(D & Row1),D & Row1,CONCATENATE(D & Row 1,"" "",E & Row1,"" "",F & Row1)))"
Next

streng · 发表于 2022-7-6 15:57:28

谢谢你，我用了R1C1公式

copy

objXL.Cells(RowNum, 18).FormulaR1C1 = "=IF(ISBLANK(RC[-14]),"" "",IF(ISBLANK(RC[-10]),RC[-14],CONCATENATE(RC[-14],"" "",RC[-13],"" "",RC[-12])))"

[编程交流] 用于下一个循环

发表回复

精选推荐