我之前也碰到过这个头疼的问题——Excel自带的复制功能没法直接把单元格区域粘贴到Messenger这类平台，网上找的临时图表方法又太繁琐。后来摸索出一个更简便的技巧，通过一个不起眼的小形状就能把单元格转成图片存到剪贴板，完美适配各类社交平台粘贴需求：

手动操作步骤 #

• 在工作表的角落（或者任何不显眼的位置）创建一个任意尺寸的形状，比如1像素的小正方形就行，不用在意样式
• 选中你要复制的目标单元格区域，按Ctrl+C复制
• 选中刚才创建的小形状，然后按Ctrl+V粘贴，这时候单元格区域会自动转成图片粘贴到工作表上
• 剪切这个图片（Ctrl+X），现在剪贴板里就是图片格式的内容了，直接去Messenger或者其他平台粘贴就行

VBA自动化代码 #

如果需要频繁操作，可以用这段VBA代码一键完成，省去手动重复步骤：

Sub CopyRangeToClipboardAsPicture() 
    Application.ScreenUpdating = False 
    Range("SomeRange").Copy  ' 替换成你要复制的单元格区域，比如Range("A1:C5")
    ActiveSheet.Shapes("LittleShape").Select  ' 替换成你创建的形状名称
    ActiveSheet.Paste 
    Selection.Cut 
    Application.ScreenUpdating = True ' 恢复屏幕刷新
End Sub

注意：先提前创建好名为LittleShape的小形状，或者把代码里的名称改成你自己创建的形状名字；SomeRange替换成实际要复制的单元格范围。

内容的提问来源于stack exchange，提问作者dbb