Creating an Array from Cell Contents

[kmh6278]

I have data in column A of a spreadsheet. I'd like to create an array that contains all of that data, so that I can loop through it in VBA.

If the contents of A1, A2 and A3 are "example1"," example2", and "example3", in the end, I would like word_list to be something like:

word_list=array("example1","example2", "example3")

Here is what I have been working with, but it doesn't seem to be returning what I had anticipated it would

Dim DataList As Range, word_list As Variant


Set DataList = Sheets("Sheet2").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
word_list = DataList.Value

 

[BobUmlas]

Sub Demo()
wordlist = Range("A1:A3") '<==yes, as easy as that.
For i = 1 To 3
Debug.Print wordlist(i, 1) '<===just to prove it!
Next
End Sub

 

[Zack Barresse]

You don't need to create a range array, which I would suggest highly against doing. You can loop through the range as desired, as-is. Can you define your problem a little more, so we may help with the VBA you're looking for? For example, what is "DataList"? Where is this code located? Is it a userform, or a control on the worksheet?

 

[kmh6278]

Thanks for the responses. The plan is to have a list of key words maintained in Excel, which will then be looped through using a macro, searched and replaced in Word documents for editing files. I'd like to prevent having colleagues edit code by having them make any necessary changes to the Excel worksheet and not through the VBA editor.