excel vba将范围设置为currentregion

Question

我正在尝试将范围设置为等于当前区域。下面的代码有效，但激活命令改变了我不想要的焦点。如果我删除了最后一行的激活命令 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

有很多代码丢失，但您可以使用类似这样的方法将二维变量数组（例如 Data）的内容传输到当前区域。

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

由于不能保证 Data 和 .CurrentRegion 的大小相同，因此这可能会更好，

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

鉴于 Data 二维数组的范围是未知的，因此很难更精确。

经测试：

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