使用 A 列中的空白单元格命名多个范围以定义范围大小答案

【问题标题】：Naming multiple ranges using blank cells in column A to define the range size使用 A 列中的空白单元格命名多个范围以定义范围大小
【发布时间】：2012-12-17 06:35:38
【问题描述】：

首先我是新手，所以如果我看起来很无知或者我的请求格式不正确，请原谅我。

我有一个从 ERP 系统导出的电子表格。 A 列包含零件编号，后跟不同数量的空白行（行数取决于 B 到 H 列中的数据量）。

我需要做的是命名一个范围，该范围从 A 列中包含零件号的第一个单元格开始，并延伸到 A 列中包含下一个零件号的单元格之前的最后一个空白单元格。例如A1:H10 如果 A11 包含第二个部件号。

然后我想循环代码，以便它命名从部件号 2 到部件号 3 上方的空白单元格的数据范围，依此类推（包含大约 2000 个填充行和 150-200 个 PN） )。

我很确定我可以编写其余的代码，但我不知道如何选择合适的行数。

如果有任何建议，我将不胜感激。

谢谢

皮特

【问题讨论】：

...我在这里回答了我认为相同的问题：stackoverflow.com/questions/13884341/…
我必须检查一下。它看起来像一个稍微不同的问题，但我可以根据我的需要调整它。谢谢约翰。
我刚刚重新阅读了您的问题，您是说要将零件编号之间的空白单元格范围命名为特定名称吗？你能详细说明一下，我会看看我是否可以提供更多帮助......

标签： vba loops excel range

【解决方案1】：

根据我对你所写内容的理解，我想出了这个简短的子句，至少应该让你朝着正确的方向前进：

Sub test()

Dim FirstCell As Range
Dim TargetRange As Range
Dim NameCounter As Integer

Set FirstCell = Range("A1")
NameCounter = 1

  Do
     Set TargetRange = Range(FirstCell, FirstCell.End(xlDown).Offset(-1, 7))
     TargetRange.Name = "Name_" & NameCounter
     Set FirstCell = FirstCell.End(xlDown)
     NameCounter = NameCounter + 1
  Loop Until FirstCell.Row > 1000000

End Sub

你要求的主要部分是Set TargetRange = Range(FirstCell, FirstCell.End(xlDown).Offset(-1, 7))

希望有帮助

【讨论】：

约翰这很好。我需要调整一些位以获取正确的范围名称等，但你给了我一个很大的开端。谢谢你:)