Этот UDF определяет номер счета, независимо от того, где он находится:
Public Function accounts(cellText As String)
accounts = ""
numberlength = 6
posText = 0
lenText = Len(cellText)
For i = 1 To lenText
midText = Mid(cellText, i, numberlength)
If IsNumeric(midText) = True Then
posText = i
letterText = Mid(cellText, posText - 1, 1)
If (letterText = "A" Or letterText = "U") Then
accounts = Mid(cellText, posText - 1, numberlength + 1)
i = lenText
End If
End If
Next i
End Function
Скопируйте код, откройте Visual Basic / Macros, в ThisWorkbook вставьте новый модуль и вставьте код с правой стороны.
Чтобы использовать его, если текст находится в ячейке A1
, то в ячейку B1
необходимо поставить =accounts(A1)
.