ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - Скопировать данные в следующую пустую ячейку из предыдущей
15 сообщений из 15, страница 1 из 1
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055559
Архимедофф
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Архимедофф
Гость
Друзья, имеется выгрузка как представлена на скрине. Она довольно большая. Подскажите, как запилить макрос, который бы определил размер таблицы и заполнил данные, которых мне не хватает (выделил желтым). В данном случае, в третью строку колонок A-С нужно взять и перенести из первой ячейки, содержащие "100 Редисон Сочи", в пятую и шестую "101 Торговый Центр Сочи" и т.д.
Ручками переносить устанешь, да еще и накосячишь. Спасибо.
...
Рейтинг: 0 / 0
20.03.2021, 22:10
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055560
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Формула, которая проверяет, если ячейка пустая - взять из предыдущей, зачем тут макрос?
...
Рейтинг: 0 / 0
20.03.2021, 22:14
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055590
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Shocker.Pro
Формула, которая проверяет, если ячейка пустая - взять из предыдущей, зачем тут макрос?

Если правильно понял ТСа, таблица получена в результате выгрузки откуда-то.
Значит заранее формулу вставить нельзя.
Все равно надо как-то проходить по всем пустым ячейкам макросом.
...
Рейтинг: 0 / 0
21.03.2021, 10:29
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055591
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ИВП
Значит заранее формулу вставить нельзя.
Можно вставить формулу в соседних столбцах или на соседнем листе, которая повторит всю таблицу с заполнением пустых строк. В этом проблемы нет.

Мыслите шире.
...
Рейтинг: 0 / 0
21.03.2021, 10:31
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055598
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
Во все ячейки внести формулу "=R[-1]C".
При внесении значений в ячейку все последующие (до следующего значения) будут повторяться.
Можно использовать режим специальной вставки с пропуском пустых значений.
...
Рейтинг: 0 / 0
21.03.2021, 12:47
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055603
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Alibek B.
При внесении значений в ячейку все последующие (до следующего значения) будут повторяться.
это при ручном заполнении. А у ТС выгрузка
...
Рейтинг: 0 / 0
21.03.2021, 13:02
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055604
Alibek B
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alibek B
Участник
А что мешает выгрузку скопировать, а затем в режиме специальной вставки объединить с формулами?
...
Рейтинг: 0 / 0
21.03.2021, 13:05
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055607
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Alibek B.
А что мешает выгрузку скопировать, а затем в режиме специальной вставки объединить с формулами?
Будем знать про такой способ ))
...
Рейтинг: 0 / 0
21.03.2021, 13:43
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055621
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
Архимедофф
Друзья, имеется выгрузка как представлена на скрине. Она довольно большая. Подскажите, как запилить макрос, который бы определил размер таблицы и заполнил данные, которых мне не хватает (выделил желтым). В данном случае, в третью строку колонок A-С нужно взять и перенести из первой ячейки, содержащие "100 Редисон Сочи", в пятую и шестую "101 Торговый Центр Сочи" и т.д.
Ручками переносить устанешь, да еще и накосячишь. Спасибо.


Вот тебе соорудил макрос на нажатие кнопки, он очень простой:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub CommandButton1_Click()
totalRows = ActiveSheet.UsedRange.Rows.Count
For i = 2 To totalRows 'начинаем со второй строки, исключаем заголовок
If i = totalRows Then
Exit Sub
Else
If Cells(i + 1, 1) = "" Then
Cells(i + 1, 1) = Cells(i, 1) 'номер
Cells(i + 1, 2) = Cells(i, 2) 'имя
Cells(i + 1, 3) = Cells(i, 3) 'адрес
End If
End If
Next
End Sub



Также приложил рабочее решение в экселе
...
Рейтинг: 0 / 0
21.03.2021, 15:48
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055756
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Архимедофф,

Выделяете всю таблицу, начиная с ячейки А3(первой пустой). Жмете F5 -Выделить -Пустые ячейки -Ок. Не снимая выделения с ячеек переходите в строку формул и записываете там: =A2 и завершаете ввод сочетанием клавиш Ctrl+Enter. все, пустые ячейки заполнены значениями вышестоящих ячеек.
...
Рейтинг: 0 / 0
22.03.2021, 10:53
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055761
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
The_Prist
Жмете F5 -Выделить -Пустые ячейки -Ок
Я сталкивался раньше с тем, что было ограниченное количество областей, которые можно выделить одновременно. Сейчас нет такого? ТС говори, что у него большой объем данных
...
Рейтинг: 0 / 0
22.03.2021, 11:02
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40055830
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Сергей Лалов
Вот тебе соорудил макрос на нажатие кнопки, он очень простой:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub CommandButton1_Click()
totalRows = ActiveSheet.UsedRange.Rows.Count
For i = 2 To totalRows 'начинаем со второй строки, исключаем заголовок
' так лучше If i = totalRows Then
' так лучше Exit Sub
' так лучше Else
  If i <= totalRows Then 'так лучше
     If Cells(i + 1, 1) = "" Then
       Cells(i + 1, 1) = Cells(i, 1) 'номер
       Cells(i + 1, 2) = Cells(i, 2) 'имя
       Cells(i + 1, 3) = Cells(i, 3) 'адрес
     End If
  End If
Next
End Sub



Также приложил рабочее решение в экселе
...
Рейтинг: 0 / 0
22.03.2021, 12:55
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40056286
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
ИВП,

Не, ваша корректировка не покатит, она будет добавлять результат в строку после последней.
Я тоже сначала так сделал, потом пришлось добавить дополнительный уровень проверки чуть выше.
Поизящней не получилось налепить, но работает самое главное.
...
Рейтинг: 0 / 0
23.03.2021, 15:38
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40056465
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Сергей Лалов
ИВП,

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


Что работает - даже не сомневаюсь)))
А так:
Код: vbnet
1.
If i < totalRows Then
...
Рейтинг: 0 / 0
23.03.2021, 22:11
| Ответить | Цитировать | Написать  
Excel - Скопировать данные в следующую пустую ячейку из предыдущей
    #40056648
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
ИВП

А так:
Код: vbnet
1.
If i < totalRows Then



По идее должно. Можно выпускать в продакшн))
...
Рейтинг: 0 / 0
24.03.2021, 14:12
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel - Скопировать данные в следующую пустую ячейку из предыдущей
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=40055621&tid=2171767]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 287ms
total:  424ms
созд. / загр.: 424ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]