|
发表于 2023-11-7 17:23
|
显示全部楼层
本楼为最佳答案
- Sub test()
- Dim i%, j%, temp%, arr
- arr = Sheet1.Range("B5").CurrentRegion
- temp = [l1]
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If arr(i, j) > temp Then arr(i, j) = Left(arr(i, j), 1) * 1 + Right(arr(i, j), 1)
- Next j
- Next i
- With Sheet1.Range("N5").CurrentRegion
- .ClearContents
- .Value = arr
- End With
-
- End Sub
复制代码 |
|