excel vba set range as currentregion

Question

Я пытаюсь установить диапазон, равный currentregion. Код ниже работает, но команда активирования меняет фокус, который я не хочу. Если я удалю активирующую команду excel, произойдет сбой в последней строке. Код ниже приведен в модуле класса и части более крупного суб. Какие-либо предложения?

worksheets(SHT).activate 'stops the runtime error but changes sheet 
With Worksheets(SHT) 
     With .Range(TBL2).CurrentRegion 
      .Cells = Data 
     End With 
    End With 

Answer 1

Существует много коды отсутствует, но вы можете перенести содержимое 2 размерных вариант массива (например данных) в текущую область, используя что-то вроде этого.

With Worksheets(SHT) 
    With .Range(TBL2).CurrentRegion 
     .Cells = Data 
    End With 
End With 

Поскольку нет никакой гарантии, что данных и .CurrentRegion имеют тот же размер, что это может быть лучше, так как,

With Worksheets(SHT) 
    With .Range(TBL2).resize(ubound(Data, 1), ubound(Data, 2)) 
     .Cells = Data 
    End With 
End With 

Трудно быть более точными, учитывая, что в экстентах Данные 2-мерный массив неизвестен.

Протестировано:

Sub collect_change_dump() 
    Dim SHT As String, TBL2 As String, v As Long, w As Long, Data As Variant 
    SHT = "Sheet1" 
    TBL2 = "D3" 
    With Worksheets(SHT) 
     With .Range(TBL2).CurrentRegion 
      Data = .Cells.Value 
     End With 
     For v = LBound(Data, 1) To UBound(Data, 1) 
      For w = LBound(Data, 2) To UBound(Data, 2) 
       Data(v, w) = "blah" 
      Next w 
     Next v 
     With .Range(TBL2).Resize(UBound(Data, 1), UBound(Data, 2)) 
      .Cells = Data 
     End With 
    End With 
End Sub