一年前的报告突然开始给出1004运行时错误

Question

我不是程序员，所以我无法弄清楚错误是什么。请帮忙！这是正在使用的代码：

'allcount = Application.WorksheetFunction.CountA(Sheets("All Billing").Range("A:A")) + 1
ac = AllBill.Cells(allcount - 1, 1)

For ar = 2 To SPA Step 1       
  'InvNum
  AllBill.Cells(allcount, 1) = ac + 1    '<-- error appears on this line

  'Date
  cp = Display.Cells(ar, 2)  
  AllBill.Cells(allcount, 2) = cp

  'InvMonth
  AllBill.Cells(allcount, 3) = YrMoDisplay(cp)

Answer 1

在第一行＆＃39; allcount＆＃39;之前删除撇号。这应该可以解决你的问题。