|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
엑셀 파일 모든 시트의 F열에 있는 모든 문자 뒤에 @를 기입하고 싶습니다.
문자 형식은 "ㄱ.50-10"을 "ㄱ.50-10@"으로 바꾸고 싶습니다.
코딩을 배운적이 없어 네이버에 이것 저것 검색해서 만들어봤는데 F:F열 선택 이후에 아무것도 작동이 되지 않습니다.
고수님들 도와주세요.
Sub 찾기바꾸기()
'
' 찾기바꾸기 매크로
'
' 바로 가기 키: Ctrl+Shift+L
'
Application.ScreenUpdating = False / True
Dim i
For i = 1 To 50
Dim j
j = 1
Columns("F:F").Select
Selection.Replace What:="-50+j", Replacement:="-50+j", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
j = j + 1
Next i
Dim k
For k = 0 To 9
Dim l
l = 1
Selection.Replace What:="@(1+l)", Replacement:="1+l", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
l = l + 1
Next k
End Sub |
|