时间戳

首页 > 解决方案 > 我在代码上收到“错误 9：下标超出范围”

excel - 我在代码上收到“错误 9：下标超出范围”

问题描述

帮助，我收到错误 9：下标超出范围

Set SetupWorksheetData.WrkSheet = wb.Sheets(sheetName)

如何解决？这是我得到的代码......

Private Function SetupWorksheetData(ByVal wb As Workbook, ByVal sheetName As String, ByRef wrksheetData As TWorksheetData) As TWorksheetData
    SetupWorksheetData = wrksheetData
    Set SetupWorksheetData.WrkSheet = wb.Sheets(sheetName)
    SetupWorksheetData.LastRow = SetupWorksheetData.WrkSheet.Cells(Rows.Count, 1).End(xlUp).Row
    SetupWorksheetData.LastColumn = SetupWorksheetData.WrkSheet.Cells(1, Columns.Count).End(xlToLeft).Column
End Function

我从这里复制了它：Comparing 2 Pair Data with Loop in Ms Excel VBA

标签： excelvba

解决方案

推荐阅读