在單元格中使用公式，但將值導入Access

Question

我有一個數字列表，前3個數字是一個標識符，我將其拉出並設置在不同的列中。然後我想把這個電子表格導入到Access中，因爲我使用

=left(A2,3) 

作爲公式我很難將其導入到訪問中。我的解決方法，我創建是

Worksheets("Data").Range("C2:C2520").Value = "=LEFT(A2,3)" 
Worksheets("Data").Range("C2:C2520").Copy 
Worksheets("Data").Range("C2:C2520").PasteSpecial xlPasteValues 

這工作，但我想知道如果有一個簡單的方法來做到這一點。

感謝

Answer 1

不多簡單，但避免了複製/粘貼：

With Worksheets("Data").Range("C2:C2520") 
    .Formula = "=LEFT(A2,3)" 
    .Value = .Value 
End With