Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Избавиться от пустых ячеек в таблице после её преобразования - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Избавиться от пустых ячеек в таблице после её преобразования (Формулы/Formulas)
Избавиться от пустых ячеек в таблице после её преобразования
sgkorolew Дата: Вторник, 16.02.2016, 11:01 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Прошу помочь преобразовать исходные данные к желаемому результату.
Имеется исходная таблица с тремя графами:
1. Номер договора,
2. Дата заключения,
3. Причина отказа.
Данные в исходной таблице представлены следующим образом: сначала идут строки с номерами договоров и датами их заключения (в этих строках не указаны причины отказов), а потом строки с причинами отказов по вышеуказанным договорам (в этих строках не указаны номера договоров и даты их заключения).
В таблице с желаемым результатом в каждой строке заполнены все три графы.
Пример во вложении.
[moder]Дайте теме более конкретное название.[/moder]

Название темы изменил.
К сообщению приложен файл: 6945738.xlsx(9Kb)


Сообщение отредактировал sgkorolew - Вторник, 16.02.2016, 11:24
 
Ответить
СообщениеДобрый день.
Прошу помочь преобразовать исходные данные к желаемому результату.
Имеется исходная таблица с тремя графами:
1. Номер договора,
2. Дата заключения,
3. Причина отказа.
Данные в исходной таблице представлены следующим образом: сначала идут строки с номерами договоров и датами их заключения (в этих строках не указаны причины отказов), а потом строки с причинами отказов по вышеуказанным договорам (в этих строках не указаны номера договоров и даты их заключения).
В таблице с желаемым результатом в каждой строке заполнены все три графы.
Пример во вложении.
[moder]Дайте теме более конкретное название.[/moder]

Название темы изменил.

Автор - sgkorolew
Дата добавления - 16.02.2016 в 11:01
KuklP Дата: Вторник, 16.02.2016, 12:13 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

[vba]
Код
Public Sub www()
    Dim r As Range, r1 As Range, a As Range, i&, j&, m&
    Sheets("Лист2").Cells.ClearContents
    With Sheets("Лист1")
        Set r = Intersect(.[a2].CurrentRegion.Offset(2), .Range("a:B"))
        Set r1 = Intersect(.[a2].CurrentRegion.Offset(2), .Range("c:c"))
        For i = 1 To r.SpecialCells(2).Areas.Count
            For m = 1 To r.SpecialCells(2).Areas(i).Rows.Count
                For j = 1 To r1.SpecialCells(2).Areas(i).Cells.Count
                    r.SpecialCells(2).Areas(i).Cells(m, 1).Resize(, 2).Copy Sheets("Лист2").[a65536].End(xlUp)(2)
                Next
                r1.SpecialCells(2).Areas(i).Copy Sheets("Лист2").[c65536].End(xlUp)(2)
            Next
        Next
    End With
End Sub
[/vba]
К сообщению приложен файл: _6945738.xls(44Kb)


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Public Sub www()
    Dim r As Range, r1 As Range, a As Range, i&, j&, m&
    Sheets("Лист2").Cells.ClearContents
    With Sheets("Лист1")
        Set r = Intersect(.[a2].CurrentRegion.Offset(2), .Range("a:B"))
        Set r1 = Intersect(.[a2].CurrentRegion.Offset(2), .Range("c:c"))
        For i = 1 To r.SpecialCells(2).Areas.Count
            For m = 1 To r.SpecialCells(2).Areas(i).Rows.Count
                For j = 1 To r1.SpecialCells(2).Areas(i).Cells.Count
                    r.SpecialCells(2).Areas(i).Cells(m, 1).Resize(, 2).Copy Sheets("Лист2").[a65536].End(xlUp)(2)
                Next
                r1.SpecialCells(2).Areas(i).Copy Sheets("Лист2").[c65536].End(xlUp)(2)
            Next
        Next
    End With
End Sub
[/vba]

Автор - KuklP
Дата добавления - 16.02.2016 в 12:13
sgkorolew Дата: Вторник, 16.02.2016, 16:39 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 72
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, спасибо!
 
Ответить
СообщениеKuklP, спасибо!

Автор - sgkorolew
Дата добавления - 16.02.2016 в 16:39
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Избавиться от пустых ячеек в таблице после её преобразования (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!