vbs中，对包含合并单元格的行，进行搜索匹配字符串

在 VBS 中搜索包含合并单元格的行，可以使用 Excel 对象模型中的 Range 对象和 MergeCells 属性。以下是一个示例代码片段，用于在 Excel 工作簿中搜索包含指定字符串的行（包括合并单元格的行）：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\workbook.xlsx")

strSearchString = "search string"

For Each objWorksheet In objWorkbook.Worksheets
    For Each objRow In objWorksheet.UsedRange.Rows
        If InStr(1, objRow.MergeCells, ":") = 0 Then ' check if row contains merged cells
            ' if not merged, search row normally
            If InStr(1, objRow.Cells(1, 1).Value, strSearchString, vbTextCompare) > 0 Then
                ' found match, do something
                ' ...
            End If
        Else
            ' if merged, search each individual cell in row
            blnMatchFound = False
            For Each objCell In objRow.Cells
                If InStr(1, objCell.Value, strSearchString, vbTextCompare) > 0 Then
                    ' found match, set flag and exit loop
                    blnMatchFound = True
                    Exit For
                End If
            Next
            If blnMatchFound Then
                ' match found in merged row, do something
                ' ...
            End If
        End If
    Next
Next

objWorkbook.Close False
objExcel.Quit

注：以上代码假定你已经了解了基本的 VBS 语法，以及如何使用 Excel 对象模型来处理 Excel 工作簿。