A 回答 (3件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
置換するためには、Excelの関数を使用することができます。
具体的には、IF関数とSEARCH関数を使うことで実現できます。以下の手順で実行できます。D列の最初のセル(D2)を選択します。
次の関数を入力して、Enterキーを押します。
=IF(ISNUMBER(SEARCH("東",C2)),"東京東営業部",IF(ISNUMBER(SEARCH("西",C2)),"東京西営業部","東京営業部"))
D2のセルを選択し、D列のすべてのセルにコピー&ペーストします。
この方法を使うと、C列のすべてのセルが処理され、D列に対応するテキストが表示されます。
No.2
- 回答日時:
VBAを望んでいるのですか?
関数で処理できると思うので、関数を使った方法です。
「東」が入っていると指定すると「東京」のみでも東と処理されて
正しく置換できないので「東京東」を検索条件にします。
=IF(ISBLANK(C2),"",IF(COUNTIF(C2,"*東京東*"),"東京東",IF(COUNTIF(C2,"*西*"),"東京西","東京"))&"営業部")
空白の場合の処理もしてあります。
No.3
- 回答日時:
以下は、VBAのコード例です。
例えば、A列に地名、B列に営業部を入力した場合、C列に以下のコードを入力することで、上記のルールに従って変換できます。Sub ReplaceWords()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row '最終行を取得
For i = 1 To LastRow
If InStr(1, Range("A" & i), "東") > 0 And InStr(1, Range("A" & i), "西") = 0 Then '文字列に「東」が含まれている場合
Range("B" & i) = "東京東営業部"
ElseIf InStr(1, Range("A" & i), "西") > 0 And InStr(1, Range("A" & i), "東") = 0 Then '文字列に「西」が含まれている場合
Range("B" & i) = "東京西営業部"
Else 'それ以外の場合
Range("B" & i) = "東京営業部"
End If
Next i
End Sub
上記のコードをExcelのVBAエディタに貼り付け、実行すると、A列の文字列が上記のルールに従ってB列に変換されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) テキストボックス1の値に対するテキストボックス2に表示する値 1 2022/04/05 14:35
- 新幹線 なぜ関東の鉄道って遅いだけでなく、車両の快適性のかけらもないのでしょうか? 新幹線すら酷いよね 1 2022/03/31 17:46
- 政治 誰推しですか?東大率高めですけど 岸田文雄→早稲田大学法学部 山口那津男→東京大学法学部 泉健太→立 4 2022/07/04 03:14
- 電車・路線・地下鉄 山手線一周の乗車券を発券することは可能? 8 2023/05/21 19:51
- 関東 東京メトロ、都営が使える二日券 5 2022/08/07 20:08
- 新幹線 JRの株主優待券。使い方を教えて。 3 2023/02/20 21:44
- 電車・路線・地下鉄 東海道本線東京口の最高営業速度が120㌔毎時に引き上げられた時期は、いつ? 3 2023/08/07 06:28
- 電車・路線・地下鉄 市ヶ谷駅の乗り換え 3 2023/07/23 08:37
- メディア・マスコミ 日本がブラック企業がなくならないのは 8 2022/10/11 22:45
- 大学受験 頭の悪い大学の法学部ってどんな感じですか? 旧帝大 東工大 筑波 早稲田大 慶應 東京理科 同志社 6 2023/02/19 19:15
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
振込用紙の東京MTとは
-
転勤で札幌に住んで二年ですが...
-
「しっちゃかめっちゃか」と「...
-
東京都の都庁所在地は新宿区?...
-
「なんで」と「なにで」の使い分け
-
♪カステラ一番,電話は二番♪,...
-
最近ここら辺という言葉が標準...
-
標準語の人ってほんとに語尾に...
-
東京からフェリーで和歌山にい...
-
東京から北東、南の方角のパワ...
-
この読み方教えてください!
-
出身地とは
-
「坂」の発音
-
とても後悔しています。受験生...
-
あなたの嫌いな東京弁は?
-
戦車が東京都内の道路をパレー...
-
希塩酸は薬局に売っているので...
-
東京駅近くで「くさや」の干物...
-
四字熟語
-
七五三、川崎大師近くで子供着...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
振込用紙の東京MTとは
-
転勤で札幌に住んで二年ですが...
-
「なんで」と「なにで」の使い分け
-
♪カステラ一番,電話は二番♪,...
-
出身地とは
-
最近ここら辺という言葉が標準...
-
「○○県は○○市~」にある"は"とは?
-
地図とかの「至」は何と読む?
-
「より」と「から」の使い分け...
-
特定の文字列があったらその行...
-
東京からフェリーで和歌山にい...
-
「しっちゃかめっちゃか」と「...
-
「そんなこと言わんでよ」の言...
-
とても後悔しています。受験生...
-
紛失したiPhoneが戻ってきまし...
-
行者ニンニクの発送について
-
あなたの嫌いな東京弁は?
-
福島駅から見える山脈の名前は?
-
標準語の人ってほんとに語尾に...
-
東京都の都庁所在地は新宿区?...
おすすめ情報
おしえてくれませんでしょうか
下記の関数を
そのまま標準モジュールにいれて
やりたいのですが、
おしえてくれませんでしょうか
=IF(ISBLANK(C2),"",IF(COUNTIF(C2,"*東京東*"),"東京東",IF(COUNTIF(C2,"*西*"),"東京西","東京"))&"営業部")
Range("b2").Formula = "=IF(ISBLANK(C2),"",IF(COUNTIF(C2," * 東京東 * "),東京東,IF(COUNTIF(C2," * 西 * "),東京西,東京))& 営業部)"
これだとエラーになります。
わかりますでしょうか