虚心请教

zuoxiaobin

请教老师：
我想自己输入任意行、列数后，再在第一列最后一个单元格内输入求和公式并自动复制公式到其他列尾。
譬如：输入8，8，在【A1:H8】范围内输入随机数据后，在A10输入求和公式，在A10:H10单元格自动复制A10单元格求和公式。

请帮忙调试一下公式（主要是变动的单元格不知道咋写代码）。
谢谢！

iwangyi

  Sub CC()
  CL = [IV1].End(1).Column
  RL = [A65536].End(3).Row
  For I = 1 To CL
  Cells(RL + 2, I) = Application.Sum(Cells(1, I), Cells(RL, I))
  Next
  End Sub

iwangyi

附件请参考

zuoxiaobin

iwangyi 发表于 2018-8-15 19:53
附件请参考

  经过我上网查找资料最终修改编写成功的代码如下，请老师批改
  Sub 复制公式()    ActiveSheet.Cells.Clear
  Dim I
  Dim J
  I = InputBox("请输入一个整数【插入的行数】")
  J = InputBox("请输入一个整数【插入的列数】")
  Set Rng = ActiveSheet.Range("A1").Resize(I, J)
  Rng.Formula = "=Round(Rand()*100,0)"
  ActiveSheet.Range("A" & I + 3).FormulaR1C1 = "=Sum(R1C:R[-3]C) "
  Range("A" & I + 3).AutoFill Destination:=Range("A" & I + 3).Resize(1, J)
  ActiveSheet.Cells(1, J + 3).FormulaR1C1 = "=Sum(RC1:RC[-3]) "
  Cells(1, J + 3).AutoFill Destination:=Cells(1, J + 3).Resize(I, 1)
  End Sub

iwangyi

象录制宏的代码

zuoxiaobin

iwangyi 发表于 2018-8-16 14:33
象录制宏的代码

不是，我自学编写的代码。不知道可不可以再优化？

iwangyi

那楼主可历害了，RC1:RC[-3]) 单元格的这种表示法是微软未出名前的单元格表示法。

iwangyi

楼主，代码以完成任务为优先，能运行完成任务就不必改了。