Question

我想找到在已导入到此工作簿中的某些数据旁边创建计算单元格的最佳方法。

因此，基本上是问卷调查数据，我正在尝试对其进行评级，即如果该人为第一季度选择了选项A，则其评级为5。

我有调查表的结果（在单独的工作簿中，并通过vba进行了整理），并且我有一个控制表，其中显示了问题，答案和评分。

现在，我只需要通过vba创建vlookups以返回每个答案的等级。 VBA的需求将增加，更多问题将被添加。

我有activecell.formula和WorksheetFunction.VLookup，但都给出了下标错误，超出了范围，并且应用程序定义的错误或对象定义的错误。

这是我目前的尝试

Sub Calc()

Dim govv As Range
Dim lngAnsRow As Long

lngAnsRow = 2

govv = Worksheets("Collate").Cells(lngAnsRow, 6)

 Sheets("Collate").Cells(lngAnsRow + 1, 4).Select

    ActiveCell.Formula = _
        "=VLOOKUP(" & govv.Value & ",Control!B26:C31,2,FALSE)"


End Sub

尝试使用vlookups创建计算

0 个答案: