[已解决]请老师帮忙解决Excel问题，非常感谢！

lsyylw

2021-11-1.zip (2.73 KB, 下载次数: 2)

2021-11-1 09:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-1 10:51

E11 公式: =IF(C11,TEXT(LOOKUP(4^8,E$10:E10+0),IF(C11=1,"!0;-0","0;!0"))+2*-1^(C11=1),NA())

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

cutecpu

E11 公式: =IF(C11,TEXT(LOOKUP(4^8,E$10:E10+0),IF(C11=1,"!0;-0","0;!0"))+2*-1^(C11=1),NA())

祝順心，南無阿彌陀佛！

lsyylw

cutecpu 发表于 2021-11-1 10:51
E11 公式: =IF(C11,TEXT(LOOKUP(4^8,E$10:E10+0),IF(C11=1,"!0;-0","0;!0"))+2*-1^(C11=1),NA())

祝順心 ...

非常感谢老师，公式非常好用。

心正意诚身修

1. Sub 结果()
   
2. Dim ARR, BRR(), I As Integer, K As Integer, T As Byte, S As Long
   
3. I = Range("C11").End(xlDown).Row
   
4. ARR = Range("C11:C" & I)
   
5. ReDim BRR(1 To I - 10, 1 To 1)
   
6. For K = 1 To I - 10
   
7.     If ARR(K, 1) > 1 Then
   
8.         T = T + 1
   
9.         BRR(K, 1) = 2 * T
   
10.         S = 0
    
11.     ElseIf ARR(K, 1) = 1 Then
    
12.         S = S - 1
    
13.         BRR(K, 1) = 2 * S
    
14.         T = 0
    
15.     ElseIf ARR(K, 1) = 0 Then
    
16.         BRR(K, 1) = "#N/A"
    
17.     End If
    
18. Next
    
19.     Range("E11").Resize(K - 1, 1) = BRR
    
20.     End Sub
    

复制代码

lsyylw

心正意诚身修 发表于 2021-11-2 11:38

非常感谢老师！

心正意诚身修

lsyylw 发表于 2021-11-2 18:59
非常感谢老师！

客气了。你已经得到答案了。我就是练习 着玩的。