Excel選擇範圍內的最後一個值爲更新的列表宏

我會感謝以下幫助......Excel選擇範圍內的最後一個值爲更新的列表宏

我使用驗證列表功能，但我需要人們輕鬆地添加到列表。所以我錄製了一個宏，並將它從一個按鈕鏈接起來，所以他們只需要添加一個新值並點擊按鈕即可。問題是我需要它找到該列中最後一個填充的單元格。我在網上看了這裏，但因爲我對VBA完全陌生，所以無法弄清楚如何編輯它。

下面是代碼，我需要它在列D.

Range("F5").Select 
ActiveCell.SpecialCells(xlCellTypeSameValidation).Select 
With Selection.Validation 
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ 
    xlBetween, Formula1:="=Filters!$D$4:$D$21" 
    .IgnoreBlank = True 
    .InCellDropdown = True 
    .InputTitle = "" 
    .ErrorTitle = "" 
    .InputMessage = "" 
    .ErrorMessage = "" 
    .ShowInput = True 
    .ShowError = True 
End With 
Range("G15").Select

由於選擇D4最後填充值！

來源

2017-09-28 MikeT

你的意思是你有一個用於驗證其他細胞的清單，但這個名單需要是動態的等？然後你想讓D4顯示添加到列表中的最後一個值？ – PeterH

如果只需要一個動態驗證列表 - 您可以使用一個公式。 –

驗證列表用於記錄信息，例如，姓名，地址，郵編，類別。該類別需要保持一致和固定，所以最好的方法是強制用戶從驗證列表中選擇。我想要做的就是它的管理容易，所以當需要涉及到一個新的類別添加到列表中的來源，他們只需要添加新的項目並運行宏以更新驗證。我在這裏的問題是我的宏尋找一個確切的範圍內「過濾器$ d $ 4：！$ d $ 21日，當我需要它做了一系列$ d $ 4至該列中的最後一個人口稠密的小區感謝 – MikeT

不知道這是否是你想要的，但這裏是尋找填充在細胞中列最後一個（底部）代碼。稱其爲LASTROW = findLastRow（yoursheetname，yourcolumnname（如「F：F」或指定的列））：

Option Explicit 

Function findLastRow(Sheetname As String, ColumnName As String) 
    Dim lastRow As Integer 
    Dim r As Range 
    Dim WS As Worksheet 

    Set WS = Worksheets(Sheetname) 
    lastRow = WS.UsedRange.Rows.Count 
    '* 
    '* Search backwards till we find a cell that is not empty 
    '* 
    Set r = WS.Range(ColumnName).Rows(lastRow) 
    While r.Value = "" 
     Set r = r.Offset(-1, 0) 
    Wend 
    lastRow = r.Row 
    Set WS = Nothing 
    findLastRow = lastRow 
End Function

來源

2017-09-28 15:30:55 peakpeak

謝謝。我已經設法做我現在需要做的事情。 – MikeT