Array Values to A Range of Cells

[Ark68]

I'm very inexperienced with array's and really not able to understand any online explanations.

I would like to take a list of 13 known values and populate 13 consecutive cells with those values.

ie CUPEWP, CUPERP, CUPEE1, CUPEE2, CUPEL1, HPE1, HPE2, HPL1, RPE1, RPE2, RPL1, WPE1, WPE2, WPL1 to populate range A3:A16

I could do 13 lines of code of .range("A3") = "CUPEWP" etc, but I'm wondering if there is a cleaner, more efficient way of doing this. Maybe with an array?

 

[snjpverma]

I'm very inexperienced with array's and really not able to understand any online explanations.

I would like to take a list of 13 known values and populate 13 consecutive cells with those values.

ie CUPEWP, CUPERP, CUPEE1, CUPEE2, CUPEL1, HPE1, HPE2, HPL1, RPE1, RPE2, RPL1, WPE1, WPE2, WPL1 to populate range A3:A16

I could do 13 lines of code of .range("A3") = "CUPEWP" etc, but I'm wondering if there is a cleaner, more efficient way of doing this. Maybe with an array?

Select Range A3:A16 and enter the below array formula . IT's an array formula so confirm with Ctrl + Shift + Enter.
={"CUPEWP";" CUPERP";" CUPEE1";" CUPEE2";" CUPEL1";" HPE1";" HPE2";" HPL1";" RPE1";" RPE2";" RPL1";" WPE1";" WPE2";" WPL1"}

 

[Ark68]

Hi snjpverma .... thanks for your reply. I feel terrible ... I forgot to specify that I was looking for a VBA solution.

 

[Tetra201]

Is this what you need?

Sub Test()
    Range("A3:A16") = WorksheetFunction.Transpose(Array("CUPEWP", _
        "CUPERP", "CUPEE1", "CUPEE2", "CUPEL1", "HPE1", "HPE2", _
        "HPL1", "RPE1", "RPE2", "RPL1", "WPE1", "WPE2", "WPL1"))
End Sub

 

[Rick Rothstein]

Hi snjpverma .... thanks for your reply. I feel terrible ... I forgot to specify that I was looking for a VBA solution.

Using what snjpverma posted as a basis...

[table="width: 500"]
[tr]
	[td]Range("A3:A16")=[{"CUPEWP";"CUPERP";"CUPEE1";"CUPEE2";"CUPEL1";"HPE1";"HPE2";"HPL1";"RPE1";"RPE2";"RPL1";"WPE1";"WPE2";"WPL1"}][/td]
[/tr]
[/table]

 

[Ark68]

Thank you all ... I hadn't seen anywhere else this concept, and was exactly what I needed. Thank you very much!

 

[Tetra201]

You are most welcome.