▼

헬블레이드2

허미미

엔비디아 실적 발표

32사단

강형욱

이더리움 ETF 승인

삼성전자 반도체 수장

윤민수

박철

문지인

로그인 회원가입|아이디

비번찾기

_문서/서식 입니다.

포럼지원센터

엑셀 VBA에서 11월이 "1월1월" 로 바뀜 문제 해결 좀 해주세용2

포켓슬리머
등록일 2016-12-05 17:26
조회수 1103

엑셀 A열에 각각 월이 숫자로 채워져 있는것을 월을 삽입해서 1 → 1월로 변경하고 싶습니다.

Sub 월삽입()
Columns("A:A").Select
Selection.Replace What:="1", Replacement:="1월"
Selection.Replace What:="11", Replacement:="11월"
End Sub

아래와 같이 했더니

"1"은 → "1월" 정상

"10"은 →"1월0월"

"11"은 → "1월1월"

로 각각 변경이 됩니다.

그래서 끝자리라고 인식하게 하여고 아래와 "$"를 삽입했더니 이번에는 아예 변환이 안됩니다.

Sub 월삽입()
Columns("A:A").Select
Selection.Replace What:="1$", Replacement:="1월"
Selection.Replace What:="11$", Replacement:="11월"
End Sub

혹시 엑세 고수분 계시면 답좀 알려주시면 감사하겠습니다.

파워링크 등록안내



			-목록보기 -글쓰기

0 포켓슬리머

자문 자답하네요..아래와 같이 해결랬습니다.

ub 월삽입()
'
' 월삽입 매크로
'

'
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim s As Integer

k = Application.CountA(Range("M1:M500"))
j = 13
. M열이 13번이라서 고정했음

For i = 3 To k
s = Len(Cells(i, 13).Value)
Cells(1, j) = s
If s = 1 Then
Cells(i, j).Replace What:="1", Replacement:="1월"
Cells(i, j).Replace What:="2", Replacement:="2월"
Cells(i, j).Replace What:="3", Replacement:="3월"
Cells(i, j).Replace What:="4", Replacement:="4월"
Cells(i, j).Replace What:="5", Replacement:="5월"
Cells(i, j).Replace What:="6", Replacement:="6월"
Cells(i, j).Replace What:="7", Replacement:="7월"
Cells(i, j).Replace What:="8", Replacement:="8월"
Cells(i, j).Replace What:="9", Replacement:="9월"

ElseIf s = 2 Then
Cells(i, j).Replace What:="10", Replacement:="10월"
Cells(i, j).Replace What:="11", Replacement:="11월"
Cells(i, j).Replace What:="12", Replacement:="12월"
End If
Next i

End Sub

2016-12-06 점아이콘

댓글주소복사

0 공간을지배하는자

저 같은 vba 문외한은 그냥 열삽입하고 =A1&"월" 합니다.. 아니면 셀서식에서 "월"합니다..ㅋㅋ

2016-12-12 점아이콘

댓글주소복사

알림 욕설, 상처 줄 수 있는 악플은 삼가주세요.


짤방 닫기 사진


	△ 이전글▽ 다음글	-목록보기 -글쓰기