如何使用工作表对象使用范围对象

我正在写一个简单的程序来合并单元格在不同的工作表。 我写了这个代码

Dim ws as worksheet Set worksheet = sheets ("sheets2") ws.range (cells (1,1),cells (1,5)).merge 

这是行不通的，错误来说对象工作表的方法范围失败请帮我这个谢谢

Answer 1

尝试像这样：

 Option Explicit Sub TestMe() Dim ws As Worksheet Set ws = Sheets("sheets2") With ws .Range(.Cells(1, 1), .Cells(1, 5)).Merge End With End Sub 

在Excel中，范围对象有点困难，当您引用单元格时，还应引用表单。

看看微软的例子，他们很好： https ： //msdn.microsoft.com/en-us/library/office/ff838238.aspx

尤其是第三个注意事项： 请注意Cells属性每次出现前的时间段。 如果将前面的With语句的结果应用于Cells属性（在这种情况下，指示单元格在工作表1上（没有句点，Cells属性将返回活动工作表上的单元格） 。