Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46941 / 76732 ←次へ | 前へ→

【34758】Re:実際に改良してみたのですが…
発言  やっちん  - 06/2/11(土) 16:37 -

引用なし
パスワード
   ▼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

1 hits

【34751】検索と置換の応用 Cuore=Tane 06/2/10(金) 23:26 質問
【34753】Re:検索と置換の応用 やっちん 06/2/11(土) 3:38 発言
【34756】実際に改良してみたのですが… Cuore=Tane 06/2/11(土) 15:11 質問
【34758】Re:実際に改良してみたのですが… やっちん 06/2/11(土) 16:37 発言
【34767】Re:実際に改良してみたのですが… Ko 06/2/11(土) 18:29 発言
【34769】Re:実際に改良してみたのですが… やっちん 06/2/11(土) 19:02 発言
【34824】Re:実際に改良してみたのですが… Cuore=Tane 06/2/13(月) 22:15 質問
【34825】Re:実際に改良してみたのですが… やっちん 06/2/13(月) 22:29 発言
【34866】Re:実際に改良してみたのですが… Cuore=Tane 06/2/14(火) 23:09 お礼

46941 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free