Если ячейка содержит текст то

@loveme · Регистрация: 12.06.2014

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

Подскажите, пожалуйста два вопроса.
1) Есть столбец допустим G, в котором вбиты определенные числа/буквы. Как мне задать условие, что бы при нахождении определенной части числа/букв в G, в ячейку находящейся в этой же строке в столбец C вставлялся определенный текст.
Я думаю это выглядит так:
If Cells(j, "G").Value Like "110000" Then в ячейку столбца С вставлялось значение "110"

2) Формирую итоговую таблицу 1. Значения я беру из таблицы 2. В таблице 2 значения в строках идут друг за другом.
А в таблицу 1 эти значения копируются не друг за другом, а допустим через 2 строки, но в том же порядке.
Как будет выглядеть код, который будет скопированные значения растягивать вниз на 2 строки(именно в этом столбце).
Т.е. было допустим
1

4

10
А должно получиться
1
1
1
4
4
4
10
10
10

Fairuza · 29.06.2014, 20:58

Это можно сделать без формул и макроса.
Найти/заменить - Выделение группы ячеек - Пустые - Ок, не снимая выделение в первой пустой ячейке написать ="заполненyая_ячейка_выше"- Ctrl+Enter

@loveme · 29.06.2014, 21:24 **[ТС]**

Это лишние телодвижения.
Таблиц однотипных у меня много. Поэтому удобнее что бы это было в составе макроса, который я запускаю для формирования таблицы.

@Vlad999 · 29.06.2014, 21:42

выделяете диапазон и жмете запуск макроса, такой вариант пойдет.

Visual Basic
1
2
3
4
5
Sub ZAPOLNENIE()
For Each s In Selection
If s = "" Then s.Value = s.Offset(-1, 0).Value
Next
End Sub

если не то опишите как вы это видите.

@loveme · 29.06.2014, 22:28 **[ТС]**

Vlad999, выделил ячейки, запустил - значения куда то исчезли.

Я бы хотел ничего руками не выделять, а что бы он Сам нашел эти ячейки и слева от них через несколько ячеек вставил другое значение, а это на месте осталось бы.

@Vlad999 · 30.06.2014, 01:13

приложите пример так есть так хотелось бы получить.

@loveme · 30.06.2014, 09:22 **[ТС]**

На листе 3 есть таблица со значениями.
На листе 1 показал как в итоге она должна получиться.

@Vlad999 · 30.06.2014, 10:18

если столбец всегда в G5 и ниже, а заполняемый столбец левее на 4 столбца относительно G то вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Заполнение()
Dim i&
Dim S As Variant
On error resume next
i = Range(Range("G5"), Range("G5").End(xlDown)).Count - 2
For Each S In Range("G5", "G" & Cells(Rows.Count, "G").End(xlUp).Row + i)
If S = "" Then
S.Value = S.Offset(-1, 0).Value
End If
S.Offset(0, -4) = Mid(Split(S.Value, "/")(0), 1, Len(Split(S.Value, "/")(0)) - 3)
Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 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. Задача: реализовать контроль корректности заполнения дат назначения. . .

@loveme 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 5

	Если ячейка содержит текст то 29.06.2014, 20:06. Показов 14687. Ответов 7 Метки нет (Все метки) Подскажите, пожалуйста два вопроса. 1) Есть столбец допустим G, в котором вбиты определенные числа/буквы. Как мне задать условие, что бы при нахождении определенной части числа/букв в G, в ячейку находящейся в этой же строке в столбец C вставлялся определенный текст. Я думаю это выглядит так: If Cells(j, "G").Value Like "110000" Then в ячейку столбца С вставлялось значение "110" 2) Формирую итоговую таблицу 1. Значения я беру из таблицы 2. В таблице 2 значения в строках идут друг за другом. А в таблицу 1 эти значения копируются не друг за другом, а допустим через 2 строки, но в том же порядке. Как будет выглядеть код, который будет скопированные значения растягивать вниз на 2 строки(именно в этом столбце). Т.е. было допустим 1 4 10 А должно получиться 1 1 1 4 4 4 10 10 10 0

Fairuza 6027 / 3221 / 719 Регистрация: 23.11.2010 Сообщений: 10,760
	29.06.2014, 20:58
	Это можно сделать без формул и макроса. Найти/заменить - Выделение группы ячеек - Пустые - Ок, не снимая выделение в первой пустой ячейке написать ="заполненyая_ячейка_выше"- Ctrl+Enter 0

@loveme 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 5
	29.06.2014, 21:24 [ТС]
	Это лишние телодвижения. Таблиц однотипных у меня много. Поэтому удобнее что бы это было в составе макроса, который я запускаю для формирования таблицы. 0

@loveme 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 5
	29.06.2014, 22:28 [ТС]
	Vlad999, выделил ячейки, запустил - значения куда то исчезли. Я бы хотел ничего руками не выделять, а что бы он Сам нашел эти ячейки и слева от них через несколько ячеек вставил другое значение, а это на месте осталось бы. 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	30.06.2014, 01:13
	приложите пример так есть так хотелось бы получить. 0