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

Вход

Регистрация

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

 

= Мир MS Excel/Итог без повтора столбцов - Мир MS Excel

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

Excel 2013
Всем привет.
У меня есть 3 столбца и в них прописаны города. Можно ли сделать отдельный столбец, что бы там показывались все эти города, но только без повторений.
К сообщению приложен файл: _Microsoft_Exce.xlsx(9Kb)
 
Ответить
СообщениеВсем привет.
У меня есть 3 столбца и в них прописаны города. Можно ли сделать отдельный столбец, что бы там показывались все эти города, но только без повторений.

Автор - feksel
Дата добавления - 31.10.2016 в 09:25
sboy Дата: Понедельник, 31.10.2016, 09:38 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 198
Репутация: 49 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
Копируете 3 столбца в один, потом Данные-Удалить дубликаты
К сообщению приложен файл: 8566858.xlsx(9Kb)
 
Ответить
СообщениеДобрый день.
Копируете 3 столбца в один, потом Данные-Удалить дубликаты

Автор - sboy
Дата добавления - 31.10.2016 в 09:38
feksel Дата: Понедельник, 31.10.2016, 09:50 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
sboy, да про это я знаю, но мне не подойдет. просто в оригинальном файле мне этим не удобно пользоваться. Поэтому и обратился к вам. Можно ли это задать как то формулой?
 
Ответить
Сообщениеsboy, да про это я знаю, но мне не подойдет. просто в оригинальном файле мне этим не удобно пользоваться. Поэтому и обратился к вам. Можно ли это задать как то формулой?

Автор - feksel
Дата добавления - 31.10.2016 в 09:50
sv2014 Дата: Понедельник, 31.10.2016, 10:15 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 156
Репутация: 37 ±
Замечаний: 0% ±

Excel 2013
feksel, добрый день,вариант макроса,кнопки test и очистка

[vba]
Код
Sub test()
    Dim z, z1, i&, j&, m&: z = Range("A1:E" & Range("E" & Rows.Count).End(xlUp).Row).Value
    ReDim z1(1 To UBound(z) * 3, 1 To 1)
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For j = 1 To 5 Step 2
         For i = 1 To UBound(z)
       If Not IsEmpty(z(i, j)) Then
         If .Exists(z(i, j)) = False Then m = m + 1: .Item(z(i, j)) = m:   z1(m, 1) = z(i, j)
       End If
     Next i, j
  Range("H2").Resize(m, 1).Value = z1
   End With
End Sub
[/vba]
К сообщению приложен файл: example_31_10_2.xls(36Kb)
 
Ответить
Сообщениеfeksel, добрый день,вариант макроса,кнопки test и очистка

[vba]
Код
Sub test()
    Dim z, z1, i&, j&, m&: z = Range("A1:E" & Range("E" & Rows.Count).End(xlUp).Row).Value
    ReDim z1(1 To UBound(z) * 3, 1 To 1)
    With CreateObject("scripting.dictionary"): .CompareMode = 1
    For j = 1 To 5 Step 2
         For i = 1 To UBound(z)
       If Not IsEmpty(z(i, j)) Then
         If .Exists(z(i, j)) = False Then m = m + 1: .Item(z(i, j)) = m:   z1(m, 1) = z(i, j)
       End If
     Next i, j
  Range("H2").Resize(m, 1).Value = z1
   End With
End Sub
[/vba]

Автор - sv2014
Дата добавления - 31.10.2016 в 10:15
китин Дата: Понедельник, 31.10.2016, 10:20 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3454
Репутация: 549 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
а я тоже кину свой ущербный вариант :D
[vba]
Код
Sub TTTIII()
  Dim lLastRow As Long
  Dim lLastRow_1 As Long
  Dim lLastRow_2 As Long
  Dim lLastRow_3 As Long
  Dim lLastRow_4 As Long
  Dim lLastRow_5 As Long
  Dim lLastRow_6 As Long
  Dim lLastRow_7 As Long
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(1, 1), Cells(lLastRow, 1)).Select
    Selection.Copy
    Range("G1").Select
    ActiveSheet.Paste
   lLastRow_1 = Cells(Rows.Count, 3).End(xlUp).Row
    Range(Cells(1, 3), Cells(lLastRow_1, 3)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    lLastRow_3 = Cells(Rows.Count, 7).End(xlUp).Row
    lLastRow_4 = lLastRow_3 + 1
    Range(Cells(lLastRow_4, 7), Cells(lLastRow_4, 7)).Select
    ActiveSheet.Paste
    lLastRow_2 = Cells(Rows.Count, 5).End(xlUp).Row
    Range(Cells(1, 5), Cells(lLastRow_2, 5)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    lLastRow_5 = Cells(Rows.Count, 7).End(xlUp).Row
    lLastRow_6 = lLastRow_5 + 1
    Range(Cells(lLastRow_6, 7), Cells(lLastRow_6, 7)).Select
    ActiveSheet.Paste
    lLastRow_7 = Cells(Rows.Count, 7).End(xlUp).Row
    Range(Cells(1, 7), Cells(lLastRow_7, 7)).Select
    Application.CutCopyMode = False
    ActiveSheet.Range(Cells(1, 7), Cells(lLastRow_7, 7)).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
[/vba]
К сообщению приложен файл: 111111.xlsm(17Kb)


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеа я тоже кину свой ущербный вариант :D
[vba]
Код
Sub TTTIII()
  Dim lLastRow As Long
  Dim lLastRow_1 As Long
  Dim lLastRow_2 As Long
  Dim lLastRow_3 As Long
  Dim lLastRow_4 As Long
  Dim lLastRow_5 As Long
  Dim lLastRow_6 As Long
  Dim lLastRow_7 As Long
   lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range(Cells(1, 1), Cells(lLastRow, 1)).Select
    Selection.Copy
    Range("G1").Select
    ActiveSheet.Paste
   lLastRow_1 = Cells(Rows.Count, 3).End(xlUp).Row
    Range(Cells(1, 3), Cells(lLastRow_1, 3)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    lLastRow_3 = Cells(Rows.Count, 7).End(xlUp).Row
    lLastRow_4 = lLastRow_3 + 1
    Range(Cells(lLastRow_4, 7), Cells(lLastRow_4, 7)).Select
    ActiveSheet.Paste
    lLastRow_2 = Cells(Rows.Count, 5).End(xlUp).Row
    Range(Cells(1, 5), Cells(lLastRow_2, 5)).Select
    Selection.Copy
    Application.CutCopyMode = False
    Selection.Copy
    lLastRow_5 = Cells(Rows.Count, 7).End(xlUp).Row
    lLastRow_6 = lLastRow_5 + 1
    Range(Cells(lLastRow_6, 7), Cells(lLastRow_6, 7)).Select
    ActiveSheet.Paste
    lLastRow_7 = Cells(Rows.Count, 7).End(xlUp).Row
    Range(Cells(1, 7), Cells(lLastRow_7, 7)).Select
    Application.CutCopyMode = False
    ActiveSheet.Range(Cells(1, 7), Cells(lLastRow_7, 7)).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
[/vba]

Автор - китин
Дата добавления - 31.10.2016 в 10:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Итог без повтора столбцов (Формулы/Formulas)
Страница 1 из 11
Поиск:

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