VBA宏通过在runime上传递列标题来计算行数

Question

我想通过在运行时传递列标题来计算行数

我正在使用从SQL DB获取的表格的图表，并保存在工作表2中[来自同一工作簿，只有从DB获取的数据存储在工作表2中]。 X轴和Y轴取决于我想要绘制的表格和参数。现在通过相应地更改Sheet 1中的X和Y轴，我希望宏计算相关列中相应的最后一行。我怎么能在运行时传递该列标题。

我可以通过使用find选项识别列标题值，但无法在运行时传递列标题值，这是我的类型评估代码。

Dim Col_Header, Col_H, Row_Num As String

Set Sheet = ActiveWorkbook.Sheets("Sheet2")
Sheets("Sheet2").Activate
Cells.Find(What:=Sheets("Sheet1").Cells.Range("J5").Value,After:=ActiveCell,LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,         MatchCase:=False, SearchFormat:=False).Activate

Col_Num = ActiveCell.Address
Col_H = Right(Col_Num, 3)
Col_Num = Col_H
Col_H = Left(Col_Num, 1)
Col_H = "" & Chr(34) & Col_H & Chr(34) & ""

Dim LastRow As Long
    With Sheets("Sheet2")
        LastRow = .Cells(.Rows.Count, "& col_H &").End(xlUp).Row
        End With 

选择X和Y轴

sheet2中的相应数据

感谢
mmaddi4u

Answer 1

使用匹配将为您提供多种排序，但是从find返回的范围中，您可以获取column属性，然后使用单元格（row，col）来执行您需要执行的操作。所以rngfound = cells.find（等等，然后rngfound.column。或者在平板电脑上匹配（＆＃34;寻找＆＃34;，a1：t1,1,0），这样就无法做到确切的代码。