要在 VSTO 中的工作表中查找包含特定关键字的单元格，并将这些单元格所在列合并为一个范围，可以使用以下代码：csharp

using Excel = Microsoft.Office.Interop.Excel;// 在工作表中查找包含特定关键字的单元格，并返回这些单元格所在列的范围
private Excel.Range FindAndUnionColumns(Excel.Worksheet worksheet, string keyword)
{Excel.Range foundRange = worksheet.Cells.Find(keyword, Type.Missing,Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart,Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext,false, Type.Missing, Type.Missing);Excel.Range resultRange = null;if (foundRange != null){Excel.Range currentColumn = worksheet.Columns[foundRange.Column];resultRange = currentColumn;// 继续查找同一列中的下一个匹配单元格，直到找不到为止while (true){foundRange = worksheet.Cells.FindNext(foundRange);if (foundRange != null && foundRange.Column == currentColumn.Column){resultRange = worksheet.Application.Union(resultRange, currentColumn);}else{break;}}}return resultRange;
}

使用示例：csharp

Excel.Worksheet worksheet = workbook.Worksheets["Sheet1"];
Excel.Range keywordRange = FindAndUnionColumns(worksheet, "关键字");if (keywordRange != null)
{// 对找到的整列进行操作，例如设置颜色keywordRange.Interior.Color = Excel.XlRgbColor.rgbRed;
}

这段代码首先使用 Find 方法在工作表中查找包含特定关键字的单元格。然后，它会继续查找同一列中的下一个匹配单元格，直到找不到为止。最后，使用 Union 方法将所有找到的单元格所在列合并成一个范围，并返回该范围。