Индекс / совпадение ссылки на имя столбца - PullRequest
Новая
       7

Индекс / совпадение ссылки на имя столбца

0 голосов
/ 28 ноября 2018

Я пытался создать код, который мог бы обрабатывать мой сложный набор данных, который будет очень динамичным.Существует две рабочие книги, каждая из которых будет меняться с точки зрения количества строк и столбцов.Тем не менее, столбцы, которые меня интересуют, будут иметь имена, которые не изменятся со временем.

Моя цель - получить имя из одной рабочей книги / рабочего листа на основе кода, представленного в обеих рабочих книгах.

Итак, я назвал интересующие столбцы, которые будут включены в формулу индекса / соответствия, но не знаю, как с этим справиться.Задача 1: Как настроить формулу Задача 2: Как сделать ссылку на соответствующую ячейку

Здесь код: 

sub indeD()
    Dim selRange As Range
    Dim ColNum As Integer
    Dim ColKod As Integer
    Dim CWS As Worksheet
    Dim wb As Workbook
    Dim lastRow As Range

    'Find the column number where the column header is
    Set CWB = Workbooks("teknikersenast")
    Set CWS = CWB.Worksheets("Data")
    ColNum = Application.WorksheetFunction.Match("Efternamn", CWS.Rows(1), 0)
    ColKod = Application.WorksheetFunction.Match("Teknikerskod", CWS.Rows(1), 0)

    'Set the column range to work with
    Set selRange = CWS.Columns(ColNum)
    Set TRange = CWS.Columns(ColKod)

    Workbooks("Maptivexx").Worksheets("sheet1").Range ("F2").FormulaR1C1 = _
      "=INDEX(selRange,MATCH(Workbooks("Maptivexx").Worksheets("sheet1").Range ("E2"),TRange,0))"

    Application.DisplayAlerts = True
    Application.ScreenUpdating = True    
End Sub
...