특정 문자를 상위줄에 있는 글자로 대체하는 코드

팁&서식

특정 문자를 상위줄에 있는 글자로 대체하는 코드

Sub 글자치환()

Dim a As Range

If Selection.Rows.Count <= 2 Then

   Set a = Range("b1", Range("b1048576").End(xlUp))

Else

   Set a = Selection

End If



 temp = ""

For Each i In a

 If i.Value <> 0 And InStr(1, i.Value, "상품계") = 0 Then

  temp = i.Value

 End If

 If InStr(1, i.Value, "상품계") >= 1 Then

  i.Value = temp & "===============>"

 End If


Next

End Sub


Comments

Category
State
  • 현재 접속자 4 명
  • 오늘 방문자 54 명
  • 어제 방문자 118 명
  • 최대 방문자 491 명
  • 전체 방문자 383,754 명
  • 전체 게시물 2,708 개
  • 전체 댓글수 105 개
  • 전체 회원수 115 명
Facebook Twitter GooglePlus KakaoStory NaverBand