Question

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

在这个例子中，我也有一个Long来取代H，在两个实例中，H在Range中使用（“H1：H”......

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

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个变量

1 个答案: