VBA 代码将范围粘贴到 Excel 作为数组？

Question

So I have a range of items plugged in an Excel spreadsheet and I am looking for some code to paste those same values as an array (ie a ctrl + shift + enter formula) elsewhere in my spreadsheet. I've been trying to use the Range.FormulaArray property but can't seem to get it to work.

As an example, I have a list of text items such as:

Apple

Orange

Banana

And I want to paste these items as a hardcoded array elsewhere in the spreadsheet so that the formula in cell A1 will read:

={"Apple";"Orange";"Banana"}

And the values will spill in to the subsequent two cells

I'm using the latest version of Office 365.

Any ideas?

Answer 1

Use .Formula2 :

Sub EasyAsOneTwoThree()
    Range("A1").Formula2 = "={""Apple"";""Orange"";""Banana""}"
End Sub

As you see, it spills down very nicely.

(notice I had to double-up on the double quotes)