我使用一些子程序来格式化 Excel 文件中的数据。具体来说,我有一个可以在 sheet("1.Parus") 中激活的子程序,其中包含以下行:
Range(Cells(2, 1), Cells(1000, 3)).Interior.Color = RGB(255, 255, 255)
但是我需要在另一张工作表中激活另一个子表,我希望能够在几张工作表中重新设置格式。尝试此操作时出现错误:
Worksheets("1.Parus").Range(Cells(2, 1), Cells(1000, 3)).Interior.Color = RGB(255, 255, 255)
而类似这样的代码则可以 Worksheets("1.Parus").Columns("J:L").EntireColumn.Interior.Color = RGB(255, 255, 255)
正常工作。
我有点迷茫,不知道什么不起作用,而且我找到的可用帮助不够具体
答案1
这是语法问题:Worsheets("W1").
仅适用于紧随其后的对象。因此,
Worksheets("1.Parus").Range(Cells(2, 1), Cells(1000, 3)).Interior.Color = RGB(255, 255, 255)
应该
Range(Worksheets("1.Parus").Cells(2, 1), Worksheets("1.Parus").Cells(1000, 3)).Interior.Color = RGB(255, 255, 255)