Сцепить скопированный диапазон и вставить на другой лист

@rar · Регистрация: 04.02.2016

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

Всем привет
Помогите с задачей на VBA...

На одном листе есть табличка нужно скопировать строки (две вправо от значения "да") если указано условие скопировать, а затем в буфере как бы "сцепить" - не знаю как точно объяснить.. Затем на другом листе провести проверку ячеек определенного столбца и после всех найденных значений "сюда скопировать" вставить этот сцепленный диапазон ниже... описание в картинке

@rar · 20.02.2018, 13:14 **[ТС]**

Hugo121

приятного !

Добавлено через 11 минут
Урааа

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Dim rCell As Range, rSel As Range
    Set Yes_Range = ActiveSheet.Range("D:D").SpecialCells(xlCellTypeConstants).SpecialCells(xlCellTypeConstants)
    
    For Each rCell In Yes_Range.Cells
        If rCell.Value = "да" Then
        
        
        
            If rSel Is Nothing Then
                Set rSel = rCell
            Else
                Set rSel = Union(rSel, rCell)
            End If
        End If
    Next rCell
    If Not rSel Is Nothing Then rSel.Select
    
    
    MsgBox (rSel.Address)

@rar · 20.02.2018, 13:17 **[ТС]**

Hugo121

@Hugo121 · 20.02.2018, 13:57

Спасибо

Думаю два раза .SpecialCells(xlCellTypeConstants) лишнее, хватит и одного.
И что теперь с этими адресами будете делать? Да и выделять незачем...
Думаю нужно затем копировать rSel.offset(,-2).resize(,2)
Ну или где-то так, проверьте select'ом

@rar · 20.02.2018, 14:04 **[ТС]**

ну выделял я да, для проверки

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

Visual Basic
1
Set r = [B3:C5]

и все собрать в кучку

таким образом вся задача уже решена

Добавлено через 2 минуты

Visual Basic
1
rSel.offset(,-2).resize(,2)

я так понимаю это альтернатива моему

Visual Basic
1
c.Cells(1, -1).Range(Cells(1, 1), Cells(1, 2))

Добавлено через 1 минуту
т.е. диапазон относительно текущей ячейки влево первая ячейка+вторая ячейка

@Hugo121 · 20.02.2018, 14:07

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

@rar · 20.02.2018, 14:11 **[ТС]**

Понял, спробуем щаз

Добавлено через 3 минуты
Красота да и только

Hugo121

спасибо, все работает пучком

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@rar 2 / 2 / 0 Регистрация: 04.02.2016 Сообщений: 458

	Сцепить скопированный диапазон и вставить на другой лист 20.02.2018, 09:21. Показов 2959. Ответов 25 Метки нет (Все метки) Всем привет Помогите с задачей на VBA... На одном листе есть табличка нужно скопировать строки (две вправо от значения "да") если указано условие скопировать, а затем в буфере как бы "сцепить" - не знаю как точно объяснить.. Затем на другом листе провести проверку ячеек определенного столбца и после всех найденных значений "сюда скопировать" вставить этот сцепленный диапазон ниже... описание в картинке Миниатюры 0

@rar 2 / 2 / 0 Регистрация: 04.02.2016 Сообщений: 458
	20.02.2018, 13:17 [ТС]
	Hugo121 Миниатюры 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	20.02.2018, 13:57
	Спасибо Думаю два раза .SpecialCells(xlCellTypeConstants) лишнее, хватит и одного. И что теперь с этими адресами будете делать? Да и выделять незачем... Думаю нужно затем копировать rSel.offset(,-2).resize(,2) Ну или где-то так, проверьте select'ом 1

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	20.02.2018, 14:07
	Ну да где-то так, я на файле естественно не проверял, с головы мог чуть ошибиться... но принцип такой - отошли влево до начала диапазона, взяли нужное количество ячеек/столбцов вправо. 0

@rar 2 / 2 / 0 Регистрация: 04.02.2016 Сообщений: 458
	20.02.2018, 14:11 [ТС]
	Понял, спробуем щаз Добавлено через 3 минуты Красота да и только Hugo121 спасибо, все работает пучком 0