无意翩阅一精彩贴子看到这样题目这VBA代码怎么写呢？

Kaohsing

来个js的
   Sub kao()
   
    Dim js As Object, r%
    Set js = CreateObject("ScriptControl"):    js.Language = "JScript"
    r = [a1].End(4).Row
    a = Range("A1:A" & r)
    js.addcode "function aa(a){return new VBArray(a).toArray();}"
    js.addObject "ar", js.codeobject.aa(a)
    js.addObject "rg", [B1]
    js.eval "f=Math.ceil(ar.length/5);"
    js.eval "var s=0;l=ar.length;var k=1;for(i=0;i<l;i=i+5){var g=Math.max.apply(null,(ar.slice(i,5+i)));rg(k,2)=g;if(k<f){rg(i+5,1)=g;}else{rg(l,1)=g;}k++;s= s+g}rg(1,3)=s;"
   
End Sub

niko88819

Kaohsing 发表于 2018-7-2 17:28
来个js的
   Sub kao()
   

大精彩了，老师您的JS 很深奥不容易懂耶，先收藏好好研究一下

这么多老师写出这么多精彩代码给幼儿园程度小师妹来说，明白一件事情也领悟到自已方向定位问题，整体都附合结果，写出不同代码，速度会很大的影响.

WYS67

非常感谢老师的不弃后进，热心帮忙！