请教EXCEL 中用VBA输入递加公式的问题

请教EXCEL 中用VBA输入递加公式的问题

Worksheets("非常用件订货管理").Cells(5, 11) = "=IF(J5="""",IF(I5="""",0,$C$1-I5),J5-I5)"
Worksheets("非常用件订货管理").Cells(5, 11).Copy Range(Cells(6, 11), Cells(20, 11))
第一句代码，在J5单元格设置公式，
第二句代码，将J5复制到J5 -J20区域。相当于你双击一样，只是这里直接指定范围而已，你可以修改后面那个cells（20，11）指定你要输入该公式的区域即可、

DIM Y AS LONG
Y=2 TO 100
这里是你自己写的代码
NEXT
END SUD

应设置单元格格式，因为你要使用VBA，应该知道如何打开。
你要处理的表的代码，复制代码如下：
私人小组Worksheet_Change（BYVAL目标为范围）
如果Target.Column = 1'在这里是在A列，并如果B列中的数字为2，所以
如果len（TRIM（Target.Value））<10的长度判断
Application.EnableEvents = FALSE暂时不再触发Change事件/> Target.NumberFormatLocal =“@”'设置单元格为文本格式，或其他自动0
Target.Value =格式（修剪“（Target.Value）000000000的＃;)的格式
Application.EnableEvents =

结束如果结束如果
END SUB