此代码在excel 2016中给出了错误9下标溢出。我不明白为什么

时间:2017-10-22 17:48:57

标签: excel-vba vba excel

 var aggrData = listUserBadge
               .GroupBy(badge=>new { badge.Id,badge.Month, badge.Year})
               .Select(x=>new UserBadge {Id=x.Key.Id,
                                         Name = x.First().Name,
                                         Surname = x.First().Surname,
                                         Month = x.Key.Month,
                                         Year = x.Key.Year,
                                         Hours = x.Sum(y=>y.Hours)});

2 个答案:

答案 0 :(得分:1)

请注意,变量名称中包含错误。

试试这个

columnName VARCHAR(50) NOT NULL DEFAULT ''

在你的帖子中你Dim LastRow但尝试使用LastRow1

答案 1 :(得分:1)

学会在模块的顶部使用Option Explicit,它会检测到变量名称的差异(将来会为你节省很多时间)。

Option Explicit

Sub GetLastRow()

Dim LastRow As Long

'Active sheet is sheet1
With Sheets("sheet1")
    LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
End With

End Sub