对于循环无尽

Question

我试图将范围N2：N200中的每个条目放在一个表单文本框中，但它只返回1个条目，当我运行宏时，每个循环都不会停止。

TextBox11.Value = ThisWorkbook.Sheets("Sheet1").Range("N2")
    For Each x In ThisWorkbook.Sheets("Sheet1").Range("N2:N200")
        If x <> "" Then

            If x1 = "" Then
                x1 = x
            Else
                x1 = x1 & vbCr & Chr(13) & x
            End If

        End If

    Next

Answer 1

尝试将代码更改为以下内容：

Sub FillTextBox()
    Dim Str As String
    TextBox11.MultiLine = True
    For Each cell In ThisWorkbook.Sheets("Sheet1").Range("N2:N200")
        Str = Str & cell.Value & Chr(13)
    Next cell
    TextBox11.Text = Str
End Sub