Удаление из ячейки с несколькими значениями всех кроме первого - VBA
Формулировка задачи:
Здравствуйте, добрые люди!
Больше неделю бьюсь над такой задачей, буду очень признателен за помощь!
Необходимо решение, которое позволит удалить в ячейке с несколькими значениями все значения, кроме самого первого.
Пример прилагаю.
Заранее спасибо!!
Решение задачи: «Удаление из ячейки с несколькими значениями всех кроме первого»
textual
Листинг программы
Sub pr()
Dim x As Range
For Each x In Range("a2:a" & ActiveSheet.UsedRange.Rows.Count)
x.Offset(, 1) = Left(x.Text, 10)
Next
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д