VBA チュートリアル: Excel とテキストファイルの間で文字列検索とセル値を置換する方法-オフィスソフトウェア-php.cn

ホームページ

ソフトウェアチュートリアル

オフィスソフトウェア

VBA チュートリアル: Excel とテキストファイルの間で文字列検索とセル値を置換する方法

WBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWBOYWB

Jan 23, 2024 pm 11:45 PM

VBAの検索と置換

VBA チュートリアル: Excel とテキストファイルの間で文字列検索とセル値を置換する方法

VBA ヘルプ: Excel と txt の間で文字列検索とセル値の置換を実装する方法

txt ファイルでタブ区切り文字が使用されている場合は、次のコードでニーズを満たすことができます

サブChangeTxt()

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", , "テキストファイルの選択")

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.Address

＃＃＃する＃＃＃

c.Offset(, 4) = ToSubData

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

c.Address = FirstAdr

までループします。

TxtWb.Close savechanges:=True

MsgBox「交換完了」

＃＃＃それ以外＃＃＃

TxtWb.Close False

MsgBox "見つかりません。検索したいセルを選択してください。"

終了の場合

c = 何も設定しない

TxtWb = 何も設定しない

エンドサブ

Excel VBAコンテンツの置換

サブス()

Dim c を範囲として指定する

n = Cells(Rows.Count, "t").End(3).Row

Set rg = Range("b6:t" & n)

rg.horizontalAlignment = xlCenter

t = InputBox (「調べたい数字を入力してください」)

各 c In rg について

If c ＂＂” そして c ＂√＂そして c ＂X＂ then

If InStr(c, t) >0 then

c = "√＂"

＃＃＃それ以外＃＃＃

c = "X"

終了の場合

＃＃＃次＃＃＃

各 c In rg について

If c = ＂√＂ then

c.Font.Bold = True

c.Font.Color = vbBlue

ElseIf c = "X" then

c.Font.Bold = True

c.Font.Color = vbRed

終了の場合

＃＃＃次＃＃＃

エンドサブ

ワークシートを走査して文字列を検索し、VBAを置換します

範囲(＂A1＂).選択

選択.コピー

Cells.Find(What:="*Lighting*", After:=ActiveCell, LookIn:=xlFormulas, LookAt __

:=xlPart、SearchOrder:=xlByRows、SearchDirection:=xlNext、MatchCase:= __