Удаление из ячейки с несколькими значениями всех кроме первого

@Baluts · Регистрация: 14.02.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте, добрые люди!
Больше неделю бьюсь над такой задачей, буду очень признателен за помощь!
Необходимо решение, которое позволит удалить в ячейке с несколькими значениями все значения, кроме самого первого.
Пример прилагаю.

Заранее спасибо!!

toiai · 14.02.2016, 15:37

Примерное решение:

Visual Basic
1
2
3
4
5
6
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

@pashulka · 14.02.2016, 15:38

Если в результате действительно необходимо получить текст (как в файле), а не число, то можно и так :

Visual Basic
1
2
3
4
5
6
Private Sub Test()
    Dim iCell As Range
    For Each iCell In Range("A2:A7")
        iCell(1, 2) = Split(iCell, vbLf)(0)
    Next
End Sub

@Казанский · 14.02.2016, 15:40

Baluts, Ctrl+H, найти - нажмите Ctrl+J и * (после ввода Ctrl+J курсор уходит вниз, может быть виден только его кончик), заменить на пусто, заменить все.

@Казанский · 14.02.2016, 15:48

Вид после ввода Ctrl+J *

@Baluts · 14.02.2016, 16:50 **[ТС]**

Большое спасибо, замечательно работает!)

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.02.2016, 15:40
	Baluts, Ctrl+H, найти - нажмите Ctrl+J и * (после ввода Ctrl+J курсор уходит вниз, может быть виден только его кончик), заменить на пусто, заменить все. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.02.2016, 15:48
	Вид после ввода Ctrl+J * Миниатюры 0

@Baluts 0 / 0 / 0 Регистрация: 14.02.2016 Сообщений: 3
	14.02.2016, 16:50 [ТС]
	Большое спасибо, замечательно работает!) 0

Удаление из ячейки с несколькими значениями всех кроме первого

Решение