Sub FixTrailingNumbers()
'UpdatebyKutoolsforExcel20160409
Dim xRg As Range
Dim xCol As Range
Dim xTxt As String
On Error Resume Next
Set xRg = Selection
If xRg Is Nothing Then Exit Sub
For Each xCol In xRg.Columns
xCol.TextToColumns Destination:=xCol, TrailingMinusNumbers:=True
Next
End Sub
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
7 | ALV에서 FILTER가 되지 않을 때 | mozz | 2021.06.16 | 1341 |
6 | Change Request import 하기 | sapjoy | 2021.08.21 | 729 |
5 | 대용량 DATA 병렬 처리 샘플 프로그램 - Parallel Process [2] | moonical | 2021.09.09 | 3753 |
4 | DB Connection 연결 확인 [1] | sapjoy | 2021.10.13 | 2375 |
3 | ABAP LAYOUT EDITOR 에러 SAPSLTESP00_0-70001053.EXE | sapjoy | 2021.12.24 | 1009 |
» | 엑셀 마이너스 기호을 앞으로 옮기는 매크로 | 후짱 | 2022.12.28 | 1220 |
1 | BW4HANA Variable EXIT | clown333 | 2024.03.07 | 291 |