如何引用excel中的命名列VBA

Question

我有一個電子表格，其中所有的列A都是名爲「Michael」的範圍。

我得到最後佔用的行的行號。

此代碼： LRow = Worksheets("Head").Range("A" & Rows.Count).End(xlUp).Row

此代碼不起作用： LRow = Worksheets("Head").Range("Michael" & Rows.Count).End(xlUp).Row

我如何得到這個使用列名「邁克爾」，而不是默認的一個與我合作？

Answer 1

你會參考範圍內的單元格的列和行數（）Range對象：

LRow = Cells(Range("micheal").Rows.count, Range("micheal").Column).End(xlUp).Row 

Answer 2

使用Find建議，而不是xlUp。兩種方法如下所示

Dim rng1 As Range 
Dim lRow As Long 

'Option 1 
lRow = Cells(Rows.Count, Range("Michael").Column).End(xlUp).Row 

'Option 2 
Set rng1 = Range("Michael").Find("*", Range("Michael")(1), , , xlPrevious) 
If Not rng1 Is Nothing Then MsgBox rng1.Row