将整列复制到文本框中

Question

我需要所有复印L栏我的工作表Sheet1一个内部的文本框上Sheet4.
我试着这样做:

Sub ToTB()
    Sheets("Sheet4").TextBoxes("TextBox 2").Text = Sheets("Sheet1").Range("L:L").Text
End Sub

但后来出现了这条消息:

应用程序定义或对象定义的错误

有什么建议？？

Answer 1

这是一些有点直接的东西.如果您已经拥有TextBox,只需要添加一系列单元格中的值:

Sub Test()
    Dim srng As Range
    Dim sWs As Worksheet: Set sWs = Sheets("Sheet1")
    Set srng = sWs.Range("L1", sWs.Range("L" & sWs.Rows.Count).End(xlUp))
    With Sheets("Sheet4").Shapes("Textbox 2").OLEFormat.Object
        .Text = Join(Application.Transpose(srng), vbCrLf)
    End With
End Sub

或者如果你希望它添加为Gary发布的内容:

Sub Test()
    Dim sWs As Worksheet, dWs As Worksheet
    Set sWs = Sheets("Sheet1"): Set dWs = Sheets("Sheet4")

    Dim dRng As Range, sRng As Range
    Set dRng = dWs.Range("A1:A10") 'change to suit
    Set sRng = sWs.Range("L1", sWs.Range("L" & sWs.Rows.Count).End(xlUp))

    With dWs.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        dRng.Left, dRng.Top, dRng.Width, dRng.Height).OLEFormat.Object
        .Text = Join(Application.Transpose(sRng), vbCrLf)
    End With
End Sub