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

I often use code that references a Long that represents the last row of my data, such as "LastrowProjectList" shown below.

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

In this instance I also have a Long to replace Column H, in both instances where H is used in Range("H1:H"...

在这个例子中，我还有一个Long来替换H列，在两个实例中，H在Range中使用（“H1：H”......

The Long to replace H is named "ProjectColumn". How do I re-write this such that H is replaced with "ProjectColumn"?

替换H的Long命名为“ProjectColumn”。如何重新编写这个，以便用“ProjectColumn”替换H？

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

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