VBA批量修改excel格式

Posted 2023-04-13

我想把所有表格里面 表头改成 黑体 18 剩下所以的字改成仿宋_GB2312 整个表格居中处理
仿宋的要 10号大小

VBA批量修改excel格式，可以这样：
1、ShapeRange.width=宽
activesheet;chart 22").line(".ShapeRange.line(")可以用以下公式来解决
activesheet;chart 22"
2、activesheet.ShapeRange.line("chart 22").width=宽 activesheet.ShapeRange.line("chart 22").height=高
3、Sub 替换() Dim Ar, I As Long Ar = Worksheets(2).UsedRange For I = 1 To UBound(Ar) Worksheets(1).Cells.Replace Ar(I, 1), Ar(I, 2), xlPart, , False NextEnd Sub
4、 在EXCEL中按ALT+F11调出VBA窗口，插入一个用户模块，把下面代码粘贴进去。 回到图表所在的EXCEL工作表窗口，按“工具－宏－宏”，执行“修改数据源”宏就行了。
5、用如下宏，我这没有那个带2312的字体，你把仿宋改成仿宋_GB2312试试看行不行，表头按合并到A1的单元格写的，如果不是的话，可以把Range("a1")改成Range("1:1") Sub xxx() For i = 1 To ThisWorkbook.Sheets.Count With Sheets(i).UsedRange . 参考技术A 用如下宏，我这没有那个带2312的字体，你把仿宋改成仿宋_GB2312试试看行不行，表头按合并到A1的单元格写的，如果不是的话，可以把Range("a1")改成Range("1:1")
Sub xxx()
For i = 1 To ThisWorkbook.Sheets.Count
With Sheets(i).UsedRange
.Font.Name = "仿宋"
.Font.Size = 10
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Sheets(i).Range("a1").Font
.Name = "黑体"
.Size = 18
End With
Next
End Sub追问

如何使用宏？怎么操作？漏怯了。。。

追答

按alt+f11进代码窗口，在左边的表名列表上点右键，插入，模块，在模块中粘贴此代码，再去找到宏运行就行了

本回答被提问者采纳

EXCEL单元格批量插入不同批注

参考技术A 只能用VBA来实现，通过遍历D列的内容，再用AddComment并设置Comment属性把对应的说明写入。
你可以发EXCEL到[e-mail]，把问题说明清楚，我帮你看看。 参考技术B 用VBA吧
或者直接
用
Vlookup
函数
将第二个工作表的对应内容
查询到第一张表的对应单元格后面去得了。 参考技术C 选中等同区域的单元格，右键点击插入即可。 参考技术D

Excel怎样批量单元格值（公式）变批注