Сортировка инвентаря Excel VBA

Я пытаюсь сделать процесс сканирования инвентаря немного простым. Мы сканируем входящую отправку. Сканер отправляет строку в Excel что-то вроде 'XYZ123' . То, что я пытаюсь сделать, вместо того, чтобы пользователь вручную выбирал столбец, хотел бы, чтобы excel отправил отсканированную строку в соответствующий столбец. Например, допустим, что возможны 3 возможных столбца: 'PO' , 'Item' , 'SN'

  • PO начнется с 'XYZ'
  • Item начнется с 'ABC'
  • SN с началом с 'LMN'

Если сканированное значение начинается с 'ABC' , оно должно быть отправлено в столбец 'Item' .

Это возможно? Я попытался сыграть с поиском, точным и несколькими другими формулами, до сих пор ничего не работало.

Спасибо,

 Sub test_inventory_sorting() Dim v_arr(1 To 3) As String, v As Variant v_arr(1) = "XYZ1234" v_arr(2) = "LMN73456" v_arr(3) = "ABCzxcv" For Each v In v_arr Debug.Print v; " goes to "; get_col(CStr(v)) Next v End Sub Function get_col(ByVal p_val As String) As String If p_val Like "ABC*" Then get_col = "SN" ElseIf p_val Like "LMN*" Then get_col = "Item" ElseIf p_val Like "XYZ*" Then get_col = "PO" Else get_col = "Invalid" End If End Function 
Давайте будем гением компьютера.