質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%

Q&A

解決済

2回答

1406閲覧

列の中に、別の列に入っている文字の一部が入力されているセルがあるか確かめたい

退会済みユーザー

退会済みユーザー

総合スコア0

0グッド

0クリップ

投稿2018/03/16 03:19

編集2018/03/16 03:34

前提

あるExcelブックがあります。
・Sheet1
A列に、文字列データが入っています。

ABC
株式会社あいうえお
かきくけこ株式会社
たちつてとカンパニー

・Sheet2
A列には、他の文字列データが入っています。
(この文字列は、あるフォルダに保存されている現時点でのファイル名一覧を取得したものです。このフォルダには、日々ファイルが増えていっています。)
B列には、LEFT関数を使い、Sheet2A列の文字列データの先頭5文字までが表示されています。

ABC
あいうえおco.,ltd.010117.pdfあいうえお
かきくけこ ltd.xlsxかきくけこ
さしすせそ holdings corporation.pdfさしすせそ

実現したいこと

Sheet1のA列の各セルの中に、
Sheet2のB列の文字がいずれか入っていれば「取込済」、
入っていないようであれば「未取込」、
とSheet2のC列に表示させたいです。
イメージ↓

ABC
あいうえおco.,ltd.010117.pdfあいうえお取込済
かきくけこ ltd.xlsxかきくけこ取込済
さしすせそ holdings corporation.pdfさしすせそ未取込

発生している問題・エラーメッセージ

Vlookup, find, search関数を入れてみましたが、
各関数が、今回の目的に適していないのか、#N/Aという検索結果になってしまいました。

###Excelのバージョン
2016

どうぞお手柔らかにご指導いただければ幸いです。
よろしくお願いいたします。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

takito

2018/03/16 04:13

「先頭5文字」という点はここで説明するためだけの条件ですか?5文字未満の会社はその後ろの文字も付加され正式な社名にならないし、5文字目まで同一で6文字目から後ろが違う会社名があると重複します。そういった心配しなくてよいですか?
退会済みユーザー

退会済みユーザー

2018/03/16 04:33

早速のご回答ありがとうございます。ご指摘いただきました点気づいていませんでした。ご指摘いただいた点、心配必要です。 特に根拠はなく、とりあえず5文字に設定していました。
guest

回答2

0

ベストアンサー

C1セルに

=IF(COUNTIF(Sheet1!A:A,"*"&B1&"*")>0, "取込済","未取込")

あとはこれを行数分コピペでどうでしょうか。

投稿2018/03/16 04:17

ttyp03

総合スコア16996

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2018/03/16 04:41

早速のご回答ありがとうございます。うまく「取込済」「未取込」のセルを知ることができました! IfとcountIfを組み合わせ、ワイルドカードにするには”*”&で囲む方法をとることでソートが可能になるのですね! ありがとうございます!
ttyp03

2018/03/16 04:43

ん?ソートはしてないですよ。
退会済みユーザー

退会済みユーザー

2018/03/16 05:01

あ!おっしゃるとおりソートはされていませんでした。 並べ替えは自分でフィルタかけてました。。お騒がせいたしました。フォローありがとうございます:)
takito

2018/03/16 05:03

私もこの方法でいけると思います ただ、「AB株式会社」「ABC株式会社」のようなものまでは救えないので、実データにそういうような社名が無いのが前提になりそうです
退会済みユーザー

退会済みユーザー

2018/03/16 05:19

アドバイスありがとうございます。現在のところ、アドバイスいただきました点に気をつけ、データ量が少ないので、目視で確認作業をしようと思います。データ量が大きくなってきたときのことを考えて、引き続きExcelで正確なデータ処理を行えるようがんばりたいと思います。また質問させていただくことがあるかもしれませんが、どうぞよろしくお願いいたします。この度は、早速にお助けくださり、みなさまありがとうございました!
guest

0

Sheet1
Sheet2

Private Sub CommandButton1_Click() Dim r1 As Long, r2 As Long r1 = 2 Do While Len(Sheets("Sheet1").Cells(r1, 2).Value) > 0 r2 = 2 Do While Len(Sheets("Sheet2").Cells(r2, 1).Value) > 0 If InStr(Sheets("Sheet2").Cells(r2, 1).Value, Sheets("Sheet1").Cells(r1, 2).Value) > 0 Then Sheets("Sheet1").Cells(r1, 3).Value = CStr(r2) End If r2 = r2 + 1 Loop r1 = r1 + 1 Loop End Sub

投稿2018/03/16 03:23

編集2018/03/16 04:27
退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2018/03/16 03:29

早速のご回答ありがとうございます。 含んでほしくない文字を除くために、Sheet2のB列にSheet1にありそうな文字を抜き出したのですが、 Sheet1の文字列と完全一致しないとexcelでは検索できないのでしょうか?
退会済みユーザー

退会済みユーザー

2018/03/16 04:06

ワークシート関数FINDでは、一箇所しか使えないため、 VBAでコードを書いたほうが早そうな気がします。
退会済みユーザー

退会済みユーザー

2018/03/16 04:34

早速のご返信ありがとうございます。VBAはこのようなときに活用できるものなのですね。関数ばかりで解決しようとしてたので、VBAも勉強していきたいと思います。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問