小编Ton*_*ima的帖子

评估抛出错误 2029 (#NAME)。

该项目正在利用人口普查程序为任意特定数量的众议院议员（目前为 435 名）分配众议院席位。有许多扩大众议院规模的提案。我正在调查预算和经济影响。

我的工作簿有一个名为 PVC 的工作表。我试图在 E 列（分配给给定州的席位数）中查找 C 列（两个字母的州缩写）中的值的最大值。

我已经删除了很多行。
我尝试过用户定义的函数 MaxIf()。

Sub CountSeatsEval()

  Dim lNoSeats, lG2, lastrow, lStateRow, lStateSeats, lStateNo As Long
  Dim sFileName, sPathName, sFunction, sSearchValue, sSearchState As String
  Dim sStateAbbr, vStateSeats As Variant
  Dim wsSource, wsTarget As Worksheet
  Dim rMaxRange, rSearchValue, rSearchState As Range
  Dim rLookup1 As Range
  Set wsSource = ThisWorkbook.Worksheets("PVC")
  'Following line is to make life easy temporarily
  Set wsTarget = ThisWorkbook.Worksheets("PVC")
  lNoSeats = wsSource.Range("G2").Value
...
  'Copy and paste G2 to …