Return to Answer

My solution comes from this post where specifically the answer suggests a function to make an array. That seemed odd to me because it is a very simple matter to define an array from a range, but then the below occurred to me.

Dim myArray As Variant
myArray = Range("A1:A10")
Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(myArray, etc)

Could also be written as:

Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(MakeArray("A1:A10"), etc)

Simply by passing the function as an argument I have removed two additional lines of code and it is still clear what is happening.

Going a step further, we can also integrate the RangeToLastRow function in the OP and finish off the Sub.

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("A1")), _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub

As long as we use descriptive function names, it should still be clear what we are doing to the inputs without having to Dim a whole lot of extra variables.

Edit:

Another method is to move the functions out of the arguments and into the function that is called, for example:

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("A1"), _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub
Sub MatchArrays(ByRef MatchRange As Range, ByRef CompareRange As Range)
 matchArray = MakeArray(MatchRange)
 compareArray = MakeArray(CompareRange)
 '*do stuff '
End Sub

My solution comes from this post where specifically the answer suggests a function to make an array. That seemed odd to me because it is a very simple matter to define an array from a range, but then the below occurred to me.

Dim myArray As Variant
myArray = Range("A1:A10")
Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(myArray, etc)

Could also be written as:

Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(MakeArray("A1:A10"), etc)

Simply by passing the function as an argument I have removed two additional lines of code and it is still clear what is happening.

Going a step further, we can also integrate the RangeToLastRow function in the OP and finish off the Sub.

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("A1")), _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub

As long as we use descriptive function names, it should still be clear what we are doing to the inputs without having to Dim a whole lot of extra variables.

Edit:

Another method is to move the functions out of the arguments and into the function that is called, for example:

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("A1"), _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub
Sub MatchArrays(ByRef MatchRange As Range, ByRef CompareRange As Range)
 matchArray = MakeArray(MatchRange)
 compareArray = MakeArray(CompareRange)
 '*do stuff '
End Sub

My solution comes from this post where specifically the answer suggests a function to make an array. That seemed odd to me because it is a very simple matter to define an array from a range, but then the below occurred to me.

Dim myArray As Variant
myArray = Range("A1:A10")
Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(myArray, etc)

Could also be written as:

Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(MakeArray("A1:A10"), etc)

Simply by passing the function as an argument I have removed two additional lines of code and it is still clear what is happening.

Going a step further, we can also integrate the RangeToLastRow function in the OP and finish off the Sub.

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("A1")), _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub

As long as we use descriptive function names, it should still be clear what we are doing to the inputs without having to Dim a whole lot of extra variables.

My solution comes from this post where specifically the answer suggests a function to make an array. That seemed odd to me because it is a very simple matter to define an array from a range, but then the below occurred to me.

Dim myArray As Variant
myArray = Range("A1:A10")
Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(myArray, etc)

Could also be written as:

Dim arrayToPaste As Variant
arrayToPaste = MatchArrays(MakeArray("A1:A10"), etc)

Simply by passing the function as an argument I have removed two additional lines of code and it is still clear what is happening.

Going a step further, we can also integrate the RangeToLastRow function in the OP and finish off the Sub.

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("A1")), _
 MakeArray(RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub

As long as we use descriptive function names, it should still be clear what we are doing to the inputs without having to Dim a whole lot of extra variables.

Edit:

Another method is to move the functions out of the arguments and into the function that is called, for example:

Public Sub CompareArrays()
 Dim arrayToPaste As Variant
 arrayToPaste = MatchArrays( _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("A1"), _
 RangeToLastRow(ThisWorkbook.Sheet1.Range("B1"))
 RangeToLastRow(ThisWorkbook.Sheet1.Range("C1")) = arrayToPaste
End Sub
Sub MatchArrays(ByRef MatchRange As Range, ByRef CompareRange As Range)
 matchArray = MakeArray(MatchRange)
 compareArray = MakeArray(CompareRange)
 '*do stuff '
End Sub