Sub edit_Replace1()
	ActiveCell.Replace What:="AAA", _
	'置き換えられる文字を現在のセルのAAAに指定します。
	Replacement:="BBB", _
	'置き換える文字をBBBに指定します。
	LookAt:=xlPart, _
	'完全に同一のセルでなくても検索させます。
	'引数は他にxlWhole（完全に同一のセルだけ検索）があります。
	SearchOrder:=xlByColumns, _
	'検索方向を行（左から右）に指定します。
	'引数は他にxlByRows（列）（上から下）があります。
	MatchCase:=True, _
	'大文字と小文字を区別するようにします
	MatchByte:=True) .Activate
	'全角と半角を区別するようにします
End Sub

Sub edit_Replace2()
	Cells.Replace What:="AAA", Replacement:="BBB"
	すべてのAAAをBBBに置き換えます
End Sub