如果vb.Net中满足条件，则更改Excel范围中的行颜色

Dim excelApp As New Microsoft.Office.Interop.Excel.Application
Dim workbook As Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Open("文件路径")
Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet = workbook.Sheets("工作表名称")

Dim condition As Integer = 10

Dim lastRow As Integer = worksheet.Cells.SpecialCells(Microsoft.Office.Interop.Excel.XlCellType.xlCellTypeLastCell).Row

For i As Integer = 1 To lastRow
    Dim cellValue As Integer = CInt(worksheet.Cells(i, 1).Value) ' 假设条件判断列为第一列
    
    If cellValue > condition Then
        Dim rowRange As Microsoft.Office.Interop.Excel.Range = worksheet.Rows(i)
        rowRange.Interior.Color = RGB(255, 0, 0) ' 更改行颜色为红色
    End If
Next

workbook.Save()
workbook.Close()
excelApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)