[已解决]优化代码

hezhiyee

    Range("B22").Select
    ActiveCell.Formula = "=SUM(B6:B20)"
    Selection.AutoFill Destination:=Range("B22:T22"), Type:=xlFillDefault

最佳答案

月排行榜 / 总排行榜

qh8600

2014-6-4 20:04

Range("B22:T22").Formula = "=SUM(R[-20]C:R[-2]C)"

跳转到最佳答案楼层

qh8600

Range("B22:T22").Formula = "=SUM(R[-20]C:R[-2]C)"

hezhiyee

qh8600 发表于 2014-6-4 20:04
Range("B22:T22").Formula = "=SUM(R[-20]C:R[-2]C)"

老师能把函数公式去掉吗？

qh8600

hezhiyee 发表于 2014-6-4 20:11
老师能把函数公式去掉吗？

可以啊，不过要写循环

xdragon

1. Sub t()
   
2.    Dim arr, re(), i%, j%
   
3.    arr = Range("B6:T21")
   
4.    ReDim re(1 To UBound(arr, 2))
   
5.    For j = 1 To UBound(arr, 2)
   
6.       For i = 1 To UBound(arr)
   
7.          re(j) = re(j) + Val(arr(i, j))
   
8.       Next
   
9.    Next
   
10.     Range("B22:T22") = re
    
11. End Sub

复制代码

hezhiyee

xdragon 发表于 2014-6-4 20:16

太复杂了

hezhiyee

hezhiyee 发表于 2014-6-4 20:20
太复杂了

谢谢！

xdragon

Range("B22:T22").Formula = "=SUM(B6:B21)"
range("B22:T22")=range("B22:T22").value

这样算简单了吗。。。。

ghostjiao

xdragon 发表于 2014-6-4 20:25
Range("B22:T22").Formula = "=SUM(B6:B21)"
range("B22:T22")=range("B22:T22").value

{:101:}简单了，龙哥

hezhiyee

xdragon 发表于 2014-6-4 20:25
Range("B22:T22").Formula = "=SUM(B6:B21)"
range("B22:T22")=range("B22:T22").value

为何没有运行呀？