Excelの関数で次の事を行いたいです。
列に"通勤手段"、"自動車"、"自動二輪"という列があります。
通勤手段フィールドには"NULL"が入っていたり、"自動車=クラウン"、
"自動二輪=NINJA"、"電車=JR"、"バス=JR"などの値が入っています。

この列の値の文字列が"自動車"とはいっていれば、"クラウン"という
値を切り取って"自動車"列に"クラウン"を挿入。
この列の値の文字列が"自動二輪"とはいっていれば、"NINJA"という
値を切り取って"自動二輪"列に"NINJA"を挿入。
その他の文字列、NULLは無視する。
ということがやりたいと思っています。

A列が通勤手段。B列が自動車。C列が自動二輪。
A1には"自動車=クラウン"
A2には"NULL"
A3には"自動二輪=NINJA"
A4には"バス=JR"
とあります。これを、次のように文字列を分割して各列に挿入したいです。
B1クラウン。C3にNINJA。です。

自動車と自動二輪の"自動"の部分がかぶってしまっていて、instr関数では
instr(A列の文字列,"自動")だと自動二輪も自動車もひっかかってしまいます。
ExcelかVBAの関数でうまくこの処理をできないでしょうか？

23pt

文字列の先頭から「自動車=」というようなキーワードで始まる場合は、次のようにExcelの関数だけでできます。

B1に次の式を入れる

=IF(ISERROR(SEARCH("自動車=",A1)),"", SUBSTITUTE(A1,"自動車=",""))

C1にも同様に次の式を入れる

=IF(ISERROR(SEARCH("自動二輪=",A1)),"", SUBSTITUTE(A1,"自動二輪=",""))

B1,C1を必要なところまでコピーする

もし、VBAのInStr関数でやる場合でも、自動車と自動二輪で分けて考える必要があります。

23pt

＝が１つしかなければ、

B1の数式を

=IF(ISERROR(SEARCH("自動車",A1)),"",RIGHT(A1,LEN(A1)-SEARCH("=",A1)))

C1の数式を

=IF(ISERROR(SEARCH("自動二輪",A1)),"",RIGHT(A1,LEN(A1)-SEARCH("=",A1)))

B1とC1を下にコピー

22pt

Accessのテーブルの話だったのですね。

こんな感じで

(テーブル名はテーブル1としました）

Sub test()
    Dim DB As DAO.Database
    Dim RS As DAO.Recordset
    Dim str As String
    
    Set DB = CurrentDb()
    Set RS = DB.OpenRecordset("テーブル1", dbOpenTable)
    
    Do Until RS.EOF
        RS.Edit
        str = RS.Fields("通勤手段").Value
        If InStr(1, str, "自動車") > 0 Then
            RS.Fields("自動車").Value = Right(str, Len(str) - InStrRev(str, "="))
        End If
        If InStr(1, str, "自動二輪") > 0 Then
            RS.Fields("自動二輪").Value = Right(str, Len(str) - InStrRev(str, "="))
        End If
        RS.Update
        RS.MoveNext
    Loop
    
    Set RS = Nothing
    Set DB = Nothing
End Sub