從文本框中復制文本並粘貼到新工作表的單元格中

Question

我正在尋找一種方法來復制由上一個宏創建的TextBox的所有文本，並將其粘貼到Sheet3的 Cell A1中。

有什么建議么？？

這是上一個宏：

  Sub Copy()
    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

Answer 1

您可以計算形狀。 然后將文本放在計數最高的文本框中。 例如。

    Sub Copy()
    Dim ws As Worksheet, sh As Worksheet
    Dim Rws As Long, Rng As Range
    Dim i As Long
    Dim shP As Shape

    Set sh = Sheets("Sheet1")
    Set ws = Sheets("Sheet4")

    With sh
        Rws = .Cells(Rows.Count, "F").End(xlUp).Row
        Set Rng = .Range(.Cells(1, "F"), .Cells(Rws, "F"))
    End With

    With ws.Shapes
        i = .Count
    End With

    Set shP = ws.Shapes(i)

    shP.TextFrame.Characters.Text = Join(Application.Transpose(Rng), vbCrLf)

End Sub