用于excel 2010的宏，用于自动化名称管理器

我的要求是在

Excel2010

中创建

宏

，该宏将使用

名称管理器

（功能区>公式>名称管理器）自动为等距单元格指定或创建名称

---

希望这有意义，否则请澄清。谢谢

Peter，你干练的指导帮助我成功（也得到了Siddharth Rout的帮助）：）谢谢！请在下面找到我的代码-

Private Sub CommandButton1_Click()

'Define the variables
Dim vRangeDefined, vRowCount, vRowIndex, vColIndex, vCounter, vCellValue As String, vNameValue As String

'Define the range where the values are entered
vRangeDefined = ActiveSheet.Range("A:B").Value
vRowCount = ActiveSheet.UsedRange.Rows.Count

For vCounter = 2 To vRowCount
    vCellValue = vRangeDefined(vCounter, 1)
    vNameValue = vRangeDefined(vCounter, 2)
    'Divide the Cell Value in two parts
    vRowIndex = Left(vCellValue, 1)
    vColIndex = Right(vCellValue, Len(vCellValue) - 1)
    'MsgBox vRowIndex & "-" & vColIndex

   'Assign the names to cells as per the range
    ActiveWorkbook.Names.Add _
        Name:=vNameValue, _
        RefersTo:="='Sheet1'!$" & vRowIndex & "$" & vColIndex

Next

MsgBox "Process complete..."

End Sub

---

抱歉@PeterAlbert我还没有试过宏的东西。我尝试手动操作，因为我不是宏方面的专家。这就是为什么要寻求您的帮助：-）尝试宏录制器-录制一个宏，在其中创建两个名称。然后查看代码并尝试修改它。给我们一些努力，我们很高兴支持你！听起来不错！我一定会试试这个。谢谢@PeterAlbert！

Private Sub CommandButton1_Click()

'Define the variables
Dim vRangeDefined, vRowCount, vRowIndex, vColIndex, vCounter, vCellValue As String, vNameValue As String

'Define the range where the values are entered
vRangeDefined = ActiveSheet.Range("A:B").Value
vRowCount = ActiveSheet.UsedRange.Rows.Count

For vCounter = 2 To vRowCount
    vCellValue = vRangeDefined(vCounter, 1)
    vNameValue = vRangeDefined(vCounter, 2)
    'Divide the Cell Value in two parts
    vRowIndex = Left(vCellValue, 1)
    vColIndex = Right(vCellValue, Len(vCellValue) - 1)
    'MsgBox vRowIndex & "-" & vColIndex

   'Assign the names to cells as per the range
    ActiveWorkbook.Names.Add _
        Name:=vNameValue, _
        RefersTo:="='Sheet1'!$" & vRowIndex & "$" & vColIndex

Next

MsgBox "Process complete..."

End Sub