Question

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

 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属性将返回活动工作表上的单元格）的

如何将范围对象与工作表对象一起使用

1 个答案: