提取Excel单元格格式

Question

我希望自动化报告的格式化过程。

我坚持如何在excel中提取单元格的格式。例如表格布局，字体，颜色等。

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

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

---

就像这样的Google，“Excel vba get cell font name”，你会看到很多例子。

Answer 2

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