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

Вход

Регистрация

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

 

= Мир MS Excel/Перенести строки на другой лист - Страница 2 - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 2 из 2«12
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенести строки на другой лист (Формулы/Formulas)
Перенести строки на другой лист
anofilis Дата: Вторник, 06.09.2016, 12:25 | Сообщение № 21
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Hugo, Вы уж Простите меня за навязчивость,поможете?
 
Ответить
СообщениеHugo, Вы уж Простите меня за навязчивость,поможете?

Автор - anofilis
Дата добавления - 06.09.2016 в 12:25
Hugo Дата: Вторник, 06.09.2016, 12:46 | Сообщение № 22
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2653
Репутация: 597 ±
Замечаний: 0% ±

Давайте так - Вы показываете в файле исходные данные и какой должен быть результат, а мы (не обязательно я) пишем код это выполняющий.
Потому что я сомневаюсь что нужно именно "вытаскивать все неповторяющиеся строки".
А писать коды зазря - интереса нет. Да и времени жалко.


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069


Сообщение отредактировал Hugo - Вторник, 06.09.2016, 12:47
 
Ответить
СообщениеДавайте так - Вы показываете в файле исходные данные и какой должен быть результат, а мы (не обязательно я) пишем код это выполняющий.
Потому что я сомневаюсь что нужно именно "вытаскивать все неповторяющиеся строки".
А писать коды зазря - интереса нет. Да и времени жалко.

Автор - Hugo
Дата добавления - 06.09.2016 в 12:46
anofilis Дата: Вторник, 06.09.2016, 13:16 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Давайте тогда так ,есть исходный файл на лист "дебиторка" нужно перенести все неповторяющиеся строки с листа "сводная объекты "
 
Ответить
СообщениеДавайте тогда так ,есть исходный файл на лист "дебиторка" нужно перенести все неповторяющиеся строки с листа "сводная объекты "

