Excel 查找不相交行VBA的结尾

这个问题可能已经被问过了，但我在研究中没有发现

我有一行数字，从电子表格上的“DC:4”开始。这一行可以增加或减少长度（可能达到“GG:4”）。对于给定的宏运行，我希望在第4行中找到非空单元格的数量，因此可以是2或262。 我可以这样做：

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

但是，这失败了，因为在这行数字开始之前有106个空白单元格。如果您有任何帮助，我们将不胜感激

干杯

尝试

工作表（“工作表1”）。使用Drange.Specialcells（xlCellTypeLastCell）。列

这通常返回右边的列

如果要检查某一行，请按如下方式使用：

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

尝试使用

Sheets（“sheet1”）.UsedRange.Specialcells（xlCellTypeLastCell）.Column

这通常返回右边的列

如果要检查某一行，请按如下方式使用：

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

---

这可以使用工作表函数Count和CountA来完成

如果需要第4行中非空单元格的数量，请使用

CountA

WorksheetFunction.CountA（第（4）行）

如果您想要只包含第4行中的数字的单元格数量，请使用

计数

---

WorksheetFunction.Count（行（4））

这可以使用WorksheetFunctions Count和CountA完成

如果需要第4行中非空单元格的数量，请使用

CountA

WorksheetFunction.CountA（第（4）行）

如果您想要只包含第4行中的数字的单元格数量，请使用

计数

---

WorksheetFunction.Count（第（4）行））

您好，谢谢这真的很有帮助（也是一段有用的代码），但是由于某种原因，当我使用上面的后一行时，我得到的是工作表上最长的行，而不是指定的行？有什么想法吗？也许它没有按我想象的那样工作，虽然mateHi没有尝试过，但还是很好，谢谢，这真的很有帮助（而且是一段有用的代码），但是出于某种原因，当我使用上面的后一行时，我得到了工作表上最长的一行，而不是指定的行？有什么想法吗？也许它没有像我想象的那样工作，但我还没有试过mate@MrNemo干杯@尼莫先生，干杯！