如何将多个值放入 1 个变量或多个变量中？

Question

Extracting RollerCoasters with Wood Only

            Sub RollerCoaster()

            Dim strType As String
            Dim blnLoop As Boolean
            Dim strCoaster As String

            strType = "Wood"

            Range("A2").Select
            blnLoop = True

            Do Until ActiveCell.Value = ""
                ActiveCell.Offset(1, 0).Select
                strType = ActiveCell.Offset(0, 2).Value

                    If strType = "Wood" Then
                        strCoaster = ActiveCell.Value
                        blnLoop = False
                    Else
                    End If

            Loop

            MsgBox ("The RollerCoaster that are made of Wood are " & strCoaster)

            End Sub

So I created a Sub that finds the rollercoaster made out of wood, and it displays which rollercoaster is made out of wood in a message box. However, how can I make my code display more than one rollercoaster, if I have more on the list. (Look at image)

Answer 1

You could create an array to get each value. To do that you can dim an string array with the code Dim stringArray() As String and then you would include each value of strCoaster in that array. You could also make a fairly small tweak of doing the concatenation in the variable assignment using the code below:

        Sub RollerCoaster()

        Dim strType As String
        Dim blnLoop As Boolean
        Dim strCoaster As String

        strType = "Wood"

        Range("A2").Select
        blnLoop = True

        Do Until ActiveCell.Value = ""
            ActiveCell.Offset(1, 0).Select
            strType = ActiveCell.Offset(0, 2).Value

                If strType = "Wood" Then
                    strCoaster = ActiveCell.Value & " ," & strCoaster
                    blnLoop = False
                Else
                End If

        Loop

        MsgBox ("The RollerCoaster that are made of Wood are " & strCoaster)

        End Sub

If you iteratively concatenate the values you can list all of the values. You can also use & vbCrLf & for line breaks if you want to.