В этом руководстве будет показано, как использовать левую функцию VBA.
Левая функция
Функция VBA Left возвращает первые n символов из строки.
Левая функция VBA и первые символы
Функция VBA Left возвращает первые n символов из строки:
| 123456 | Sub LeftExample_1 ()MsgBox Left ("ABCDEFGHI", 4) 'Результат: "ABCD"MsgBox Left ("ABCDEFGHI", 2) 'Результат: "AB"MsgBox Left ("ABCDEFGHI", 1) 'Результат: "A"MsgBox Left ("ABCDEFGHI", 100) 'Результат: "ABCDEFGHI"Конец подписки |
Левая функция VBA n первые символы в переменной
Как показано выше, вы можете определить строку, просто введя текст в кавычках. Но функция LEFT также работает со строковыми переменными. Эти примеры извлекут первые n символов из строковой переменной.
| 1234567891011 | Sub LeftExample_2 ()Dim StrEx As String 'Определите строковую переменнуюStrEx = "ABCDEFGHI"MsgBox Left (StrEx, 4) 'Результат: «ABCD»MsgBox Left (StrEx, 2) 'Результат: «AB»MsgBox Left (StrEx, 1) 'Результат: «A»MsgBox Left (StrEx, 100) 'Результат: «ABCDEFGHI»Конец подписки |
Левая функция VBA n первые символы в ячейке
Строки можно определять в коде VBA, но также можно использовать значения из ячеек. Прочтите значение ячейки, сохраните его в строковой переменной и извлеките n первых символов из этого значения ячейки рабочего листа.
| 12345678910111213 | Sub LeftExample_3 ()Dim StrEx As String 'Определите строковую переменную'Прочтите значение ячейки A1 на листе Sheet1StrEx = ThisWorkbook.Worksheets ("Sheet1"). Range ("A1"). Value'В этом примере значение ячейки A1 - «A bCDEFGHI».MsgBox Left (StrEx, 4) 'Результат: «ABCD»MsgBox Left (StrEx, 2) 'Результат: «AB»MsgBox Left (StrEx, 1) 'Результат: «A»MsgBox Left (StrEx, 100) 'Результат: «ABCDEFGHI»Конец подписки |
VBA Left Function обрезать последнюю букву
Чтобы удалить буквы из конца строки, используйте функцию LEFT вместе с функцией LEN.
Функция VBA LEN подсчитывает количество символов в строке:
| 1 | Лен (StrEx) |
Комбинируя функции, мы можем удалить определенное количество символов из конца строки:
| 123456789 | Sub LeftExample_4 ()Dim StrEx As String 'Определите строковую переменнуюStrEx = "ABCDEF"MsgBox Left (StrEx, Len (StrEx)) 'Результат: "ABCDEF"MsgBox Left (StrEx, Len (StrEx) - 1) 'Результат: "ABCDE"MsgBox Left (StrEx, Len (StrEx) - 2) 'Результат: "ABCD"Конец подписки |
VBA осталось извлечь имя
Чтобы извлечь имя из строки с полным именем, используйте функцию Left вместе с функцией Instr.
Функция VBA Instr ищет подстроку внутри строки и возвращает номер позиции подстроки.
| 1 | InStr (StrEx, "") |
Комбинируя функции, мы можем извлечь первое слово из фразы:
| 12345678910111213141516171819 | Sub LeftExample_5 ()Dim StrEx As String 'Определите строковую переменнуюStrEx = "Александр Грэм Белл"MsgBox Left (StrEx, InStr (StrEx, ""))Результат: «Александр» (обратите внимание на пробел в конце)MsgBox Left (StrEx, InStr (StrEx, "") - 1)'Результат: «Александр» (БЕЗ пробела в конце)StrEx = "Леонардо да Винчи"MsgBox InStr (StrEx, "")'Результат: 9, потому что пробел находится в позиции 9MsgBox Left (StrEx, InStr (StrEx, "") - 1)Результат: «Леонардо».Конец подписки |
