Копирование диапазонов, если не пустые

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

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

Копирование диапазонов, если не пустые (Макросы/Sub)

CHEVRYACHOK

Дата: Пятница, 29.07.2022, 02:24 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

Здравствуйте! Помогите с макросом по копированию данных из диапазона (6 строк, 30 столбцов)
копировать по 6 строк, каждого столбца, если там есть данные (включая пустые ячейки) т.е если хоть в одной строке есть данные, то скопировать все 6
и не копировать, если там (в этих 6 строках) нет данных.
Копировать на соседний лист в первый столбец после данных, которые там могут быть.

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

Ответить

_Boroda_

Дата: Пятница, 29.07.2022, 11:11 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
    ar0_ = Sheets("pre").Range("D19:P24").Value
    n_ = UBound(ar0_) * UBound(ar0_, 2)
    ReDim ar1_(1 To n_, 1 To 1)
    For i = UBound(ar0_, 2) To 1 Step -1
        For j = UBound(ar0_) To 1 Step -1
            ar1_(UBound(ar0_) * (i - 1) + j, 1) = ar0_(j, i)
        Next j
    Next i
    With Sheets("TXT")
        r0_ = .Cells(.Rows.Count, 1).End(3).Row
        .Cells(r0_ + 1, 1).Resize(n_) = ar1_
    End With
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

CHEVRYACHOK

Дата: Пятница, 29.07.2022, 12:39 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

то что нужно. Огромное спасибо!

Ответить

CHEVRYACHOK

Дата: Пятница, 29.07.2022, 18:45 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 109

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

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

Excel 2010

_Boroda_, все работает, пока между столбцами с данными не появляется пустой столбец, тогда он тоже копируется, как 6 пустых строк, а не должен.
Это можно как-то исправить? Если у вас будет время.