怎样限定代码只能在指定的区域内计算和显示结果？

13782671637

万能的高手大神们：附件 限定代码的计算和显示区域.zip (315.63 KB, 下载次数: 8)

2018-6-18 07:41 上传

点击文件名下载附件

里的代码计算结果正确，运行速度飞快！由于实际工作表的C2限定了A列数据源的区域范围【因为C2指定的行号下方，需要进行各列的统计计算】，如附件所示：当C2=46984时，代表只能计算A5:A46984范围内的数据，B列计算结果也只能显示到B5:B46984行为止，而不能影响A46985:B46985及下方区域的其它统计计算结果。所以，还得麻烦老师们对E5:E39的代码加以修改和完善，增加以C2指定的行号为代码计算的下止点。

蓝桥玄霜

1. Sub 冷码()
   
2.     Dim brr(), sr()
   
3.     tms = Timer
   
4.     m = [c2].Value - 4
   
5.     ar = [a5].Resize(m)
   
6.     ReDim sr(1 To m, 1 To 1)
   
7.      
   
8.     ReDim brr(0 To 2)
   
9.     For i = 1 To m
   
10.         t = ar(i, 1): t1 = Left(t, 1)
    
11.         brr(t1) = brr(t1) + 1: If brr(t1) = 1 Then k1 = k1 + 1
    
12.         If k1 = 2 Then k1 = i: Exit For
    
13.     Next
    
14.     s1 = 3 - Left(ar(1, 1), 1) - Left(ar(k1, 1), 1)
    
15.     ReDim brr(0 To 2)
    
16.     For i = 1 To m
    
17.         t = ar(i, 1):  t2 = Right(t, 1)
    
18.         brr(t2) = brr(t2) + 1: If brr(t2) = 1 Then k2 = k2 + 1
    
19.         If k2 = 2 Then k2 = i: Exit For
    
20.     Next
    
21.     s2 = 3 - Right(ar(1, 1), 1) - Right(ar(k2, 1), 1)
    
22.     s = s1 & s2
    
23.    
    
24.     If k1 > k2 Then k0 = k1 Else k0 = k2
    
25.     For i = k0 To m
    
26.         If ar(i - 1, 1) <> "" Then t = ar(i - 1, 1): t11 = Left(t, 1): t12 = Right(t, 1)
    
27.         If ar(i, 1) <> "" Then
    
28.         t = ar(i, 1): t21 = Left(t, 1): t22 = Right(t, 1)
    
29.         If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - Val(t11) - Val(t21)
    
30.         If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - Val(t12) - Val(t22)
    
31.         s = s1 & s2
    
32.         sr(i, 1) = s
    
33.         End If
    
34.     Next
    
35.     [b5].Resize(m) = sr
    
36.     MsgBox Format(Timer - tms, "0.000s")
    
37. End Sub
    

复制代码

13782671637

蓝桥玄霜 发表于 2018-6-18 08:02

尊敬的蓝桥玄霜版主：代码已测试，完全实现了我心中所想！如果我要改变数据源和结果显示列，以及指定截止行号的C2单元格，是不是只需要修改下面红色标注的3个地方就行了？Sub 冷码()
    Dim brr(), sr()
    tms = Timer
    m = [c2].Value - 4
    ar = [a5].Resize(m)
    ReDim sr(1 To m, 1 To 1)
     
    ReDim brr(0 To 2)
    For i = 1 To m
        t = ar(i, 1): t1 = Left(t, 1)
        brr(t1) = brr(t1) + 1: If brr(t1) = 1 Then k1 = k1 + 1
        If k1 = 2 Then k1 = i: Exit For
    Next
    s1 = 3 - Left(ar(1, 1), 1) - Left(ar(k1, 1), 1)
    ReDim brr(0 To 2)
    For i = 1 To m
        t = ar(i, 1):  t2 = Right(t, 1)
        brr(t2) = brr(t2) + 1: If brr(t2) = 1 Then k2 = k2 + 1
        If k2 = 2 Then k2 = i: Exit For
    Next
    s2 = 3 - Right(ar(1, 1), 1) - Right(ar(k2, 1), 1)
    s = s1 & s2
   
    If k1 > k2 Then k0 = k1 Else k0 = k2
    For i = k0 To m
        If ar(i - 1, 1) <> "" Then t = ar(i - 1, 1): t11 = Left(t, 1): t12 = Right(t, 1)
        If ar(i, 1) <> "" Then
        t = ar(i, 1): t21 = Left(t, 1): t22 = Right(t, 1)
        If t11 = t21 Then s1 = Left(s, 1) Else s1 = 3 - Val(t11) - Val(t21)
        If t12 = t22 Then s2 = Right(s, 1) Else s2 = 3 - Val(t12) - Val(t22)
        s = s1 & s2
        sr(i, 1) = s
        End If
    Next
    [b5].Resize(m) = sr
    MsgBox Format(Timer - tms, "0.000s")
End Sub

13782671637

蓝桥玄霜 发表于 2018-6-18 08:02

  蓝版主：  m = [a1] - 4 'Cells(Rows.Count, 1).End(3).Row - 4 是指C2单元格吗？麻烦您解释一下好吗？

蓝桥玄霜

m是你数据的实际行数，数据是从第5行开始的，所以要-4
不是[a1]-4,而是[c2]-4

13782671637

蓝桥玄霜 发表于 2018-6-19 17:04
m是你数据的实际行数，数据是从第5行开始的，所以要-4
不是[a1]-4,而是[c2]-4

蓝版主：是什么原因，大白天的，我的《给“倒排不重复数据”代码增加按条件选择的功能》求助帖，总是正在审核中？