|
▼Cuore=Tane さん:
> Selection.Replace What:=Range("J1:J41").Select, Replacement:=Range("K1:K41").Select, LookAt:=xlPart _
> , SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
> ReplaceFormat:=False
>と直してみましたが、動きませんでした(T_T)
こんにちは。
ぐちゃぐちゃになってますね。
Sheet2を対象にSheet1のJ1の文字列をSheet1のK1の文字列で置き換えます。
Sheets("Sheet2").Cells.Replace What:=Sheets("Sheet1").Range("J1").Value, _
Replacement:=Sheets("Sheet1").Range("K1").Value, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
|
|