VBA EXCEL SPLIT カンマ 出力 抽出

質問

いつも、お世話になっております。
右に示すテーブルから、カンマで区切られた管理番号を元に行数を求めたいと考えております。

M1を左の欄に入力したら「3」
M2を左の欄に入力したら「3」
M4を左の欄に入力したら「2」
M9を左の欄に入力したら「5」

このようなプログラムをEXCELのVBAより求めたいと考えております。
アドバイスをよろしくお願いします。

回答No.1

pkh4989 · ベストアンサー

こんにちは。
以下のマクロを参考にして下さい。
マクロ貼付方法→入力シートをマウス右Click → 「コードの表示」→ 表示される画面に貼り付け

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Column = 1 Then
　　　　If Target.Value <> "" Then
　　　　　　Cells(Target.Row, 2) = Get_Code(Target.Value)
　　　　End If
　　End If
End Sub
Function Get_Code(wc As String) As String
　　Get_Code = ""
　　Set c = Range("E1:E5").Find(wc)
　　If Not c Is Nothing Then
　　　　Get_Code = Cells(c.Row, 4)
　　End If
End Function

回答No.2

hige_082

マクロの登録の仕方は＃１さんと同じですが
同じイベントを二つ登録できないので
一度すべて消してからコピペして試してください

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Offset(0, 1) = Range("E1:E5").Find(What:=Target.Value, After:=Range("E1")).Row
End Sub