数字格式转换

sunche

老师们，早！附件中D3:H77的数字有正有负，能否将所有负数变为正数，原所有正数则不变？我采用加"-'或取绝对值abs()都没有成功！请老师们协助！谢谢！

hasyh2008

Abs函数

hasyh2008

Range("D3:H77").value=Vba.abs(Range("D3:H77").value),试试！

sunche

hasyh2008 发表于 2022-5-23 09:49
Abs函数

用过，不成功！谢谢关注！

sunche

hasyh2008 发表于 2022-5-23 09:50
Range("D3:H77").value=Vba.abs(Range("D3:H77").value),试试！

试了，也不成功！谢谢关注！

hasyh2008

sunche 发表于 2022-5-23 09:55
试了，也不成功！谢谢关注！

我电脑里可以！

sunche

hasyh2008 发表于 2022-5-23 10:10
我电脑里可以！

我使用的是2007版的，-，abs都不成功！录了个查询替代的宏才行！

心正意诚身修

sunche 发表于 2022-5-23 10:14
我使用的是2007版的，-，abs都不成功！录了个查询替代的宏才行！

1. Sub xx()
   
2.     Dim d As Object
   
3.     Dim ir, i, j, K, L
   
4.     Dim str
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Application.ScreenUpdating = False
   
7.     On Error Resume Next
   
8.     Sheets("sheet1").Select
   
9.     ir = Range("b65536").End(xlUp).Row
   
10.    
    
11.     For i = 2 To ir
    
12.         For j = 4 To 8
    
13.             str = str & "|" & Cells(i, j) - 15
    
14.         Next
    
15.         str = Mid(str, 2)
    
16.         d(Cells(i, 2).Value & "") = str
    
17.         str = ""
    
18.     Next
    
19.    
    
20.     Sheets("sheet2").Select
    
21.     ir = Range("b65536").End(xlUp).Row
    
22.     For i = 3 To ir
    
23.         Range(Cells(i, 4), Cells(i, 8)) = Split(d(Cells(i, 2).Value & ""), "|")
    
24.         
    
25.     Next
    
26.    
    
27.     Application.ScreenUpdating = True
    
28. 'Range("D3:H74").Value = Range("D3:H74").Value
    
29. For K = 3 To i
    
30.     For L = 4 To 8
    
31.         Cells(K, L) = VBA.Abs(Cells(K, L))
    
32.     Next
    
33. Next
    
34. End Sub

复制代码

心正意诚身修

又跑了一次循环可以去掉。

sunche

心正意诚身修 发表于 2022-5-23 12:04
又跑了一次循环可以去掉。

谢谢老师，辛苦了！