在指定列的最后一个单元格（根据其标题）中找到一个值

Question

对我来说有点棘手（对我来说）任务要做。我想创建宏，它会在指定列的最后一个单元格中找到一个值（根据其标题）。例如，它会在名为“test”的列中找到最后一个值。

Answer 1

对于你来说是否有点棘手，因为你没有尝试，或者因为你尝试过并且无法弄清楚它？如果你首先提供你的代码，那么总是很好，这样我们就可以看到你在做什么以及我们如何才能使它工作。

无论如何，这里是我放在一起，做你所问的东西。它假定我们将在Sheet 1中进行搜索。在Visual Basic Editor (VBE)中，打开Sheet1并粘贴此代码。然后，您可以像使用常规宏一样使用它（请务必更改headerrow值和搜索字符串以满足您的需求）。

CODE

Public Sub FindValueInColumn() 

    Dim headerRow As Integer 
    Dim totalColumnsInHeaderRow As Integer 
    Dim searchColumn As Integer 
    Dim lastRowInSearchColumn As Integer 
    Dim columnSearchString As String 

    headerRow = 1 'change this to correct header row 
    totalColumnsInHeaderRow = Cells(headerRow, Columns.Count).End(xlToLeft).Column 
    columnSearchString = "Test" 'change to the text to search 
    searchColumn = 0 

    'for every column that has a value in it in the header row 
    Dim currentColumn As Integer 
    For currentColumn = 1 To totalColumnsInHeaderRow 
     'if that value equals what we're looking for (in this case, "Test") 
     If StrComp(Cells(headerRow, currentColumn).Value, columnSearchString, vbTextCompare) = 0 Then 
      'save the column that contains the value, then exit the loop 
      searchColumn = currentColumn 
      Exit For 
     End If 
    Next 

    'if the column of interest exists in the header row 
    If searchColumn > 0 Then 
     'Set F2 equal to the last value in that column 
     lastRowInSearchColumn = Cells(Rows.Count, searchColumn).End(xlUp).Row 
     Range("F2").Value = Cells(lastRowInSearchColumn, searchColumn).Value 
    End If 

End Sub 

BEFORE

AFTER

Answer 2

我真的很喜欢看到不同的编码风格。很明显，有不止一种方式来剥皮这只猫。

Sub Last_Cell_In_Column() 
    Dim sh As Worksheet 
    Dim col As Long 

    Set sh = ThisWorkbook.ActiveSheet 
    col = 0 
    col = sh.Rows(1).Find("test").Column 
    If col > 0 Then 
     MsgBox (sh.Cells(sh.Rows.Count, col).End(xlUp).Value) 
    End If 
End Sub