我需要在特定工作表上选择列。不知怎的,这不起作用:
Dim ws As Worksheet
Set ws = Worksheets("Mysheet")
ws.Columns("A:S").Select
Selection.EntireColumn.AutoFit
简单的Columns("A:S").Select
不会激活我需要的工作表
答案 0 :(得分:1)
我测试了你的代码,它的工作原理如下。
Sub test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Mysheet")
ws.Columns("A:S").EntireColumn.AutoFit
End Sub
无需Select
任何内容,因此我将两个语句放在一起,而不是Select
。
我添加了ThisWorkbook
(更多)完全符合您的ws
声明。确保工作表Mysheet
位于ThisWorkbook
,否则更改为工作表所在的工作簿。