Автор - anofilis
Дата добавления - 06.09.2016 в 13:16
sv2014 Дата: Вторник, 06.09.2016, 19:59 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
anofilis, добрый вечер,к сожалению Вы не указали,как Вам надо на листе Дебиторка(сообщение от Hugo:#22),на словах не совсем понятно,добавил Вам кнопку tt для макроса от Hugo и протестируйте кнопку test1,так ли Вам надо для сообщения #23.Возможно у Hugo появится время и он предложит свой оригинальный вариант...

[vba]
Код
Sub test1()
    Dim z, i&, j&, m&: z = Sheets("Сводная объекты").Range("A3:I" & Sheets("Сводная объекты").Range("A" & Rows.Count).End(xlUp).Row).Value: m = 1
     With CreateObject("scripting.dictionary"): .comparemode = 1
     For i = 1 To UBound(z): .Item(z(i, 7)) = .Item(z(i, 7)) + 1: Next
    For i = 2 To UBound(z)
         If .Item(z(i, 7)) = 1 Then
            m = m + 1: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
         End If
   Next
  Sheets("Дебиторка").Range("A1").Resize(m, UBound(z, 2) - 1).Value = z
  End With
  Sheets("Дебиторка").Columns("A:H").AutoFit: Sheets("Дебиторка").Columns("A:C").Delete
  Sheets("Дебиторка").Columns("C:D").Delete
End Sub
[/vba]
К сообщению приложен файл: 6612425.xls(67Kb)


Сообщение отредактировал sv2014 - Вторник, 06.09.2016, 20:01
 
Ответить
Сообщениеanofilis, добрый вечер,к сожалению Вы не указали,как Вам надо на листе Дебиторка(сообщение от Hugo:#22),на словах не совсем понятно,добавил Вам кнопку tt для макроса от Hugo и протестируйте кнопку test1,так ли Вам надо для сообщения #23.Возможно у Hugo появится время и он предложит свой оригинальный вариант...

[vba]
Код
Sub test1()
    Dim z, i&, j&, m&: z = Sheets("Сводная объекты").Range("A3:I" & Sheets("Сводная объекты").Range("A" & Rows.Count).End(xlUp).Row).Value: m = 1
     With CreateObject("scripting.dictionary"): .comparemode = 1
     For i = 1 To UBound(z): .Item(z(i, 7)) = .Item(z(i, 7)) + 1: Next
    For i = 2 To UBound(z)
         If .Item(z(i, 7)) = 1 Then
            m = m + 1: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
         End If
   Next
  Sheets("Дебиторка").Range("A1").Resize(m, UBound(z, 2) - 1).Value = z
  End With
  Sheets("Дебиторка").Columns("A:H").AutoFit: Sheets("Дебиторка").Columns("A:C").Delete
  Sheets("Дебиторка").Columns("C:D").Delete
End Sub
[/vba]

Автор - sv2014
Дата добавления - 06.09.2016 в 19:59
Hugo Дата: Вторник, 06.09.2016, 20:19 | Сообщение № 25
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2653
Репутация: 597 ±
Замечаний: 0% ±

Не, я подожду пока прояснится задача. 50% - маловато, а вернее я бы дал 80% что не нужно отбирать "все неповторяющиеся строки", а нужно отобрать все без повторов.
Но кто его знает...
P.S. Хотя в общем всё уже есть в коде уважаемого sv2014, просто один цикл выкинуть, а второй чуть дополнить.
[vba]
Код
Sub test1()
    Dim z, i&, j&, m&: z = Sheets("Сводная объекты").Range("A3:I" & Sheets("Сводная объекты").Range("A" & Rows.Count).End(xlUp).Row).Value: m = 1
    With CreateObject("scripting.dictionary"): .comparemode = 1
        ' For i = 1 To UBound(z): .Item(z(i, 7)) = .Item(z(i, 7)) + 1: Next 'убрали
        For i = 2 To UBound(z)
            .Item(z(i, 7)) = .Item(z(i, 7)) + 1    'добавили
            If .Item(z(i, 7)) = 1 Then
                m = m + 1: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
            End If
        Next
        Sheets("Дебиторка").Range("A1").Resize(m, UBound(z, 2) - 1).Value = z
    End With
    Sheets("Дебиторка").Columns("A:H").AutoFit: Sheets("Дебиторка").Columns("A:C").Delete
    Sheets("Дебиторка").Columns("C:D").Delete
End Sub
[/vba]


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069


Сообщение отредактировал Hugo - Вторник, 06.09.2016, 20:22
 
Ответить
СообщениеНе, я подожду пока прояснится задача. 50% - маловато, а вернее я бы дал 80% что не нужно отбирать "все неповторяющиеся строки", а нужно отобрать все без повторов.
Но кто его знает...
P.S. Хотя в общем всё уже есть в коде уважаемого sv2014, просто один цикл выкинуть, а второй чуть дополнить.
[vba]
Код
Sub test1()
    Dim z, i&, j&, m&: z = Sheets("Сводная объекты").Range("A3:I" & Sheets("Сводная объекты").Range("A" & Rows.Count).End(xlUp).Row).Value: m = 1
    With CreateObject("scripting.dictionary"): .comparemode = 1
        ' For i = 1 To UBound(z): .Item(z(i, 7)) = .Item(z(i, 7)) + 1: Next 'убрали
        For i = 2 To UBound(z)
            .Item(z(i, 7)) = .Item(z(i, 7)) + 1    'добавили
            If .Item(z(i, 7)) = 1 Then
                m = m + 1: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
            End If
        Next
        Sheets("Дебиторка").Range("A1").Resize(m, UBound(z, 2) - 1).Value = z
    End With
    Sheets("Дебиторка").Columns("A:H").AutoFit: Sheets("Дебиторка").Columns("A:C").Delete
    Sheets("Дебиторка").Columns("C:D").Delete
End Sub
[/vba]

Автор - Hugo
Дата добавления - 06.09.2016 в 20:19
anofilis Дата: Вторник, 06.09.2016, 21:20 | Сообщение № 26
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Hugo, Друзья еще раз.мне нужно копировать все неповторяющиеся строки т.е все без повторов реализовать хотелось бы при помощи кнопки ну и если возможно то в макросе возможность выбора отображения столбцов.
 
Ответить
СообщениеHugo, Друзья еще раз.мне нужно копировать все неповторяющиеся строки т.е все без повторов реализовать хотелось бы при помощи кнопки ну и если возможно то в макросе возможность выбора отображения столбцов.

Автор - anofilis
Дата добавления - 06.09.2016 в 21:20
Hugo Дата: Вторник, 06.09.2016, 21:36 | Сообщение № 27
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2653
Репутация: 597 ±
Замечаний: 0% ±

anofilis, У Вам есть три разных кода (даже четыре, но два выдают одинаковый результат) - берите какой угодно. Желательно мою последнюю модификацию кода sv2014 - я похоже угадал :)
А чтоб не гадать и не растягивать бодягу на две страницы - нужен сразу пример файла согласно правилам!
А фраза "все неповторяющиеся строки т.е все без повторов" - это оксюморон :)


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069


Сообщение отредактировал Hugo - Вторник, 06.09.2016, 21:39
 
Ответить
Сообщениеanofilis, У Вам есть три разных кода (даже четыре, но два выдают одинаковый результат) - берите какой угодно. Желательно мою последнюю модификацию кода sv2014 - я похоже угадал :)
А чтоб не гадать и не растягивать бодягу на две страницы - нужен сразу пример файла согласно правилам!
А фраза "все неповторяющиеся строки т.е все без повторов" - это оксюморон :)

Автор - Hugo
Дата добавления - 06.09.2016 в 21:36
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенести строки на другой лист (Формулы/Formulas)
Страница 2 из 2«12
Поиск:

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