VBA Excel.根据命名单元格的偏移量编辑区域

Question

我不知道这是否可能，但感觉应该是。

我有一个定义名称的单元格："Data_A"(它是一个单个单元格，即 1x1 范围(。

我想将数组 (N x M( 写入它附近的单元格(即，i 列横跨，j 行向下(。

如果数组的维度相同，我知道如何将数组写入命名范围，并且我知道如何偏移范围。

在这种情况下，我会执行以下操作：

'"Data_A" refers to a named range of cells that is 2x3 in size.
'"wks_datainput" is the worksheet that Data_A sits in.
Dim Outputs() as Double: Redim Outputs(1 to 2, 1 to 3)
wks_datainput.Range("Data_A").Offset(6,7).value = Outputs

我的问题是：如果"Data_A"指的是 1x1 的命名范围怎么办？如果"Data_A"的尺寸与"输出"的尺寸不匹配，如何写入附近的单元格？

次要问题 - 如何清除这些单元格(不使用循环(？

 wks_datainput.Range("Data_A").Offset(6,7).ClearContents

Answer 1

那么我想这个。调整大小非常有用。

Dim Outputs() As Double: ReDim Outputs(2, 3)
Range("Data_A").Offset(6, 7).Resize(UBound(Outputs, 1), UBound(Outputs, 2)).Value = Outputs