EXCEL 批量添加单元格名称

在EXCEL单元格的值填入想为其设置的名称之后，调整下述代码的begin_line，begin_column，end_line，end_column的值，执行此宏，可用于批量为单元格设置名称。

（注：若宏执行时报错，请检查名称是否合法，以及sheet页是否为Sheet1） 

 

Sub addName()

  Dim begin_line%, begin_column%, end_line%, end_column%

  begin_line = 1

  begin_column = 1

  end_line = 7

  end_colunm = 2

 

  Dim i%

  Dim j%

  For i = begin_line To end_line

    For j = begin_column To end_colunm

      If Sheet1.Cells(i, j).Value <> "" Then

        ActiveWorkbook.Names.Add Name:=Sheet1.Cells(i, j).Value, RefersToR1C1:=Sheet1.Cells(i, j)

      End If

    Next j

  Next i

  MsgBox ("end adding names")

 

 

End Sub