Страницы: 1
RSS
Преобразовать матрицу в линейное представление
 
Добрый день, помогите преобразовать матрицу в табличное (линейное) представление
Количество колонок сверху и слева может быть разное

Приложил пример:  
 
Это где - сверху и слева? Относительно чего?
 
Сверху - исходные данные
Снизу - то что хочу получить
Хочу получить пересечение левой колонки и верхней колонки

Пример Агрыз пересекается с Азов и значение = 1977
 
diman116,
Код
Sub dsd()
Dim i As Long, n As Long, lr As Long, lcol As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
lcol = Cells(2, Columns.Count).End(xlToLeft).Column
k = 10
For i = 3 To lr
    For n = 2 To lcol
    If Cells(i, 1) <> Cells(2, n) Then
        Cells(k, 1) = Cells(i, 1)
        Cells(k, 2) = Cells(2, n)
        Cells(k, 3) = Cells(i, n)
        k = k + 1
    End If
    Next n
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
Добрый!
на pq
 
Спасибо всем большое, Mershik, Anton555 - все заработало
Страницы: 1
Наверх