从选定的单元格设置命名范围

时间:2019-10-25 11:26:37

标签: excel vba named-ranges

我必须为最后两行设置命名范围,并在特定工作表上包含其内容。我能够选择包含我需要的内容的那两行,但是无法从所选单元格中设置命名范围。我想知道是否有一种方法可以从所选单元格中设置命名范围。

我尝试记录宏并对其进行调整以适合我的需求,但无法这样做。以及使用单元格引用尝试下面的代码。但这需要在许多文件上运行,并且不同的文件将具有不同的底部行。

Sub LastCell()

Dim MyNamedRng As Range

'Select Worksheet
Worksheets("Sheet1").Activate

'Select Last Used Cell In The Worksheet
 Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select

'Select Cell Above Last + All To The Left
    Range(Selection, Selection.Offset(-1, 0)).Select
    Range(Selection, Selection.End(xlToLeft)).Select

'Create Named Range
    Set MyNamedRng = Sheets("Sheet1").Range("a3:gk4")
      Names.Add Name:="KeyData", RefersTo:=MyNamedRng

 End Sub

1 个答案:

答案 0 :(得分:0)

这将在相关行中找到最后使用的列。

Sub LastCell()

Dim r1 As Range, r2 As Range

Worksheets("Sheet1").Activate

Set r1 = Cells.Find(What:="*", After:=[A1],SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If Not r1 Is Nothing Then
    If r1.Row > 1 Then
        Set r2 = r1.offset(-1).resize(2).Entirerow.Find(What:="*", After:=Cells(r1.Row, 1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
        'Use line below if last used column is not in the named range
        'Set r2 = Cells.Find(What:="*", After:=Cells(r1.Row, 1), SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
        Range(Cells(r1.Row - 1, "A"), Cells(r1.Row, r2.Column)).Name = "KeyData"
    End If
End If

End Sub

阅读this,了解使用Select的危险。