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에서 일치 함수를 사용하는 방법을 설명합니다. 또한 VLOOKUP 및 MATCH를 사용하여 동적 공식을 만들어 조회 공식을 개선하는 방법을 보여줍니다. Microsoft Excel에는 여러 개의 다른 조회/ref가 있습니다

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

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

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

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

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


핫 AI 도구

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

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

Undress AI Tool
무료로 이미지를 벗다

Clothoff.io
AI 옷 제거제

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

인기 기사

뜨거운 도구

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

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

Atom Editor Mac 버전 다운로드
가장 인기 있는 오픈 소스 편집기

드림위버 CS6
시각적 웹 개발 도구

에디트플러스 중국어 크랙 버전
작은 크기, 구문 강조, 코드 프롬프트 기능을 지원하지 않음
