从选定单元格中设置命名区域

Question

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

我试过录制一个宏并对其进行调整以满足我的需要，但无法做到这一点。此外，我还尝试使用单元格引用编写下面的代码。但这需要在很多文件上运行，不同的文件将有不同的底部行。

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

Answer 1

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

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

阅读本文了解使用Select的危险。