[已解决]请教：单元数值大于某值后相加的宏

海水鱼lw

请教：单元数值大于某值后相加的宏

最佳答案

月排行榜 / 总排行榜

哥儿-

2023-11-7 17:23

1. Sub test()
   
2.     Dim i%, j%, temp%, arr
   
3.     arr = Sheet1.Range("B5").CurrentRegion
   
4.     temp = [l1]
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             If arr(i, j) > temp Then arr(i, j) = Left(arr(i, j), 1) * 1 + Right(arr(i, j), 1)
   
8.         Next j
   
9.     Next i
   
10.     With Sheet1.Range("N5").CurrentRegion
    
11.         .ClearContents
    
12.         .Value = arr
    
13.     End With
    
14.    
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

哥儿-

1. Sub test()
   
2.     Dim i%, j%, temp%, arr
   
3.     arr = Sheet1.Range("B5").CurrentRegion
   
4.     temp = [l1]
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(arr, 2)
   
7.             If arr(i, j) > temp Then arr(i, j) = Left(arr(i, j), 1) * 1 + Right(arr(i, j), 1)
   
8.         Next j
   
9.     Next i
   
10.     With Sheet1.Range("N5").CurrentRegion
    
11.         .ClearContents
    
12.         .Value = arr
    
13.     End With
    
14.    
    
15. End Sub
    

复制代码