- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
回復 4# iceandy6150
Sub 轉換()
Dim Arr, i&, j%, T$
Arr = Range([C1], [A65536].End(xlUp))
For i = 2 To UBound(Arr)
For j = 1 To 3
T = Arr(i, j)
If Arr(1, j) = "年資" Then
T = Application.Text(Replace(Replace(Replace(T, "日", ""), "月", ":"), "年", ":"), "[hh]年mm月ss日")
ElseIf Arr(1, j) = "組別" And T Like "*[A-z]組*" Then
T = Left(T, Len(T) - 2)
End If
Arr(i, j) = T
Next j
Next i
[A:C].NumberFormatLocal = "@"
[A1:C1].Resize(UBound(Arr)) = Arr
End Sub
要你上傳檔案, 是讓想幫忙的人不用再多花時間去建立測試資料, 這是最基本的提問規則:
 X0002.rar (8.45 KB)
|
|
發表於 2018-12-28 11:07
| 
