vba如何跨sheet页修改excel字体等属性

2024-12-05 07:14:44

推荐回答（4个）

回答1：

Range(Cells(1, 1)

前面加工作表名

sheet1.Range(Cells(1, 1)
sheet2.Range(Cells(1, 1)
sheet?.Range(Cells(1, 1)

回答2：

With Sheets("差异汇总表(非展开)").Range(Cells(1, 1), Cells(sum + 1, sum + 1))

如果这个错误，又显示1004

可考虑，是不是没有这个 Sheets("差异汇总表(非展开)") 工作表
通常我都直接写成 SHEET4 这样的

回答3：

Range()之前加上sheet().

如该表2就SHEET2.RANGE(Cells(1, 1))

回答4：

With Sheets("差异汇总表(非展开)").Range(Cells(1, 1), Cells(sum + 1, sum + 1))

试试这个