用于下一个循环
我正在努力建立下一个循环，一旦我得到这个，我认为其余的都会到位。从第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。
希望我的解释正确。 尝试：
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 谢谢你，我用了R1C1公式
objXL.Cells(RowNum, 18).FormulaR1C1 = "=IF(ISBLANK(RC[-14]),"" "",IF(ISBLANK(RC[-10]),RC[-14],CONCATENATE(RC[-14],"" "",RC[-13],"" "",RC[-12])))"
页:
[1]