Question

我试图创建一个代码，该代码可以处理我的高度动态的复杂数据集。有两个工作簿，两者都将在行数和列数方面发生变化。但是，我感兴趣的列将具有不会随时间变化的名称。

我的目标是根据两个工作簿中表示的代码从一个工作簿/工作表中获取名称。

因此，对于我已经命名的感兴趣的列，它们将包含在索引/匹配公式中，但不介绍如何从中进行。问题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

索引/匹配引用列名

0 个答案: