Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Транспонировать данные, соответствующие своим id, в горизонтальные ячейки
 
#1
22.01.2019 18:59:38
Добрый день! Необходимо транспонировать данные соответствующие своим  id в горизонтальное положение.
Изменено: nicex - 22.01.2019 19:10:24
 
 
 
#2
22.01.2019 19:09:58
Как? Две строки сделать?
 
 
 
#3
22.01.2019 19:13:30
vikttur, не совсем вас понял, данные соответствующие одному id в одну строку
 
 
 
#4
22.01.2019 19:14:20
А я Вас совсем не понял. Покажите пример результата.
 
 
 
#5
22.01.2019 19:15:57
Пример:
 
 
 
#6
22.01.2019 19:20:03
Всегда ли будут пустые строки между блоками данных?
 
 
 
#7
22.01.2019 19:21:46
Юрий М, будут всегда, но можно и убрать пустые строки
 
 
 
#8
22.01.2019 19:29:02
Если для Excel2010+, то такой вариант.
Код
=IFERROR(INDEX($A2:$A300;AGGREGATE(15;6;ROW($1:$300)/($B2:$B300<>"");COLUMNS($F:F)));"'")
 
 
 
#9
22.01.2019 19:37:34
nicex,
Код
Sub RTranspose()
Dim a&, b%
With Sheets(1)
  a = .UsedRange.Rows.Count + .UsedRange.Row - 1
  For b = 1 To 2
    Sheets(2).Cells(b, 1).Resize(1, a) = Application.Transpose(Intersect(.UsedRange, .Columns(b)))
  Next
End With
End Sub
 
 
 
#10
22.01.2019 19:47:32
jakim, 2007

Anchoret, сортировать из горизонтальных ячеек будет не легче чем из вертикальных
 
 
 
#11
22.01.2019 20:01:34
nicex, и? Вы просили транспонирование, и Вы его получили. про сортировку речи не было.
 
 
 
#12
22.01.2019 20:05:34
Anchoret спасибо, выше файл с примером
 
 
 
#13
22.01.2019 20:09:56
Можно обойтись UDF VLOOKUP2()/ВПР2()  - протянуть её по списку уникальных.
Например вот под показанным результатом:
Код
=VLOOKUP2($A:$B;1;$A$7;СТОЛБЕЦ()-6;2)

http://prntscr.com/mao6ve
Изменено: Hugo - 22.01.2019 20:47:25
 
 
 
#14
22.01.2019 20:23:21
Ещё один вариант без пустых строк.
 
 
 
#15
22.01.2019 20:23:44
Hugo, не получается, нужен файл с примером
jakim, не смог разобраться, может в 2007 не работает
 
 
 
#16
22.01.2019 20:42:37
Функцция АГРЕГАТ есть начиная с 2010 офиса.
 
 
 
#17
22.01.2019 20:48:56
Файл у Вас есть, ну а код вот:
Код
Function VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _
                N As Long, ResultColumnNum As Long)
    Dim i As Long, iCount As Long
    If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
    VLOOKUP2 = ""
    For i = 1 To UBound(Table)
        If Table(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1
        If iCount = N Then
            VLOOKUP2 = Table(i, ResultColumnNum)
            Exit For
        End If
    Next i
End Function
 
 
 
#18
22.01.2019 20:56:28
nicex,
Код
Sub RTranspose()
Dim a&, b%, aa As Range, bb As Range
b = 0
With Sheets(1)
  a = .UsedRange.Rows.Count + .UsedRange.Row - 1
  For Each aa In .Range(.Cells(.UsedRange.Row + 1, 2), .Cells(a, 2))
    If Len(aa) > 0 Then
      If b = 0 Then b = aa.Row: Set bb = aa Else Set bb = Union(bb, aa)
    ElseIf b > 0 Then
      .Range("H" & b).Resize(1, bb.Cells.Count) = Application.Transpose(bb)
      b = 0
    End If
  Next
End With
End Sub
 
 
 
#19
22.01.2019 21:08:21
Вариант для 2007 офиса на Лист3 формулами
 
 
 
#20
23.01.2019 00:02:36
Anchoret, jakim, Hugo, Спасибо!

Anchoret, до половины таблицы работает
Цитата
Run-time error '6':
Overflow
всего в таблице 59 тыс строк
 
 
 
#21
23.01.2019 00:46:42
nicex, рядом с переменной "b" поставьте тот-же значок, что и у "a".
 
 
 
#22
23.01.2019 00:56:29
Anchoret, Dim a&, b&, aa As Range, bb As Range так ? (наугад поставил, ничего не отвалится ?)
 
 
 
Страницы: 1
Наверх