Вставка данных в свободную строку

@zx16 · Регистрация: 07.07.2011

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

приветствую всех, нужна помощь, хочу разобраться в вба, если есть свободное время у какого, подскажите, есть начальная таблица в excel, три столбика, к примеру A B C, ну и две строки, так вот эту таблицу макрос должен вставить на лист два, в свободные ячейки заданные, к примеру те же A B C. после поступления следующих данных, новая таблица должна перенестись так же на лист два, в те же ячейки по адресу столбцов, но по адресу строк она должна встать через одну свободную строку.. блин, я совсем зеленый и трудно объяснить доступным языком, но может кто поймет..

Добавлено через 15 минут
правильнее так, нужно определить последнюю заполненную данными ячейку, потом пропустить вниз одну свободную, и уже в следующую вставить таблицу..

@Gibboustooth · 07.07.2011, 17:50

1. Как определить, что вот этот кусок начальной таблицы - старый, а вот этот - новый?
2. Когда это надо делать - в момент добавления данных или по нажатию на кнопку?

@zx16 · 07.07.2011, 19:36 **[ТС]**

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

@Alex77755 · 08.07.2011, 00:37

нужно определить последнюю заполненную данными ячейку, потом пропустить вниз одну свободную, и уже в следующую вставить таблицу..

Зачем в таблице пустые строки?

программно идем по заполненному столбу, как бы проверяем, есть ли данные или нет, и когда натыкаемся на свободную, то определяем ее адрес,

Так у тебя ж пустые ячейки будут через одну. Если верить вышесказанному

так можно определить последнюю заполненную ячейку в столбце 1

Visual Basic
1
LR = Cells(Rows.Count, 1).End(xlUp).Row

@zx16 · 08.07.2011, 10:04 **[ТС]**

)))) всех запутал я ....еще раз...:
| A | B | C |
1 1 23 6
2 2 25 2
3 3 45 5
4 4 41 8
5 5 45 2 <- определить что последняя.
6 <-определить что пустая
7 23 6 3 <- и вот сюда вставить
8 2 25 2
9 3 45 5
10 4 41 8 <- и потом снова так же...
11
12 32 34 6
дайте пожалуйста пример проги именно к этим ячейкам... пожалуйста..

@Alex77755 · 08.07.2011, 11:20

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
Sub Заполнить() ' для проверки заполняем случайно
Dim M()
Dim R
Dim C
Dim N
Randomize
N = Int(5 * Rnd + 1)
ReDim M(1 To N, 1 To 3)
For R = 1 To N
    For C = 1 To 3
        M(R, C) = Int(90 * Rnd + 10)
Next C, R
Лист1.Select
Лист1.Range(Cells(1, 1), Cells(N, 3)).Value = M
End Sub
 
Sub перенос()
Dim M()
Dim LR
Dim N
N = Лист1.Cells(Rows.Count, 1).End(xlUp).Row
M = Лист1.Range(Cells(1, 1), Cells(N, 3)).Value
LR = Лист2.Cells(Rows.Count, 1).End(xlUp).Row
Лист1.Cells.ClearContents
Лист2.Select
Лист2.Range(Cells(LR + 2, 1), Cells(LR + N + 1, 3)).Value = M
End Sub

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@zx16 0 / 0 / 0 Регистрация: 07.07.2011 Сообщений: 3

	Вставка данных в свободную строку 07.07.2011, 15:44. Показов 5641. Ответов 5 Метки нет (Все метки) приветствую всех, нужна помощь, хочу разобраться в вба, если есть свободное время у какого, подскажите, есть начальная таблица в excel, три столбика, к примеру A B C, ну и две строки, так вот эту таблицу макрос должен вставить на лист два, в свободные ячейки заданные, к примеру те же A B C. после поступления следующих данных, новая таблица должна перенестись так же на лист два, в те же ячейки по адресу столбцов, но по адресу строк она должна встать через одну свободную строку.. блин, я совсем зеленый и трудно объяснить доступным языком, но может кто поймет.. Добавлено через 15 минут правильнее так, нужно определить последнюю заполненную данными ячейку, потом пропустить вниз одну свободную, и уже в следующую вставить таблицу.. 0

@Gibboustooth 735 / 203 / 11 Регистрация: 23.06.2011 Сообщений: 440
	07.07.2011, 17:50
	1. Как определить, что вот этот кусок начальной таблицы - старый, а вот этот - новый? 2. Когда это надо делать - в момент добавления данных или по нажатию на кнопку? 0

@zx16 0 / 0 / 0 Регистрация: 07.07.2011 Сообщений: 3
	07.07.2011, 19:36 [ТС]
	блин, вот в общем так, сведем задачу к тому, что программно идем по заполненному столбу, как бы проверяем, есть ли данные или нет, и когда натыкаемся на свободную, то определяем ее адрес, свободной, и в следующую уже вставляем наши данные. к чему это все? к тому что есть программа, в ней таблица, первые четыре столба Это координаты точек, следующие столбы на против содержат формулы, пересчитывают эти координаты , в другую систему координат... потом по конечным данным строится чертеж в автокаде.. исходные координаты мы получаем каждый день, производя сьемку тоннеля.. и каждый день у нас появляется примерно тридцать новых точек... вот как то так) 0

@zx16 0 / 0 / 0 Регистрация: 07.07.2011 Сообщений: 3
	08.07.2011, 10:04 [ТС]
	)))) всех запутал я ....еще раз...: \| A \| B \| C \| 1 1 23 6 2 2 25 2 3 3 45 5 4 4 41 8 5 5 45 2 <- определить что последняя. 6 <-определить что пустая 7 23 6 3 <- и вот сюда вставить 8 2 25 2 9 3 45 5 10 4 41 8 <- и потом снова так же... 11 12 32 34 6 дайте пожалуйста пример проги именно к этим ячейкам... пожалуйста.. 0