提取Excel单元格格式

我正在寻找自动化的报告格式化过程。

我被困在如何在Excel中提取单元格的格式。 例如表格布局，字体，颜色等

我正在考虑在Excel中提取单元格的格式。 然后复制代码并将其应用于需要格式化的其他Excel。 如果有更好的解决scheme，请让我知道。

Answer 1

简单地将一个单元格的所有格式复制到另一个单元格可以这样做：

Range("A1").Select Selection.Copy Range("B1").Select Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone 

---

获取字体大小的示例：

 Dim fontsize As Integer fontsize = Worksheets("Sheet1").Cells(1, 1).Font.Size 

---

获取字体名称的示例：

 Dim fontname As String fontname = Worksheets("Sheet1").Cells(1, 1).Font.Name 

---

同样，你也可以用这种方式获得字体颜色。

获取单元格填充颜色：

 Range("A1").FormatConditions(1).interior.color 

---

只是谷歌这样的事情，“Excel VBA获取单元格字体名称”，你会看到很多的例子。

Answer 2

如果您有某些经常使用的格式组合，我build议您考虑使用样式。 一旦定义，样式确实可以简化您的单元格的创build和维护统一格式。