12,673
回編集
差分
ナビゲーションに移動
検索に移動
編集の要約なし
==[[Excel VBA すべてのシートに対して一括置換]]==
[[Excel]] | [[Excel VBA]] |
====すべてのシートに対して一括置換する====
Sub AllReplaceAll[[R]]eplace()
Dim f As String
Dim t As String
Dim i As Integer
Dim sht As [[Excel]].Worksheet
f = InputBox("置換対象文字列を入力してください")
End If
sht.Cells.Replace [[R]]eplace What:=f, Replacement[[R]]eplacement:=t, LookAt:= _ xlPart, SearchOrder:=xlByRowsxlBy[[R]]ows, MatchCase:=False, MatchByte:=False
Next
Call MsgBox("完了")
End Sub
© 2006 矢木浩人
