需要獲取單元格值並將其自動聲明爲行範圍

Question

使用vba的名稱管理器... 我需要從列中逐個獲取單元格值，並且必須將該名稱聲明爲該行旁邊的行範圍列

例

在列D我名單

我必須拿到D1值，該值申報行範圍(E1:S1)

下一頁

必須D2 ---> E2:S2

Answer 1

這是怎麼回事應該爲前5行來完成：

For i = 1 To 5 
    ThisWorkbook.Names.Add Name:=yourWorksheet.Cells(i, 4).Value, RefersTo:=yourWorksheet.Range(yourWorksheet.Cells(i, 5), yourWorksheet.Cells(i, 19)) 
Next 

記住的名字必須是唯一的

Answer 2

嘗試下面的代碼

Sub AddNamedRange() 
    Dim cel As Range 
    Dim ws As Worksheet 
    Dim lastRow As Long 

    Set ws = ThisWorkbook.Sheets("Sheet4") 'change Sheet4 to your sheet name 
    With ws 
     lastRow = .Cells(.Rows.Count, "D").End(xlUp).Row 'last row with data in Column D 
     For Each cel In .Range("D1:D" & lastRow)  'loop through all cell in Column D 
      ThisWorkbook.Names.Add cel, ws.Range(cel.Offset(, 1), cel.Offset(, 15)) 'adding named range 
     Next 
    End With 
End Sub