命名使用空白單元格列A多個範圍定義範圍大小

首先我是新來這個，所以請原諒我，如果我似乎無知，或者如果我的請求被格式化很差。命名使用空白單元格列A多個範圍定義範圍大小

我已經從ERP系統導出的電子表格。列A包含一個零件號，後跟不同數量的空白行（行數取決於列B到H中有多少數據）。

我需要做的就是名與A列中包含零件號和列A中包含的下一個零件號小區前延伸到最後一個空白單元格的第一個單元格開始範圍。例如A1：如果A11包含第二個零件編號，則爲H10。

然後，我想循環代碼，以便它將部件編號2的數據範圍命名爲部件編號3之上的空白單元格，以此類推（在其中包含大約2000個填充行和150-200個）期票）。

我敢肯定，我可以代碼的其餘部分我只是無法弄清楚如何選擇行適當數量。

我將不勝感激任何意見。

感謝

皮特

來源

2013-01-02 Petethefeet

...我回答什麼，我相信這裏是同一個問題：http://stackoverflow.com/questions/13884341/strategy-for-excel-formula-or-vba-to-do-this/13884438#13884438 –

我必須檢查一下。它看起來像一個稍微不同的問題，但我可能能夠適應我的需求。謝謝約翰。 – Petethefeet

我只是重新讀你的問題，你是說你想要命名部件號之間的空白單元格範圍的具體名稱？你能詳細說明一下，我會看看我是否可以幫助更多...... –

基於我所理解的，你寫的東西，我想出了這個短子應該至少使你沿着正確的方向：

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-02 23:09:44

約翰這個完美的作品。我需要調整一些比特以獲得範圍的名字等等，但是你給了我一個很大的開局。謝謝：） – Petethefeet

命名使用空白單元格列A多個範圍定義範圍大小

回答

相關問題