Sub ki150()
Sheets("Sheet1").Select
'最終セル
      ActiveCell.SpecialCells(xlLastCell).Select
      endr = ActiveCell.Row
    For j = 2 To endr
        chd1 = Cells(j, 2)
        chs1 = InStr(1, chd1, "/", 1)
          If chs1 > 0 Then
            chd2 = Left(chd1, chs1 - 1)
            chd2 = Trim(chd2)
            chd3 = Mid(chd1, chs1 + 1)
            chd3 = Trim(chd3)
            Cells(j, 4) = chd2
            Cells(j, 5) = chd3
          End If
    Next
    Cells(1, 4) = "車種"
    Cells(1, 5) = "型式"
'サイズ最適化
   ActiveSheet.Columns.AutoFit
End Sub