创建并显示Msgbox并将数组内容和字长输出到工作表

Question

我正在尝试创建一个Msgbox，以在工作表的一列中显示所有单词。然后创建另一个消息框，其中包含单词数以及大于5个字符的单词的计数。我不太确定如何使用以下变量创建Msgbox，因此希望获得一些帮助！

到目前为止，我编写了一个子程序，该子程序使用GetOpenFilename从文本文件导入单行文本。然后，我使用split来使用分隔符来解析文件。

文本文件的内容如下：

Zags，金鹰，鹰，孔雀，灵狮，金狮riff，唐，火枪手

下面是我到目前为止的代码：

        cell.DefaultCellStyle.NullValue = "-- Select -- ";

一个消息框的格式应如下：

文件中的单词。

Sub ImportTextFile()

Dim fileName As Variant     ' array will hold the file name or names to import

Dim i As Integer            ' counter for loops
Dim nLargeWords As Integer  ' counter for words longer than 5 characters

Dim dataLine As String      ' string to hold a single line of text from file
Dim lineCount As Integer

Dim arrWords() As String    ' array that will hold the contents of the text file
Dim msg As String           ' string for building the first message box

Const delim = ","           ' Added a constant for the delimiter in Split function

With Range("Output_lbl")
         Range(.Offset(1, 1), .Offset(100, 2)).ClearContents
End With

'============Navigate to file location and get filename of text file


fileName = Application.GetOpenFilename(, , "Select a text file", , False)       ' Used GetOpenFilename method to navigate to the file and obtain the file name.


'============Import file into temp string variable then parse into an array


Open fileName For Input As #1       ' To open the text file.
    i = 0
    With Range("Output_lbl")
        Do Until EOF(1)

            Line Input #1, dataLine             ' Setting the first line of the text file to a string variable.
            arrWords() = Split(dataLine, delim)         ' Using Split to parse the file. The delimiter was determined to be "," which was declared a constant above.
            For i = LBound(arrWords()) To UBound(arrWords())        ' Parse into an array.
                .Offset(i, 0) = Trim(arrWords(i))
            Next i
            i = i + 1
        Loop
    End With

Close #1                            ' To close the text file.


'============Create and display the message boxes and output array contents and word lengths to the output sheet.


End Sub

另一个消息框应采用以下格式：

Microsoft Excel

Zags
Golden Eagles
Hawks
Peacocks
Greyhounds
Golden Griffins
Dons
Musketeers

Answer 1

不使用数组的示例代码。您只需要修改循环即可查看数组中的变量索引，而不是列循环中的变量行。然后，下面使用的逻辑应该很容易扩展到您的问题。

---

Option Explicit

Sub Example()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
Dim LR As Long, i As Long
Dim MyString As String, MyCounter As Long, Arr

LR = ws.Range("A" & ws.Rows.Count).End(xlUp).Row

For i = 1 To LR
    MyString = MyString & ws.Range("A" & i) & ", "

    If Len(ws.Range("A" & i)) > 5 Then
        MyCounter = MyCounter + 1
    End If
Next i

MyString = Left(MyString, Len(MyString) - 2) 'Remove last ", "
Arr = Split(MyString, ", ")

MsgBox "Total Words: " & UBound(Arr) + 1 & vbNewLine & "Large Words: " & MyCounter


End Sub