Удаление из ячейки с несколькими значениями всех кроме первого - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д