Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66018 / 76738

←次へ　｜　前へ→


	【15286】Re:セル内の指定した文字の削除

かみちゃん - 04/6/19(土) 12:44 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>各列の各シートに決まった文字が入力されています。この決まった文字の削除方法を教えて下さい。

Sheet2のA1セルに以下まような数式を入力すると、一般操作でもできます。
=SUBSTITUTE(Sheet1!A1,"★お名前★　","")
詳細は、SUBSTITUE関数のヘルプ情報でご確認ください。

VBAでするのであれば、以下のようなコードになります。
このコードは、あらかじめ、変換したいセル範囲を指定してから、マクロを実行します。
特定のセル範囲を変換するのであれば、In Selection の部分をIn Range(セル範囲)などとします。
Sub Test()
　Dim c As Range
　For Each c In Selection
　　c.Value = Replace(Replace(Replace(c.Value, "★年齢★　", ""), "★フリガナ★　", ""), "★お名前★　", "")
　Next
End Sub
詳細は、Replace関数のヘルプ情報でご確認ください。

0 hits

▼

【15282】セル内の指定した文字の削除 ジャンキー 04/6/19(土) 11:36