使用 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 的循环中使用 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