vb.net - 使用 VB.net 在 Excel 中复制条件格式？

Question

我在工作表“二”中有一列“A”，在工作表“一”中有另一列“B”！

我想将 A 列的条件格式一并复制到 B 列！

基本上，我想将除数据之外的所有内容从两列 A 复制到一列 B ！

请帮忙 ！！

我有 ：

sheetA & sheetB object as Objects in my code
I am using VB.NET

我是 Vb.net 的新手 - 请帮助！

Answer 1

这里有一点推动：

    oExcel = CreateObject("Excel.Application")
    Book = oExcel.Workbooks.Open("C:\Users\Jonathan\Documents\Test2.xlsx")
    Sheet = Book.Worksheets(1)
    SourceRange = Sheet.Range("A1:A" & Sheet.Range("A1").End(Excel.XlDirection.xlDown).Row)
    DestRange = Sheet.Range("D1:D" & Sheet.Range("D1").End(Excel.XlDirection.xlDown).Row)

它的核心是这部分，您从一个范围获取格式条件并将其添加到另一个范围。这假设只有一个格式化标准。不止一个需要您通过在从 1 到SourceRange.FormatConditions.Count的循环中使用SourceRange.FormatConditions(i)来遍历所有这些（我认为最多有 3 个）

    DestRange.FormatConditions.Add(Excel.XlFormatConditionType.xlCellValue, SourceRange.FormatConditions(1).Operator, SourceRange.FormatConditions(1).Formula1)
    DestRange.FormatConditions(1).Interior.ColorIndex = SourceRange.FormatConditions(1).Interior.ColorIndex