Hocam merhaba;
Şu şekilde bir macro çalıştırdım umarım sizde de çalışır.
Mantığım sütundaki gün - saat - dakika ifadelerinin başına ve sonuna (,) işareti koydurup onları sütunlara bölmek şeklinde. A sütununa elinizdeki ham datayı koyup macroyu çalıştırabilirsiniz.
Sub Macro5()
'
' Macro5 Macro
'
'
Columns("A:A").Select
Selection.Replace What:="sn", Replacement:=",sn", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="gün", Replacement:=",gün,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="saat", Replacement:=",saat,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="dk", Replacement:=",dk,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Range("I13").Select
End Sub