/ / Окремі рядки в Excel VBA

Окремі рядки в Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA це відокремлює струни.

Ситуація:

Окремі рядки в Excel VBA

Помістіть на вашій робочій клавіші команду та додайте наступні кодові рядки:

1. По-перше, ми оголошуємо змінну з назвою повного імені типу String, змінної з назвою commaposition типу Integer, і змінною, яка називається i типу Integer.

Dim fullname As String, commaposition As Integer, i As Integer

Проблема, з якою ми маємо справу, полягає в тому, що нам потрібнощоб розповісти Excel VBA, де ми хочемо розділити рядок. У випадку зі Смітом, Майком, кома знаходиться в позиції 6, тоді як у випадку Вільямса, Джанет, кому знаходиться позиція 9.

2. Ми використовуємо цикл для виконання операцій з кожним іменем, введеним у Excel. По-перше, ми ініціалізуємо змінну повне ім'я. Далі ми використовуємо функцію "Інструмент", щоб знайти позицію коми.

For i = 2 To 7
    fullname = Cells(i, 1).Value
    commaposition = InStr(fullname, ",")

3. Нарешті, ми хочемо написати частину після коми до стовпця B та частини перед комою до стовпчика C. Це можна досягти, додавши рядки:

Cells(i, 2).Value = Mid(fullname, commaposition + 2)
Cells(i, 3).Value = Left(fullname, commaposition - 1)

Середина (повне ім'я, commaposition + 2) означає, що ми хочемо, щоб частина повного імені починалася з символу "commaposition + 2" (це саме ім'я).

Ліворуч (повне ім'я, commapposition - 1) означає, що частину повного імені потрібно, починаючи з самого початку, до символу "commaposition-1" (це точно прізвище).

4. Не забудьте закрити цикл.

Next i

5. Додати шість імен, розділених комою та пробілом до діапазону ("A2: A7").

6. Перевірте програму.

Результат:

Окремі результати рядків

Також читайте: