Sub xx() X = Array("1", "2", "3", "4", "5", "6") Dim d As Object Set d = New DataObject For i = 1 To 5 d.SetText '如何将X写入剪切板? d.PutInClipboard Debug.Print d.GetText Next Set d = Nothing End Sub