집 >소프트웨어 튜토리얼 >사무용 소프트웨어 >VBA 튜토리얼: Excel과 텍스트 파일 간의 문자열 검색 및 셀 값 대체 방법

VBA 튜토리얼: Excel과 텍스트 파일 간의 문자열 검색 및 셀 값 대체 방법

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB앞으로: 2024-01-23 23:45:31785검색

VBA 도움말: Excel과 txt 간의 문자열 검색 및 셀 값 대체 구현 방법

txt 파일이 탭 구분 기호를 사용하는 경우 다음 코드가 요구 사항을 충족할 수 있습니다

하위변경Txt()

Dim FileN, TxtWb를 통합 문서로, ToFindData를 문자열로

Dim ToSubData를 문자열로, c를 범위로, FirstAdr을 문자열로

If MsgBox ("찾을 셀이 선택되었습니까?", vbYesNo) = vbNo Then Exit Sub

ToFindData = Selection.Cells(1).Value

ToSubData = Selection.Cells(1).Offset(, 1).Value

FileN = Application.GetOpenFilename("TXt 파일, *.txt", , "txt 파일 선택")

TypeName(FileN) = "Boolean"이면 Sub를 종료합니다

Workbooks.OpenText 파일 이름:=FileN, 연속 구분 기호:=False, _

탭:=True, 공백:=False

TxtWb 설정 = ActiveWorkbook

Set c = TxtWb.Sheets(1).UsedRange.Find(What:=ToFindData, _

LookAt:=xlPart, MatchCase:=False, matchbyte:=False, SearchFormat:=False)

C가 아니면 아무것도 아니다

FirstAdr = c.주소

c.Offset(, 4) = ToSubData

Set c = TxtWb.Sheets(1).UsedRange.FindNext(c)

c.Address = FirstAdr까지 반복

TxtWb.Close savechanges:=True

MsgBox "교체 완료"

그밖에

TxtWb.Close 거짓

MsgBox "찾을 수 없습니다. 찾고자 하는 셀을 선택해주세요."

끝나면

C 설정 = 없음

TxtWb 설정 = 없음

끝 서브

excel VBA 콘텐츠 교체

잠깐()

Dim c As Range

n = 셀(행.개수, "t").End(3).Row

rg = 범위("b6:t"& n)로 설정

rg.HorizontalAlignment = xlCenter

t = InputBox ("찾고 싶은 숫자를 입력하세요")

rg의 각 c에 대해

c ＂＂” 그리고 c ＂√＂ 그리고 c ＂X＂ 그렇다면

InStr(c, t) >0이면

c = "√"

그밖에

c = "X"

끝나면

rg의 각 c에 대해

c = "√" 그렇다면

c.Font.Bold = 참

c.Font.Color = vbBlue

ElseIf c = "X" 그렇다면

c.Font.Bold = 참

c.Font.Color = vbRed

끝나면

끝 서브

워크시트를 반복하여 문자열을 찾고 VBA를 바꿉니다

범위("A1").선택

선택.복사

Cells.Find(대상:= "*조명*", 이후:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, MatchByte:=False, SearchFormat:=False).Activate