在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