EXCEL技巧专辑..（欢迎参与，共同学习）

随风

用宏解决，测试可行

呵呵，能力有限，代码冗长

Sub Macro1()
'
' Macro1 Macro
'

'
Dim a
Dim b
Dim n
Dim x
Dim y
Dim i
Dim No
Dim z




x = 5
y = 16
z = 0

For n = 5 To 10000
    If Cells(n, 13) = Empty Then Exit For
    z = z + 1
Next n

No = z + 4

For i = 5 To No
    If x > No Then Exit For
    If y > No Then Exit For
       Cells(i, 14).Select
       a = Application.Sum(Range(Cells(x, 13), Cells(y, 13)))
       b = Application.Sum(Range(Cells(x, 6), Cells(y, 6)))
       ActiveCell = a / b
       x = x + 12
       y = y + 12
      
Next i

End Sub

excel

看见宏我就晕。嘿嘿。。。

随风

呵呵，俺在学习中，虽然代码不够精简，但用于解决工作中的一些问题，还是很方便

妮可宝贝

原帖由 guodl 于 2008-6-24 00:18 发表


马虎了马虎了。;15 ;18

@:onioncn_12)  我指出了错误,就应该把分给我呵..

妮可宝贝

原帖由 随风 于 2008-6-24 08:17 发表
呵呵，俺在学习中，虽然代码不够精简，但用于解决工作中的一些问题，还是很方便

@:onioncn_16)

那么你要是看了我的代码,就应该拿出小本,认真的记下来,并仔细品味呵..
因为在百度上,我的学生可是一堆堆的,还要排队呵.

1. 先在表中,选中你需要填充公式的区域,比如A1:A30,然后运行下面的宏..
   
2. 
   
3. Sub Macro1()
   
4.     Dim rg As Range, j As Long
   
5.     For Each rg In ActiveWindow.RangeSelection.Cells
   
6.          rg.Formula = "=SUM(M" & j + 5 & ":M" & j + 16 & ")/SUM(F" & j + 5 & ":F" & j + 16 & ")"
   
7.          j = j + 12
   
8.     Next
   
9. End Sub

复制代码

妮可宝贝

原帖由 excel 于 2008-6-23 22:00 发表
Excel中想简单实现此功能倒还真不知道应该如何一步实现。
通过其他办法试解决一下，楼主看看是否可用。
如表格中O列到AB列的数据是用拖拉方式得到的，然后用连字符得到AC列的公式，复制此列公式到文本文件中，再复 ...

@:onioncn_16)  其实用纯公式,也能完成公式的序列填充,只是在思路上E的更直观一些..  呵呵,我怕我的公式写出来,很多人看的头大..

随风

原帖由 妮可宝贝 于 2008-6-24 09:07 发表



@:onioncn_12)  我指出了错误,就应该把分给我呵..

:P

不同意，

分、分、分，学生的命根，

打死也不能吐出来

原帖由 妮可宝贝 于 2008-6-24 09:10 发表



@:onioncn_16)

那么你要是看了我的代码,就应该拿出小本,认真的记下来,并仔细品味呵..
因为在百度上,我的学生可是一堆堆的,还要排队呵.先在表中,选中你需要填充公式的区域,比如A1:A30,然后运行下面的宏..
...

谢谢，记下了，学习中:)

kittycat

谢了，回去后试试看

coolhi

绝对的好文章，在海浩真是有的玩、有的学。天天在海浩，天天都幸福。
会不会酸了些！@

excel

原帖由 妮可宝贝 于 2008-6-24 09:13 发表


@:onioncn_16)  其实用纯公式,也能完成公式的序列填充,只是在思路上E的更直观一些..  呵呵,我怕我的公式写出来,很多人看的头大..

是啊。也想纯公式，可担心到最后人家看不懂，所以还是这样的，毕竟能让人看了一次，下次自己会用。宏什么的，虽然好，但也不是每个人看了后都能运用起来。
而且，我也懒得学宏。嘿嘿，真要应付不了了，单位还有程序员呢。