lastcol = Range（＆＃34; a7＆＃34;）。End（xlRight）.Column

Question

我希望找到包含数据的范围中的最后一列（范围的宽度可以按月变化）。我正在使用的公式抛出应用程序定义或对象定义错误。这是代码：

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

要查找第一行中的最后一列，请使用以下代码

dim lastcolumn as long 

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