0

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

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

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

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

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

我将不胜感激任何建议。

谢谢

皮特

4

1 回答 1

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))

希望有帮助

于 2013-01-02T23:09:44.467 回答