Question

我有一个userform，用户可以从中选择要插入活动单元格的电子表格中的文本块。问题是，我不希望以任何方式调整行的大小或更改行。我调整了userform文本框的大小，使其包含正确数量的字符，me.textbox.linecount返回正确的整数。诀窍是将第1行到第n行拉到电子表格上，并在每次循环迭代时进行偏移。任何人都能做到这一点吗？

Private Sub cmdINS_Click()
    Dim insTEXT As String
    Dim nROWS As Integer
    insTEXT = Me.txtINS.Value
    If Len(insTEXT) < 91 Then
        ActiveWindow.ActiveCell.Value = insTEXT
    Else:
        Me.txtINS.SetFocus
        nROWS = Me.txtINS.LineCount
        For i = 1 To nROWS
            ActiveWindow.ActiveCell.Value = 'Me.txtINS LINE i  <---Help, please
            ActiveWindow.ActiveCell.Offset(1, 0).Select
        Next
    End If
    Unload Me
End Sub

Answer 1

假设每一行都有一个回车符/换行符，你可以这样做：

Dim vLines As Variant ' Vector to hold lines
vLines = Split(insText, vbCrLF) '

现在你可以逐行阅读，vLines（n）

从userform文本框中拉出“n”行

1 个答案: