数组 - 如何从 databodyrange 中排除列（或保留公式）

Question

我最近一直在尝试使用数组和表格，并发现我何时通过以下代码将整个数组转移回表格：

Dim vArr As Variant
Dim SPArr As Variant
Dim lCount As Long

vArr =ThisWorkbook.Worksheets("catalogue").ListObjects(1).DataBodyRange.Value2

For lCount = LBound(vArr) To UBound(vArr)
    Select Case vArr(lCount, 1)
    Case "G-6R-15L2" 'These are model names
        vArr(lCount, 4) = 4.8
    Case "G-6SPF-ZB2"
        vArr(lCount, 4) = 4.5
    Case "U6-6S-15L2"
        vArr(lCount, 4) = 6
    Case "U-6S-30H2"
        vArr(lCount, 4) = 9
    Case "G-6SP-12L2"
        vArr(lCount, 4) = 4.5
    End Select
Next lCount
ThisWorkbook.Worksheets("catalogue").ListObjects(1).DataBodyRange.Value2 = vArr

我在第 3 列上的活动公式已经消失 :( 。我将在此处说明它之前的样子：

是否有聪明人知道在为数组引用表的 databodyrange 时如何排除某些列？喜欢：

vArr(1) =ThisWorkbook.Worksheets("catalogue").ListObjects(1).listcolumns(1).DataBodyRange.Value2
vArr(2)=ThisWorkbook.Worksheets("catalogue").ListObjects(1).listcolumns(2).DataBodyRange.Value2

只是以上在语法中不起作用:(，或其他一些建议的最佳实践，即对代码中的两列进行公式化？

Answer 1

您必须将“.Value2”替换为“.Formula”

与此类似：

Option Explicit

Sub testFormulas()
    Dim v As Variant

    With Sheet1.ListObjects(1).DataBodyRange
        v = .Formula
        .Clear
        .Formula = v
    End With
End Sub

数组现在将包含公式，并且您只更新第 4 列，因此您的代码应该可以工作，但请确保不要用数组中的值替换公式