请帮我完成达到这个要求的代码

qish1888

要求:

当Cells(i, 56) = 2024082 , Cells(i, 57) = 2，条件成立，运行下面这段代码，运行结束后，返回继续for,

    '

当Cells(i, 56)= 2024082 , Cells(i, 57) = 32，条件成立，运行下面这段代码，运行结束后，现回到继续for,

Cells(i,56) = 2024082 , Cells(i, 57) = 62； Cells(i, 56) = 2024082 , Cells(i, 57) = 92 同样

由于自己水平所限，这个转换难以完成，请高手指点

　

未完成的代码在附件中

ykcbf1100

这样试一下。。。

ykcbf1100

没实测，仅对原代码改了一下。

1. Sub 复盘3()
   
2.     Dim a%, b%
   
3.     er = [a1048576].End(3).Row
   
4.     w = 2024082
   
5.     x = er - 62
   
6.     y = er - 34
   
7.     b = [{2,32,62,92}]
   
8.     ReDim br(1 To 4)
   
9.     For i = x To y
   
10.         For x = 1 To UBound(b)
    
11.             If Cells(i, 56) = w And Cells(i, 57) = b(x) Then
    
12.                 For j = 11 To 20
    
13.                     br(x) = br(x) + Cells(i, j)
    
14.                 Next
    
15.                 Range("U" & i) = br(x)
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     'Call AU列实出值
    
20. End Sub

复制代码

盼哥

看下是不是你想要的？

qish1888

谢谢老师，我正在学习.

yjh_27

参与一下

1. Sub 复盘3()
   
2. Dim a%, b%
   
3. er = [a1048576].End(3).Row
   
4. w = 2024082
   
5. x = er - 62
   
6. y = er - 34
   
7. For i = x To y
   
8.     If Cells(i, 56) = w Then
   
9.         Selectcase Cells(i, 57)
   
10.             Case 2
    
11.                 For j = 11 To 20
    
12.                     a = a + Cells(i, j) '重新计算Ｋ至Ｔ区域的和值
    
13.                 Next
    
14.                 Range("U" & i) = a
    
15.             Case 32
    
16.                 For j = 11 To 20
    
17.                     b = b + Cells(i, j)
    
18.                 Next
    
19.                 Range("U" & i) = b
    
20.              Case 62
    
21.                 For j = 11 To 20
    
22.                     c = c + Cells(i, j)
    
23.                 Next
    
24.                 Range("U" & i) = c
    
25.              Case 92
    
26.                 For j = 11 To 20
    
27.                     d = d + Cells(i, j)
    
28.                 Next
    
29.                 Range("U" & i) = d
    
30.          End Select
    
31.     End If
    
32. Next
    
33. 'Call AU列实出值
    
34. End Sub

复制代码

yjh_27

再试一下

1. Sub 复盘3()
   
2. Dim a%, b%
   
3. er = [a1048576].End(3).Row
   
4. w = 2024082
   
5. x = er - 62
   
6. y = er - 34
   
7. ReDim br(2 To 92)
   
8. For i = x To y
   
9.     If Cells(i, 56) = w Then
   
10.         If Cells(i, 57) Mod 30 = 2 Then
    
11.             For j = 11 To 20
    
12.                 br(Cells(i, 57)) = br(Cells(i, 57)) + Cells(i, j)  '重新计算Ｋ至Ｔ区域的和值
    
13.             Next
    
14.             Range("U" & i) = br(Cells(i, 57))
    
15.          End If
    
16.     End If
    
17. Next
    
18. 'Call AU列实出值
    
19. End Sub

复制代码

qish1888

谢谢yjh_27老师，你无私付出，帮我解决了一个困惑。从中学到很多。