Sub CopyToClipbox() With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "要复制的文字" .PutInClipboard End WithEnd Sub
rang("A1").copy