VBA, найти и скопировать строку ниже исходной

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

VBA, найти и скопировать строку ниже исходной (Формулы/Formulas)

capp2104

Дата: Пятница, 17.01.2025, 22:41 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

2016

Всем привет, помогите пожалуйста ускорить мою работу. Необходимо на Листе находить Ячейку в которой написано "Дата-время скана линии" и скопировать следующую за ней строку в новую таблицу на этом или новом листе. Так же необходимо находить ячейку "Средний" и копировать строку выше её

К сообщению приложен файл: sbor_dannykh.xlsx (23.4 Kb)

Сообщение отредактировал capp2104 - Пятница, 17.01.2025, 22:42

Ответить

Hugo

Дата: Суббота, 18.01.2025, 00:24 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3711

Репутация: 794 ±

Замечаний: 0% ±

365

Привет.
Тему перенести бы в правильный раздел.
Ну а так не особо сложно:
[vba]

Код

Option Explicit

Dim r, copyra As Range

Sub tt()
For Each r In ActiveSheet.UsedRange.Rows
If r.Cells(1) = "Дата-время скана линии" Then work (1)
If r.Cells(1) = "Средний (%)" Then work (-1)
Next
copyra.Copy Workbooks.Add(1).Sheets(1).Cells(1)
End Sub

Sub work(n)
Dim d As Range
Set d = r.Offset(n)
If copyra Is Nothing Then Set copyra = d Else Set copyra = Union(copyra, d)
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

capp2104

Дата: Суббота, 18.01.2025, 01:03 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

2016

Hugo, большое спасибо за помощь, теперь попробую научиться чтобы упорядочить полученные данные

Ответить

VBA, найти и скопировать строку ниже исходной (Формулы/Formulas)

Страница 1 из 1
1