范围引用列和行的 2 个变量

Question

我经常使用引用代表数据最后一行的 Long 的代码，例如下面显示的 "LastrowProjectList"。

在这种情况下，我还有一个 Long 来替换列 H，在两种情况下，H 都用于范围（"H1:H"...

替换H的Long命名为"ProjectColumn"。我该如何重写，以便将 H 替换为 "ProjectColumn"?

For Each ThisCellinProjectList In Sheets("VBA_Data").Range("H1:H" & LastrowProjectList)

Answer 1

尝试

For Each ThisCellinProjectList In Sheets("VBA_Data").Range(Sheets("VBA_Data").Cells(1, ProjectColumn), Sheets("VBA_Data").Cells(LastrowProjectList, ProjectColumn))

或

With Sheets("VBA_Data")
    For Each ThisCellinProjectList In .Range(.Cells(1, ProjectColumn), .Cells(LastrowProjectList, ProjectColumn))
    'rest code here
    Next ThisCellinProjectList
End With

范围引用列和行的 2 个变量

Range referencing 2 variables for Column and Row

variables

excel

vba

range

long-integer