Vba: як видалити перший символ із рядка
Ви можете використовувати такий базовий синтаксис, щоб видалити перший символ із рядка за допомогою VBA:
Sub RemoveFirstChar()
Dim i As Integer
Dim myString As String
For i = 2 To 11
myString = Range(" A " & i)
Range(" B " & i) = Right(myString, Len(myString) - 1)
Next i
End Sub
У цьому конкретному прикладі видаляється перший символ із кожного рядка в діапазоні A2:A11 і відображається результат у діапазоні B2:B11 .
У наступному прикладі показано, як використовувати цей синтаксис на практиці.
Пов’язане: як видалити останній символ із рядка за допомогою VBA
Приклад: використання VBA для видалення першого символу з рядків
Припустімо, що в Excel є такий список назв баскетбольних команд:
Скажімо, ми хочемо видалити перший символ із назви кожної команди.
Для цього ми можемо створити такий макрос:
Sub RemoveFirstChar()
Dim i As Integer
Dim myString As String
For i = 2 To 11
myString = Range(" A " & i)
Range(" B " & i) = Right(myString, Len(myString) - 1)
Next i
End Sub
Коли ми запускаємо цей макрос, ми отримуємо такий результат:
Стовпець B відображає кожен із рядків у стовпці A з видаленим першим символом.
Якщо замість цього ви хочете видалити перші n символів із рядка, просто замініть 1 у методі Right на інше число.
Наприклад, ми можемо створити такий макрос, щоб видалити перші 2 символи з рядка:
Sub RemoveFirstTwoChar()
Dim i As Integer
Dim myString As String
For i = 2 To 11
myString = Range(" A " & i)
Range(" B " & i) = Left(myString, Len(myString) - 2)
Next i
End Sub
Коли ми запускаємо цей макрос, ми отримуємо такий результат:
У стовпці B відображається кожен із рядків у стовпці A з вилученими першими двома символами.
Примітка . Ви можете знайти повну документацію для методу VBA Right тут .
Додаткові ресурси
У наступних посібниках пояснюється, як виконувати інші типові завдання за допомогою VBA:
VBA: як підрахувати випадки появи символів у рядку
VBA: як перевірити, чи містить рядок інший рядок
VBA: як підрахувати клітинки з певним текстом