[已解决]求助:如何插入公式?

zhouxingyu · 发表于 2012-1-13 20:04

如何隔二行插入计算公式?
请哪位老师帮忙解决,多谢了!说明详见附件.

雄鹰 · 发表于 2012-1-13 20:19

本帖最后由雄鹰于 2012-1-13 20:34 编辑

Sub 插入公式()
For i = 1 To Range("iv1").End(xlToLeft).Column
  For j = 1 To Range("a65536").End(xlUp).Row + 1
If j Mod 3 = 0 Then
   Cells(j, i) = "=" & Chr(64 + i) & j - 2 & "*" & Chr(64 + i) & j - 1
End If
  Next
Next
End Sub

zhouxingyu · 发表于 2012-1-13 20:25

雄鹰发表于 2012-1-13 20:19
Sub 插入公式()
For i = 1 To Range("a1").End(xlUp).Column
For j = 1 To Range("a65536").End(xlUp). ...

不行啊,只插入了一个单元格,下面的行数也不对.

sunjing-zxl · 发表于 2012-1-13 20:31

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

本帖最后由 sunjing-zxl 于 2012-1-13 20:45 编辑

Sub 只要结果()
Dim arr
Dim i As Long
arr = Range("A1:F" & [A65536].End(xlUp).Row + 1)
For i = 1 To UBound(arr) Step 3
For j = 1 To 6
arr(i + 2, j) = arr(i, j) * arr(i + 1, j)
Next j
Next i
Range("A1").Resize(UBound(arr), 6) = arr
End Sub
Sub 保留公式()
Range("A1:F" & [A65536].End(xlUp).Row + 1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-2]C*R[-1]C"
End Sub

复制代码

雄鹰 · 发表于 2012-1-13 20:35

zhouxingyu 发表于 2012-1-13 20:25
不行啊,只插入了一个单元格,下面的行数也不对.

已经修正，请再检验。

雄鹰 · 发表于 2012-1-13 20:40

zhouxingyu · 发表于 2012-1-13 20:50

sunjing-zxl 发表于 2012-1-13 20:31

sunjing-zxl老师你好,很荣辛又能得到你的帮助,代码完全符合要求.非常感谢!
另外,还有一个遗留问题还需要麻烦你.
你上次帮我解决的有关判断分组的代码非常好.只是有一个小问题:提取数据完成后是覆盖输出,我希望能实现的是插入输出.能麻烦你作下改动吗?
万分的感谢. 原贴在 http://www.excelpx.com/thread-218304-1-1.html

zhouxingyu · 发表于 2012-1-13 20:57

雄鹰发表于 2012-1-13 20:40

多谢你了,朋友!!!

sunjing-zxl · 发表于 2012-1-13 21:22

zhouxingyu 发表于 2012-1-13 20:57
多谢你了,朋友!!!

试试看
http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=218304&pid=3023024

zhouxingyu · 发表于 2012-1-13 21:25

sunjing-zxl 发表于 2012-1-13 21:22
试试看
http://www.excelpx.com/forum.php?mod=redirect&goto=findpost&ptid=218304&pid=3023024

哈哈.....终于解决了.
你再一次帮我完美解决,真的太感谢你了.

		自动登录	找回密码
密码			注册