Excel VBA宏中的应用程序定义或对象定义的错误

时间:2017-11-21 17:24:00

标签: excel vba excel-vba

我正在尝试制作一个宏来自动将Excel电子表格转换为包含一些计算字段的略有不同的电子表格,我想我已经想出了如何做但我不断收到错误信息

  

应用程序定义或对象定义的错误

有谁知道我做错了什么?这是我的参考代码:

Sub createreport()
Columns("C:F").Delete
Columns("D:E").Delete
Columns("E:F").Delete
Columns("H:O").Delete
Columns("Q:Q").Delete
Columns("N:N").Delete
Columns("J:J").Insert
Columns("L:L").Insert
Columns("N:N").Insert
Columns("P:P").Insert
Columns("R:R").Insert
Columns("T:T").Insert
Columns("U:U").Insert
Range("J2").Formula = "=If((K2-I2)<0,=I2-K2,=K2-I2)"
Range("J2", "J" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("L2").Formula = "=If((M2-K2)<0,=K2-M2,=M2-K2)"
Range("L2", "L" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("N2").Formula = "=If((O2-M2)<0,=M2-O2,=O2-M2)"
Range("N2", "N" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("P2").Formula = "=If((Q2-O2)<0,=O2-Q2,=Q2-O2)"
Range("P2", "P" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("R2").Formula = "=If((S2-Q2)<0,=Q2-S2,=S2-Q2)"
Range("R2", "R" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("T2").Formula = "=If((Q2-H2)<0,=H2-Q2,=Q2-H2)"
Range("T2", "T" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
Range("U2").Formula = "=If((S2-H2)<0,=H2-S2,=S2-H2)"
Range("U2", "U" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub

0 个答案:

没有答案