VB.NET实现Excel指定列H8:H38查找最后空白单元格并更新的问题

问题场景 #

现有VB.NET代码用于更新Excel指定单元格，原本预期在H8:H38范围内找到最后一个空白单元格写入数据，但因为用oSheet.UsedRange.Rows.Count获取最后行，当文档里存在带公式的表格时，会错误地定位到H40及以后的单元格写入数据。

问题原因 #

UsedRange会把所有曾经编辑过、包含公式（哪怕单元格显示为空）的区域都算作已使用范围，所以当表格里有超出H38的公式单元格时，UsedRange.Rows.Count会返回比实际需要更大的行号，导致写入位置偏离目标区域。

修改后的代码 #

Private Sub toEditDataOnReportCell(ByVal passedData As String)
    Dim monthlyReportFilePath As String = "./Report/Example.xlsx"

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object

    oExcel = CreateObject("Excel.Application")
    oBook = oExcel.Workbooks.Open(monthlyReportFilePath)
    oSheet = oBook.Worksheets(1)

    ' 限定在H列（第8列）、从H38往上找最后一个非空单元格
    ' 若H38及以上全空，则默认从H8开始写入
    Dim targetColumn As Integer = 8
    Dim maxRow As Integer = 38 ' 目标区域最大行
    Dim lastNonEmptyRow As Integer = oSheet.Cells(maxRow, targetColumn).End(-4162).Row ' -4162对应xlUp常量

    ' 确定要写入的行：如果找到的最后非空行小于8，就从8开始；否则从下一行开始
    Dim writeRow As Integer = IIf(lastNonEmptyRow < 8, 8, lastNonEmptyRow + 1)

    ' 确保写入行不超过目标区域的最大行38
    If writeRow <= maxRow Then
        oSheet.Cells(writeRow, targetColumn).Value = passedData
        TextBox12.AppendText("成功!!!" + vbCrLf + vbCrLf)
    Else
        TextBox12.AppendText("目标区域H8:H38已填满，无法写入数据！" + vbCrLf + vbCrLf)
    End If

    ' 保存并关闭Excel，释放COM对象避免进程残留
    oExcel.DisplayAlerts = False
    oBook.Save()
    oBook.Close()
    oExcel.Quit()

    oSheet = Nothing
    oBook = Nothing
    oExcel = Nothing
End Sub

关键修改说明 #

• 不再依赖UsedRange，直接在H列的H38单元格向上查找（End(xlUp)，对应常量-4162），精准定位目标区域内的最后非空单元格
• 添加范围校验，确保写入行不会超过H38，避免超出预期区域
• 补充COM对象释放代码，防止Excel进程在后台残留

内容的提问来源于stack exchange，提问作者Henry.K