Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
1

Макрос копирования ячкйки до пустой ячейки в другой столбец

10.04.2019, 17:49. Просмотров 1890. Ответов 13

Добрый день!
Помогите, пожалуйста,написать макрос
На листе Ехсеl в столбце D находить пустую ячейку,если ячейка пустая,то брать значение из столбца C (номер строки пустая ячкйка из столбца D).и этот текс копировать в столбец А до следующей пустой ячейки столбца D. И так до конца листа.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.04.2019, 17:49
Ответы с готовыми решениями:

Макрос для копирования ячейки и перенос ее по условию
Здравствуйте! помогите создать макрос, чтобы при нажатии кнопки, "сохранить", данные из столбца...

Исправить макрос копирования значения ячейки с листа на лист
Господа, честно говоря совсем в предмете не разбираюсь, не могли бы вы посмотреть код макроса под...

Макрос копирования заданного диапазона значений на другой лист
Добрый день, форумчане. Вводная информация по задачке, которая поступила недавно в мой адрес:...

Макрос. Разместить ячейки столбца I в столбец B по номеру записанному в столбце E
Доброе утро! Имеется excel файл напечатанного ниже формата: Столбец "I" - ссылка на...

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

13
Alex77755
10946 / 3437 / 591
Регистрация: 13.02.2009
Сообщений: 10,211
15.04.2019, 04:48 2
находить пустую ячейку,если ячейка пустая,то
масло масляное
Уже ж нашли пустую! Потом ещё раз проверить пустая ли она?!
Visual Basic
1
2
3
4
LastRow = Cells(Rows.Count,1).End(xlUp).Row
lLastRow = Cells.SpecialCells(xlLastCell).Row
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
LastRow = Worksheets(1).Cells(1, 1).CurrentRegion.Rows.Count
0
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
15.04.2019, 12:30  [ТС] 3
[nick]AAlex77755, Да нужно ещё раз проверять,если не пустая то копировать данные с ячкйки столбца С(это ячейка в столбце D пустая в столбец А). И так до конца книги копирование до пустой ячейки со столбца D,если не пустая то брать данные с ячкйки столбца С и копировать в столбец А). Например в столбце D ячейка D5 пустая,то берём данные из ячейки С5 и копируем в столбец А.
0
Остап Бонд
1088 / 580 / 274
Регистрация: 17.08.2017
Сообщений: 1,518
15.04.2019, 12:44 4
Galina84, Вы бы файлик с проблемой приложили - ответ имели бы пять дней назад.
Сочинять Вашу проблему на пустом месте Карлсон не имеет желания.
0
15.04.2019, 12:44
falcons83
12 / 11 / 5
Регистрация: 30.11.2017
Сообщений: 74
Завершенные тесты: 1
15.04.2019, 12:58 5
Тут без структуры файла не разберешься. От пустой до пустой и опять от пустой до пустой и т.д. Получается все скопировать из столбца С в А кроме строк с пустыми ячейками в D?
0
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
15.04.2019, 12:59  [ТС] 6
Прикладываю файл. Нужно проверять столбец D на наличие пустых ячеек,если ячейка пустая,как в примере D5,то взять информацию из ячейки С5 и копировать в столбец А до тех пор пока опять ячейка D не станет пустой. И опять брать данные из ячейки С и копировать
0
Вложения
Тип файла: xls 1985494736.xls (33.5 Кб, 7 просмотров)
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
15.04.2019, 13:01  [ТС] 7
Нет только из определенной ячейки столбца С, при этом ячейка D пустая
0
Остап Бонд
1088 / 580 / 274
Регистрация: 17.08.2017
Сообщений: 1,518
15.04.2019, 13:06 8
Карлсон третью ночь в пути. Если никто не ответит - звякните в вайбер.
0
falcons83
12 / 11 / 5
Регистрация: 30.11.2017
Сообщений: 74
Завершенные тесты: 1
15.04.2019, 13:23 9
Visual Basic
1
2
3
4
5
6
7
Dim x As Integer
     lLastRow = Cells.SpecialCells(xlLastCell).Row
      For x = 1 To lLastRow
        If Not Cells(x, 4) = "" Then
           Cells(x, 1) = Cells(x, 3)
           End If
      Next
0
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
15.04.2019, 13:27  [ТС] 10
Спасибо большое,но нужно только содержимое ячейки C5 копировать в столбец А,а другие данные не нужно
0
falcons83
12 / 11 / 5
Регистрация: 30.11.2017
Сообщений: 74
Завершенные тесты: 1
15.04.2019, 13:32 11
Galina84, XD
Visual Basic
1
2
3
4
5
6
7
Dim x As Integer
     lLastRow = Cells.SpecialCells(xlLastCell).Row
      For x = 1 To lLastRow
        If Cells(x, 4) = "" Then
           Cells(x+1, 1) = Cells(x+1, 3)
           End If
      Next
0
Galina84
0 / 0 / 0
Регистрация: 10.04.2019
Сообщений: 6
15.04.2019, 13:38  [ТС] 12
Нет,он должен копировать Группа Роо (данные из ячейки С5) в столбец А
0
falcons83
12 / 11 / 5
Регистрация: 30.11.2017
Сообщений: 74
Завершенные тесты: 1
15.04.2019, 13:41 13
Лучший ответ Сообщение было отмечено Galina84 как решение

Решение

Galina84,
Visual Basic
1
2
3
4
5
6
7
8
9
Dim x As Integer
Dim y As Integer
     lLastRow = Cells.SpecialCells(xlLastCell).Row
      For x = 1 To lLastRow
        If Cells(x, 4) = "" Then
           y = x
           End If
        Cells(x, 1) = Cells(y, 3)
      Next
1
Остап Бонд
1088 / 580 / 274
Регистрация: 17.08.2017
Сообщений: 1,518
15.04.2019, 13:52 14
Лучший ответ Сообщение было отмечено Galina84 как решение

Решение

falcons83, вот на будущее - как оформляются программы
Visual Basic
1
2
3
4
5
6
7
8
9
Dim x As Integer
Dim y As Integer
lLastRow = Cells.SpecialCells(xlLastCell).Row
For x = 1 To lLastRow
  If Cells(x, 4) = "" Then
    y = x
  End If
  Cells(x, 1) = Cells(y, 3)
Next
0
15.04.2019, 13:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.04.2019, 13:52

Написать макрос VBA для копирования и упорядочивания данных в другой файл Excel
Как реализовать задачу? need help:-|. Есть список людей с ФИО, в нем напротив каждого человека есть...

Макрос для копирования двух диапазонов с формулами в активный лист любой другой книги
Пытался сделать с помощью записи макросов, не работает. Копирует только последний диапазон....

Макрос соотношения информации в одной ячейки к другой
Есть таблица. имя документа меняется. *.xls ДАТА РЕЙС РЕГ ВС АРВ НАЗВАНИЕ ДАТА И...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
14
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.