语法错误，最前面插入的一列不能加上

棋行天下黄

mycol = Range("iv1").End(xlToLeft).Column
    Cells(2, mycol).Select
    ActiveCell.Formula = "=SUM(RANGE(CELLS(2,8),CELLs(2,mycol))"
为何最后一句系统不识别，最后一列总是不能把新插入的一列加上，绝对定位也不行,求高手解决！

（本帖已解决，参考最佳答案，由于最佳答案是本人发，故手工标明）

我心飞翔410

range("a65536").end(xlup).row  '取最后一行
Cells(3, Columns.Count).End(xlToLeft).Column   '取第三行的最后一列的列号
Cells(Rows.Count, 7).End(xlUp).Row   '取第7列的最后一行的行数
你试试
还有看看 你那个代码是怎么样的

梅一枝

1、用"=SUM(CELLS(2,8),CELLs(2,mycol))"   应该就行了。
2、CELLs(2,mycol)与ActiveCell 是同一个地址，你确定要在同一个单元格里写公式吗？

zjdh

    mycol = Range("iv1").End(xlToLeft).Column
    Cells(2, mycol + 1).Select
    ActiveCell.Formula = "=SUM(R2C8:R2C" & mycol & ")"

上清宫主

mycol = Range("iv1").End(xlToLeft).Column
Cells(2, mycol + 1) = "=SUM(" & Cells(2, 8).Address & "," & Cells(2, mycol).Address & ")"
意图不明确，看公式吧，位置不对改红色的+1，范围不对改红色的,

棋行天下黄

    最佳答案
Sub 销售竞赛日统计表()
Dim ran As Range, mycol As Long

mycol = Range("iv1").End(xlToLeft).Column
    Cells(2, mycol).Select
    ActiveCell.Formula = "=SUM(RC8:RC[-1])"
  Set ran = Range(Cells(2, mycol), Cells(45, mycol))
  Selection.AutoFill Destination:=ran
Set ran = Nothing
End Sub

zjdh

没有附件只能猜，所以不一定是楼主的意思！