Имя листа vba в массиве, но ничего не показано

Question

Я хочу показать имя листа, которое соответствует слову, начинающемуся с "x" или "3" в массиве, как это, но теперь показывает только последнее.

WshtNames = Array ("X310361", "X310377 "," X310379 "," X310400 "," 310531 "," 310539 "," X310561 "," X310579 "," X310605 "," 310610 "," 310645 "," 310646 "," 310647 "," 310653 ", "X310660", "X310662", "310665")

Sub MultiSheetArray()
'allows you to store an array of sheets
Dim ws As Worksheet
Dim shtArray() As String
Dim intA As Integer
Dim intB As Integer
' First you need to enter the sheet names into an array
For Each ws In ActiveWorkbook.Worksheets
    If LCase(Left(ws.Name, 1)) = "x" Or Left(ws.Name, 1) = "3" Then
        intA = intA + 1
        ReDim Preserve shtArray(intA)
        shtArray(intA) = ws.Name
    End If
Next ws
' Now list the sheets we entered into our array "shtArray"

    Debug.Print shtArray(intA)

End Sub

https://i.stack.imgur.com/9fhc3.png

Answer 1

intA - последний индекс в shtArray().Debug.Print shtArray(intA) напечатает значение в последнем индексе.Join(shtArray,vbNewLine) объединит все элементы n в массиве в строку, разделенную повторением строки.

Debug.Print Join(shtArray,vbNewLine)

Счетчик должен увеличиваться после изменения размера массива и значениядобавлен, потому что массив начинается с 0. В противном случае первый элемент в массиве не будет иметь значение.

    If LCase(Left(ws.Name, 1)) = "x" Or Left(ws.Name, 1) = "3" Then
        ReDim Preserve shtArray(intA)
        shtArray(intA) = ws.Name
        intA = intA + 1
    End If