VSTO：在“批量”中获取Excel单元格属性

Question

从Excel中的范围中获取值时，以“批量”（作为二维数组）的值比循环遍历每行和每列更有效。例如：

Dim range = Globals.Table.Range("A1:E5") 
Dim values(,) As Object = range.Value 

拥有25个细胞中，这并没有太大的差别，但有10,000行20列它当然不会。到现在为止还挺好。

我的问题是：有没有人找到一种方法来为其他属性做同样的“批量”获取？例如，我想查找哪些单元格以某种方式着色。我很想做一些类似“range.Interior.Color”的东西，但是这只会返回一个的值，而不是数组的值。所以我最终循环，这可能是100甚至1000倍慢。对于大型桌子来说，这真是一个杀手。

PS：它看起来像.Formula的行为就像.Value：我可以一次获取多个。但我还没有哄骗颜色变得好玩。

我感谢您的帮助！

Answer 1

我不认为你可以将这些属性作为一个数组，因为Excel存储该信息的方式。 Excel不会为每个单元单独存储格式，而是存储特定的格式混合以及使用该格式的范围的内部“列表”。

通过创建各种格式的小型测试文件并将其保存为XML格式（至少在2010年，您需要使用“XML Spreadsheet 2003”），您可以了解格式存储的方式。

This article may also help。

Answer 2

“我想找到哪些细胞着色以特定方式”

在VBA可以运行使用Find方法，通过格式搜索的快速程序。例如，查找与A1中的单元格具有相同单元格字体颜色和内部颜色的所有单元格。我相信你可以使用类似的东西在VSTO

Sub FindFormat() 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim strAddress As String 
    With Application.FindFormat 
     .Interior.ColorIndex = [a1].Interior.ColorIndex 
     .Font.Color = [a1].Font.Color 
    End With 
    Set rng1 = Cells.Find("", [a1], xlFormulas, , , , , , True) 
    If Not rng1 Is Nothing Then 
     strAddress = rng1.Address 
     Set rng2 = rng1 
     Do 
      Set rng1 = Cells.Find("", rng1, xlFormulas, , , , , , True) 
      Set rng2 = Union(rng1, rng2) 
     Loop While rng1.Address <> strAddress 
     MsgBox "Range similar format to A1 is " & rng2.Address 
    End If 
End Sub