我有下面的代码似乎并不奏效。 从本质上讲， rngList是指在Excel中定义的名称范围为约500行和长每n行数有文本（大约有32行指出，具有文本500的）。 我试图去非空白单元格（通过模仿ctrl + down在Excel命令）。

我检查，看看他们是否是空白的，如果他们是我想组细胞。 如果不是空白的，我要检查电池的左，如果是0，我也想组吧。 我现在的代码基本上是试图做到这一点，但我收到以下错误：

Group Method of Range Class Failed

它接着强调以下行：

Selection.Rows.Group

编辑：比方说，而不是分组是空行，我想，在他们有1组行。 这样的CRTL +向下实际上会转到该细胞，而不是最后一排。

非常感谢你的帮助！

代码如下：

尽管这篇文章的时候，我想我会在我的两分钱抛出任何人在其谁可能绊倒。 我希望我正确地理解你的问题。 下面是我收集：

目标 ：对于感兴趣的列中的每一行的基础上，标准组行。

标准 ：唯一rows in the group是那些要么没有值（空白，null，为空），或具有一个值，并有一个相邻小区（直接向左），其具有为0的唯一的值rows not in the group是那些不是空白和具有不为0的相邻小区。

下面是一些示例数据：

注：在范围B1:B12化妆命名范围rngList ，如OP说，他们有。

数据运行宏之前：

数据运行宏后-分组未收缩：

数据运行宏后-分组折叠：

处理这个的代码：

为了使此代码的工作：在VBE（Visual Basic编辑器），打开包含数据组的工作表（也包含命名范围rngList ）并粘贴此代码，然后运行宏。

注意：评论添加进一步详细解释某些部分，但我相信自己的代码写入的方式，可以解释本身（例如变量名是有意义的，逻辑是有道理的）。

我用萨姆的代码组不使用A列思考别人可能觉得它有用。