Поиск первой пустой ячейки в строке

@птичка_ворон · Регистрация: 28.11.2012

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

Суть такова:
Есть два листа в Excel ("Данные" и "Таблица") необходимо перенести данные из столбца "N3:N7" листа "данные" сначала в столбец "В3:B7" затем в столбец "С3: C7" затем в столбец "D3: D7" и т.д. листа "таблица" так как значения в ячейках "N3:N7" будут меняться.
Пробовал написать макрос, я честно говоря чайник в этом, излазил кучу форумов и ссылок и так и не нашел как же можно скопировать данные в первую пустую ячейку строки 3 например, в моем случае.
Заранее огромное спасибо!
P.S. файлик пользуется динамическим обменом данных (ДРВ)

Скрипт · 23.01.2013, 16:32

Код, который ищет на первом листе в третьей строке первую пустую ячейку:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Макрос1()
    
    Dim shSheet_1 As Excel.Worksheet
    Dim myLastCell As Excel.Range
    
    '1. Даём листу имя "shSheet_1". Это имя будем использовать в коде
        'для обращения к листу. Так удобно писать код.
    Set shSheet_1 = Worksheets(1)
    
    '2. Ищем в третьей строке последнюю ячейку с данными.
    'What:="?" - знак вопроса - это специальный символ в данном случае.
    'SearchDirection:=xlPrevious - поиск с конца в начало.
    'Если ячейка будет найдена, то даём ей имя "myLastCell".
    Set myLastCell = shSheet_1.Rows(3).Find(What:="?", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False)
    
    '3. Смотрим, была ли найдена хоть какая-то ячейка.
    'Если не найдена ячейка, т.е. вся третья строка пустая
        '(если нет скрытых столбцов), то в переменной "myLastCell"
        'будет слово "Nothing".
    If Not myLastCell Is Nothing Then
    
        '4. Здесь делаем необходимые действия с пустой ячейкой.
        'Чтобы получить доступ к ячейке справа, которая является пустой,
            'используем команду "Offset".
        'Я, например, сделаю эту ячейку активной.
        myLastCell.Offset(0, 1).Activate
 
    End If
    
End Sub

Примечания

В коде использована команда Find. Команда "Find" в Excel связана с окном "Найти и заменить". Поэтому в коде надо указывать все параметры команды "Find", чтобы на работу кода не повлияли настройки из окна "Найти и заменить". Из параметров я не использую только параметр "After".
Ещё команда "Find" чувствительна к объединённым ячейкам и может не дать результата, если на листе будут объединённые ячейки.

@птичка_ворон · 23.01.2013, 16:48 **[ТС]**

Спасибо за ответ.
Но как теперь в эту активную ячейку вставить то, что мне нужно?

Скрипт · 23.01.2013, 16:52

птичка_ворон, используйте команду Paste.

@птичка_ворон · 23.01.2013, 17:01 **[ТС]**

Ругается на строку myLastCell.Offset(0, 1).Activate
метод Activate из класса range завершен неверно

Скрипт · 23.01.2013, 18:32

Пункт 1

В сообщении #4 я ошибся. Я имел ввиду команду Copy.

Пункт 2

Сообщение от птичка_ворон

Ругается на строку myLastCell.Offset(0, 1).Activate
метод Activate из класса range завершен неверно

я просто для примера привёл команду Activate. Вам же не нужно делать активной какую-то ячейку. Вы вместо команды Activate используйте свою команду.

@птичка_ворон · 24.01.2013, 09:26 **[ТС]**

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub 1()
 
Range("N3:N7").Select
    Selection.Copy
        Dim shSheet_1 As Excel.Worksheet
    Dim myLastCell As Excel.Range
    
    Set shSheet_1 = Worksheets(1)
        Set myLastCell = shSheet_1.Rows(3).Find(What:="?", LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
        MatchCase:=False, SearchFormat:=False)
       If Not myLastCell Is Nothing Then
    
             myLastCell.Offset(0, 1).Paste
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     End If
    
End Sub

Опять ругается на ту же строку myLastCell.Offset(0, 1).Paste

@Казанский · 24.01.2013, 09:53

А на Sub 1() не ругается?

Добавлено через 5 минут
Можно сделать одной командой

Visual Basic
1
2
Sheets("Таблица").Cells(3, Columns.Count).End(xlToLeft).Offset(, 1).Resize(5).Value = _
    Sheets("Данные").Range("N3:N7").Value

@птичка_ворон · 24.01.2013, 09:57 **[ТС]**

Огромное спасибо тебе

@BSH · 30.03.2017, 15:36

Добрый день.
Не могу разобраться с макросом. Уже неделю по форумам смотрю.
Нужно просто найти пустую ячейку в первой строке.
Как это сделать?

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@птичка_ворон 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 5
	23.01.2013, 16:48 [ТС]
	Спасибо за ответ. Но как теперь в эту активную ячейку вставить то, что мне нужно? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	23.01.2013, 16:52
	птичка_ворон, используйте команду Paste. 0

@птичка_ворон 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 5
	23.01.2013, 17:01 [ТС]
	Ругается на строку myLastCell.Offset(0, 1).Activate метод Activate из класса range завершен неверно 0

@птичка_ворон 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 5
	24.01.2013, 09:57 [ТС]
	Огромное спасибо тебе 0

@BSH 17 / 1 / 2 Регистрация: 20.04.2016 Сообщений: 120
	30.03.2017, 15:36
	Добрый день. Не могу разобраться с макросом. Уже неделю по форумам смотрю. Нужно просто найти пустую ячейку в первой строке. Как это сделать? 0