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

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

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.주소

Do

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

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

Cells.FindNext(After:=ActiveCell).Activate

ActiveCell.Replace What: = "*조명*", 대체: = "많은 회사 조명 *30회", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.FindNext(After:=ActiveCell).Activate

ActiveCell.Replace What: = "*조명*", 대체: = "많은 회사 조명 *30회", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.FindNext(After:=ActiveCell).Activate

ActiveCell.Replace What: = "*조명*", 대체: = "많은 회사 조명 *30회", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.FindNext(After:=ActiveCell).Activate

ActiveCell.Replace What: = "*조명*", 대체: = "많은 회사 조명 *30회", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.FindNext(After:=ActiveCell).Activate

ActiveCell.Replace What: = "*조명*", 대체: = "많은 회사 조명 *30회", LookAt:= _

xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

Cells.FindNext(After:=ActiveCell).Activate

위 내용은 VBA 튜토리얼: Excel과 텍스트 파일 간의 문자열 검색 및 셀 값 대체 방법의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!

성명
이 기사는 Excel办公网에서 복제됩니다. 침해가 있는 경우 admin@php.cn으로 문의하시기 바랍니다. 삭제
공식 예제와 Excel 일치 함수공식 예제와 Excel 일치 함수Apr 15, 2025 am 11:21 AM

이 튜토리얼은 공식 예제와 함께 Excel에서 일치 함수를 사용하는 방법을 설명합니다. 또한 VLOOKUP 및 MATCH를 사용하여 동적 공식을 만들어 조회 공식을 개선하는 방법을 보여줍니다. Microsoft Excel에는 여러 개의 다른 조회/ref가 있습니다

Excel에 중첩 - 여러 조건이있는 공식Excel에 중첩 - 여러 조건이있는 공식Apr 15, 2025 am 11:13 AM

이 튜토리얼은 Microsoft Excel에서 다중 IF 기능을 효과적으로 사용하는 방법을 보여 주며 다양한 작업에 대한 공식화 된 IF 공식을 보여줍니다. 핵심 개념은 여러 조건을 평가하고 다른 결과를 반환하기 위해 중첩 if 문을 사용합니다.

Excel의 주요 0 : 추가, 제거 및 숨기는 방법Excel의 주요 0 : 추가, 제거 및 숨기는 방법Apr 15, 2025 am 09:31 AM

이 튜토리얼은 Excel의 주요 0을 관리하고 보존, 디스플레이 및 제거를 다루는 다양한 방법을 탐구합니다. 우편 번호, ID 또는 주요 0이 필요한 기타 데이터를 사용하든이 안내서는 솔루션을 제공합니다. 탁월한

공식 예제와 함께 Excel Hlookup 기능공식 예제와 함께 Excel Hlookup 기능Apr 15, 2025 am 09:05 AM

Microsoft Excel의 HLOOKUP 기능 : 포괄적 인 가이드 Excel은 조회, VLOOKUP 및 HLOOKUP의 세 가지 조회 기능을 제공하지만 HLOOKUP은 종종 혼란을 유발합니다. 이 튜토리얼은 HLOOKUP의 세부 사항을 명확히하고 효율적인 사용을위한 예를 제공합니다. 와트시

Excel에서 테이블 이름을 바꾸지 않으면 오늘은 시작합니다.Excel에서 테이블 이름을 바꾸지 않으면 오늘은 시작합니다.Apr 15, 2025 am 12:58 AM

빠른 링크 테이블을 Excel로 명명 해야하는 이유 Excel에서 테이블의 이름을 지정하는 방법 Excel 테이블 이름 지정 규칙 및 기술 기본적으로 Excel의 표는 Table1, Table2, Table3 등으로 지정됩니다. 그러나이 태그를 고수 할 필요는 없습니다. 사실, 당신이하지 않으면 더 나을 것입니다! 이 빠른 가이드에서는 왜 항상 Excel에서 테이블의 이름을 바꿔야하는지 설명하고이를 수행하는 방법을 보여 드리겠습니다. 테이블을 Excel로 명명 해야하는 이유 Excel에서 테이블의 이름 지정 습관을 개발하는 데 시간이 좀 걸릴 수 있지만 (일반적 으로이 작업을 수행하지 않는 경우) 다음과 같은 이유는 오늘을 설명합니다.

Microsoft 365는 해커가 계속 사용하기 때문에 ActiveX를 꺼집니다.Microsoft 365는 해커가 계속 사용하기 때문에 ActiveX를 꺼집니다.Apr 12, 2025 am 06:01 AM

Microsoft 365는 마침내 사무실 제품군의 오랜 보안 취약점 인 ActiveX를 폐지하고 있습니다. 이것은 사무실 2024에서 비슷한 움직임을 따릅니다. 이번 달부터 Microsoft 365의 Windows 버전의 Word 버전, Excel, PowerPoint 및 Visio

Excel의 집계 함수를 사용하여 계산을 개선하는 방법Excel의 집계 함수를 사용하여 계산을 개선하는 방법Apr 12, 2025 am 12:54 AM

빠른 링크는 집계 구문을 연결합니다

Excel에서 Pivotby 기능을 사용하는 방법Excel에서 Pivotby 기능을 사용하는 방법Apr 11, 2025 am 12:56 AM

Pivotby 구문을 빠르게 연결합니다

See all articles

핫 AI 도구

Undresser.AI Undress

Undresser.AI Undress

사실적인 누드 사진을 만들기 위한 AI 기반 앱

AI Clothes Remover

AI Clothes Remover

사진에서 옷을 제거하는 온라인 AI 도구입니다.

Undress AI Tool

Undress AI Tool

무료로 이미지를 벗다

Clothoff.io

Clothoff.io

AI 옷 제거제

AI Hentai Generator

AI Hentai Generator

AI Hentai를 무료로 생성하십시오.

인기 기사

R.E.P.O. 에너지 결정과 그들이하는 일 (노란색 크리스탈)
4 몇 주 전By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. 최고의 그래픽 설정
4 몇 주 전By尊渡假赌尊渡假赌尊渡假赌
R.E.P.O. 아무도들을 수없는 경우 오디오를 수정하는 방법
4 몇 주 전By尊渡假赌尊渡假赌尊渡假赌
WWE 2K25 : Myrise에서 모든 것을 잠금 해제하는 방법
1 몇 달 전By尊渡假赌尊渡假赌尊渡假赌

뜨거운 도구

Eclipse용 SAP NetWeaver 서버 어댑터

Eclipse용 SAP NetWeaver 서버 어댑터

Eclipse를 SAP NetWeaver 애플리케이션 서버와 통합합니다.

SublimeText3 Mac 버전

SublimeText3 Mac 버전

신 수준의 코드 편집 소프트웨어(SublimeText3)

Atom Editor Mac 버전 다운로드

Atom Editor Mac 버전 다운로드

가장 인기 있는 오픈 소스 편집기

드림위버 CS6

드림위버 CS6

시각적 웹 개발 도구

에디트플러스 중국어 크랙 버전

에디트플러스 중국어 크랙 버전

작은 크기, 구문 강조, 코드 프롬프트 기능을 지원하지 않음