lastcol = Range（“a7”）。End（xlRight）.Column

我正在寻找在其中的数据范围内的最后一列（范围的宽度是可变月份）。 我正在使用的公式抛出一个应用程序定义或对象定义的错误 。 这是代码：

lastcol = Worksheets("Current Month").Range("H7").End(xlRight).Column 

我感到困惑，因为下面的代码工作：

 lastrow = Worksheets("Current Month").Range("B7").End(xlDown).Row 

Answer 1

使用xlToRight而不是xlRight 。 这些是不一样的常数。 End函数不理解xlRight常量。

Answer 2

要find第一行的最后一列，请使用下面的代码

 dim lastcolumn as long lastcolumn = Worksheets("Current Month").Cells(1, Columns.Count).End(xlToLeft).Column