VBA Excel：尝试命名组织成行的动态范围

如何解决VBA Excel：尝试命名组织成行的动态范围

我将数据组织成行，在B列中，我有数据标题。我想在标题之后选择数据，然后根据该标题为它们指定范围名称。我能够编写一个可以以这种方式动态命名列范围的解决方案，但是当更改它以命名数据行时，我遇到了1004错误，特别是在rng.CreateNames点。

Sub RowNames()                                                                                     
Dim ws As Worksheet,firstCol As Long,lastCol As Long,rowNum As Long,r As Integer,n As Integer,rng As Range,rngName As Range
Set ws = ThisWorkbook.Sheets("MonthlySales")
Set rng = ws.Range("B2:N41")
    For n = 1 To rng.Rows.Count
        For r = rng.Columns.Count To 1 Step -1
            rowNum = rng.Rows(n).Row
            firstCol = rng.Columns(1).Column
            lastCol = rng.Columns(r).Column
                If Cells(firstCol,rowNum).Value <> "" Then
                    Set rngName = Range(Cells(firstCol,rowNum),Cells(lastCol,rowNum))
                        rngName.CreateNames Left:=True
                        Exit For
                End If
        Next r
    Next n                                                                                         

结束子

解决方法

命名行范围

Range.CreateNames Method

• 坦白说，从来没有听说过。基本上，在这种情况下，您将获得一个范围并在其第一列中写入不同的名称，并在遍历各行时，为每一行编写类似Range("A1:D1").CreateNames Left:=True的名称，以创建一个命名范围，其名称为{ {1}}，它将引用范围A1。
• 为了混合使用，本示例（我认为也是OP）假设第一列中可能有空白单元格，并且每行范围中的单元格数量可能有所不同。每个行范围都将向后检查以定义一个定义其大小的值。

代码

B1:D1