阶梯数据

QSCZSE

谢谢各位老师。

deadzlq

PQ参考解法

QSCZSE

如果阶梯改变数值程序如何更改

QSCZSE

烦请各位老师帮助。

ykcbf1100

QSCZSE 发表于 2025-1-10 14:17
如果阶梯改变数值程序如何更改

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2025.1.15
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 2).End(xlUp).Row
   
4.         .[c3:g9] = ""
   
5.         For i = 3 To r
   
6.             s = .Cells(i, 2).Value
   
7.             Select Case s
   
8.                 Case Is < 150
   
9.                     .Cells(i, 3).Value = s
   
10.                 Case Is < 400
    
11.                     .Cells(i, 3).Value = 150
    
12.                     .Cells(i, 4).Value = s - 150
    
13.                 Case Is < 700
    
14.                     .Cells(i, 3).Value = 150
    
15.                     .Cells(i, 4).Value = 250
    
16.                     .Cells(i, 5).Value = s - 400
    
17.                 Case Is < 1000
    
18.                     .Cells(i, 3).Value = 150
    
19.                     .Cells(i, 4).Value = 250
    
20.                     .Cells(i, 5).Value = 300
    
21.                     .Cells(i, 6).Value = s - 700
    
22.                 Case Else
    
23.                     .Cells(i, 3).Value = 150
    
24.                     .Cells(i, 4).Value = 250
    
25.                     .Cells(i, 5).Value = 300
    
26.                     .Cells(i, 6).Value = 300
    
27.                     .Cells(i, 7).Value = s - 1000
    
28.             End Select
    
29.         Next
    
30.     End With
    
31. End Sub
    

复制代码

QSCZSE

ykcbf1100 发表于 2025-1-15 12:14
附件供参考。。。

多谢老师。