把剪贴板里的内容直接写入一个数组里

木槿花西月锦绣

请教，怎么样能把剪贴板里的内容直接写入一个数组里啊？
附件是百度查找的代码，可以使用msgbox输出，想要该写成写入数组
不是单元格写入数组，是将剪贴板写入数组，后续就可以直接对数组进行操作了

扑腾

Sub t()
Set Rng = Selection
arr = Rng.Value
End Sub

扑腾

好像直接arr=selection也行

ww87725244

读取字符串，再写入数组

逍遥爱迪生

Sub DoIt()
    '[d1] = GetClipBoardString

   
    Dim S As String
    S = GetClipBoardString
    Dim ARR1() As String, Arr2() As String
    Dim Arr3()
    ARR1 = Split(S, vbCrLf)
    Arr2 = Split(ARR1(0), Chr(9))
    'MsgBox UBound(Arr2)
    Dim I As Long
    ReDim Arr3(UBound(ARR1))
    For I = 0 To UBound(ARR1)
        Arr3(I) = Split(ARR1(I), Chr(9))
    Next
    MsgBox Arr3(0)(0) & vbCrLf & Arr3(0)(1)
End Sub