エクセルで特定の文字を抜き出す方法

質問

• エクセルを使って特定の文字を抜き出す方法を教えてください。時間割の右側に「田中」の授業２・３年国語と学活を、「小林」の授業１・２年の英語と学活を自動で抜き出したいです。
• 手で入力せずにエクセルで特定の文字を抜き出す方法を教えてください。時間割の右側に「田中」の授業２・３年国語と学活を、「小林」の授業１・２年の英語と学活を自動で抜き出したいです。
• エクセル初心者の教員です。エクセルで特定の文字を抜き出す方法を教えてください。時間割の右側に「田中」の授業２・３年国語と学活を、「小林」の授業１・２年の英語と学活を自動で抜き出したいです。

回答No.5

KURUMITO

関数で対処するにはあまりにも複雑で不可能に近いでしょう。
マクロを使って対処することにします。
データはシート1に有るとしてB1セルからG1セルには1A,1B,2A,2B,3A,3Bとクラス名が入力されているとします。
A2セル以降には（１）、（２）、・・・とA7セルまで入力されているとします。数、国などのデータがB2セルからG7セルに入力されているとします。
そこで、田中の文字をH1セルに、小林の文字をI1セルに入力します。その他の先生についても必要ならO1セルまでに入力するとします。
また、先生と担当する教科名やクラス名、学年などをデータベースとして用意することが必要です。ここではP1セルに田中と入力し、担当の教科として国をP2セルに、そのほかの教科が有るのでしたらP3セルに、その下の行に学活の時のクラス名を2Aと入力します。また、その下の行には担当する学年を入力します。例えば、P4セルには2,P5セルには3と入力します。これは田中は2年と3年のクラスで国を担当するなどの意味を持つことになります。同様に小林についてもO1セルに小林、O2セルに英、O3セルには１A,O4セルには1、O5セルには2などと入力します。他の先生についても右の列に同様に入力します。
これらの入力が済んでからマクロを操作することにします。
マクロの作成は次のようにします。
シート見出しでSheet1を右クリックして「コードの表示」を選択します。
表示される画面には次のコードを入力します。
Sub 担任割り当てクラス()
Dim Colm0 As Integer
Dim Colm1 As Integer
Dim Colm2 As Integer
Dim Row0 As Integer
Dim NAMAE As String
Dim KURASU As String
For Colm1 = 8 To 15
If Cells(1, Colm1) <> "" Then
NAMAE = Cells(1, Colm1)
Colm2 = WorksheetFunction.Match(NAMAE, Range("P1:X1"), 0) + 15
For Row0 = 2 To 7
For Colm0 = 2 To 7
If Cells(Row0, Colm0) = "学" Then
If WorksheetFunction.CountIf(Range(Cells(2, Colm2), Cells(20, Colm2)), Cells(1, Colm0)) > 0 Then
Cells(Row0, Colm1) = Cells(1, Colm0)
End If
End If
If WorksheetFunction.CountIf(Range(Cells(2, Colm2), Cells(20, Colm2)), Cells(Row0, Colm0)) > 0 Then
KURASU = Cells(1, Colm0)
If WorksheetFunction.CountIf(Range(Cells(2, Colm2), Cells(20, Colm2)), Left(KURASU, 1) * 1) > 0 Then
Cells(Row0, Colm1) = KURASU
End If
End If
Next
Next
End If
Next
End Sub
画面を閉じてからシート1に戻って「開発」タブの「マクロ」をクリックして
Sheet1.担任割り当てクラス
を選択して「実行」をクリックします。
お望みのデータがH列やI列に表示されます。なお、例のデータでは英数文字が使われていますがすべて半角英数文字で入力するようにしてください。一度こちらが示した通りの表を作成してからマクロを実行してみてください。後は応用です。頑張ってください。
なお、「開発」タブが表示されていない場合には「ファイル」タブから「オプション」をクリックし、「リボンのユーザー設定」から「開発」にチェックをします。、

お礼

ありがとうございます。
マクロを使うのですね。かなり高度な感じがしますが、
頑張ってやってみたいと思います。ありがとうございました。