包括从其他工作簿引用单元格时的格式

时间:2017-05-24 12:46:06

标签: excel excel-vba reference vba

我想将单元格的值和格式(文本颜色,字体大小,粗体等)从一个工作簿拉入/复制到另一个工作簿。

据我了解,使用标准单元格引用不起作用,您需要vba。

这是一些vba代码,它在同一工作表中将格式从a3复制到a10:

Dim ping As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A3")) Is Nothing Then
If ping = False Then
Range("A3").Copy
Range("C10").PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
End If
ping = True
Exit Sub
Else
ping = False
End If
End Sub

如何更改此代码以从名为“mybook”的其他工作簿中复制A3?

1 个答案:

答案 0 :(得分:1)

如果您只是想要一次性复制一个单元格,我不相信您需要VBA。您应该只能在一个工作簿中突出显示要复制的单元格,然后按CTRL + C [复制突出显示的内容] - 然后打开粘贴工作簿,右键单击要粘贴区域的左上角单元格,单击& #34;选择特殊粘贴",并确保粘贴'单选按钮设置为'全部',然后单击"粘贴"。如果这是您希望与格式一起粘贴的数据的链接,则解决方案更复杂。