NumberFormatLocal = "$#,##0.0;[红色]$#,##0.0"

ning84

自己出题自己做

1. Sub ll()
   
2.     Dim Rng As Range, R As Range
   
3.         Set Rng = Selection
   
4.         For Each R In Rng
   
5.             If IsNumeric(R) Then
   
6.                  
   
7.                  Debug.Print Left(R, 1), Mid(R, 2, 10), "$" & Mid(R, 2, 10)
   
8.                  R.Offset(, 9) = Mid(R, 2, 10) '"$" & Format(Mid(R, 2, 10), "0,0")
   
9.                  R.Offset(, 9).NumberFormatLocal = "$#,##0.0;[红色]$#,##0.0"
   
10.                  'R = Mid(R, 2, 10)
    
11.                  R.NumberFormatLocal = "$#,##0.0;[红色]$#,##0.0"
    
12.             End If
    
13.         Next R
    
14. End Sub

复制代码

ykcbf1100

你挺特别啊