将活动单元格地址保存在variablesvba中

以下代码不会将select的地址存储在variablessek中，即使sek被声明为范围时也是如此。 它正在选取所选单元格的值。 我需要存储的单元格的地址范围不是string。

Range(zro(fm)).Select Set sek = Selection 

我尝试过了

 set sek=Cells(application.address) 

无法获得解决scheme。 我已经这样写了

 For fm = 1 To tmp Range(zro(fm)).Select Dim sek As Range: Set sek = Selection Range(zro(fm + 1)).Select Dim sel As Range: Set sel = Selection Sheets("extract").Cells((5 * a) + 1, fm).Value = Application.WorksheetFunction.max(Range("sek:sel")) Sheets("extract").Cells((5 * a) + 2, fm).Value = Application.WorksheetFunction.Min(Range("sek:sel")) Next 

Answer 1

希望这可以帮助。

  For fm = 1 To tmp Range(zro(fm)).Select Dim sek As Range: Set sek = Selection Range(zro(fm + 1)).Select Dim sel As Range: Set sel = Selection Sheets("extract").Cells((5 * a) + 1, fm).Value = Application.WorksheetFunction.max(Range(sek,sel)) Sheets("extract").Cells((5 * a) + 2, fm).Value = Application.WorksheetFunction.Min(Range(sek,sel)) Next 

Answer 2

你需要的是

 Application.WorksheetFunction.Max(Range(sek.Address & ":" & sel.Address)) 

这将结合范围。

你也不需要激活范围来分配它。 你可以replace

 Range(zro(fm)).Select Set sek = Selection 

同

 Set sek = Range(zro(fm))