提取Excel单元格格式

Question

我正在为报表自动化格式化过程。

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

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

Answer 1

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

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

---

获得的实施例：获得的字体大小的

Range("A1").Select 
Selection.Copy 

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

---

实施例字体名称：

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

---

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

为了让单元格的填充色：

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

---

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

Answer 2

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