- 帖子
- 2843
- 主題
- 10
- 精華
- 0
- 積分
- 2899
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-6-27
|
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 |
|
發表於 2020-10-27 17:20
| 