find不相交的行VBA的结尾

有可能这个问题已经被问到，我没有在我的研究中发现。

我有一排数字，从电子表格的“DC：4”开始。这一行可以增加或减less长度（可能会上升到“GG：4”）。对于我的macros的一个给定的运行，我希望find在第4行没有空单元的数量，所以它可能是2或262.我可以做的事情是这样的：

Sheets("sheet 1").Cells(4, Columns.Count).End(xlToLeft).Column

但是，由于在这行数字开始之前有106个空白单元，所以这个失败。请任何帮助将不胜感激。

干杯

这可以使用WorksheetFunctions Count和CountA来完成。

如果您想要第4行中的非空单元格的数量使用CountA

WorksheetFunction.CountA(Rows(4))

如果您希望第4行中仅包含数字的单元格数量使用Count

WorksheetFunction.Count(Rows(4))

尝试工作Sheets("sheet 1").UsedRange.Specialcells(xlCellTypeLastCell).Column

这通常返回正确的列

如果你想检查一个特定的行，像这样使用它：

 Sheets("sheet 1").Rows(4).Entirerow.Specialcells(xlCellTypeLastCell).Column