- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-15
|
Sub TEST()
Dim Arr, R&, T$, C&, K%
With Range([D10], [O65536].End(3))
Arr = .Value
For C = 1 To .Columns.Count
For R = 1 To .Rows.Count
T = Arr(R, C)
If T Like "*.*.*" Then Arr(R, C) = Mid(T, IIf(Left(T, 1) = "-", 6, 5)): K = 1
Next R
Next C
If K = 1 Then .Value = Arr
End With
End Sub |
|