如何在Excel 2013/2016中通过使用VBA宏脚本来只复制选中区域中的内容和格式

office教程网 2024-05-06 01:44:59 599

默认

后台-插件-广告管理-内容头部广告位

后台-系统设置-扩展变量-手机广告位-内容正文顶部

摘要： 本文将讲述如何只将选中的数据区域中的内容和格式到Excel中的另一个区域。如何在Excel 2013/2016中通过使用VBA宏脚本来只复制选中区域中的内容和格式。

通过选择性...

本文将讲述如何只将选中的数据区域中的内容和格式到Excel中的另一个区域。如何在Excel 2013/2016中通过使用VBA宏脚本来只复制选中区域中的内容和格式。

通过选择性粘贴来只复制值和格式
通过使用VBA脚本来只复制值和格式

假设您要将选定区域中的所有单元格复制到另一个区域中，并且您只想在复制所选单元格范围内内容值和格式。那么您可以使用“选择性粘贴”功能或使用新的VBA宏来完成复制。

通过选择性粘贴来只复制值和格式

要在Excel中仅将值和格式从一个选中区域复制到另一个区域，您可以执行以下步骤：

步骤1：选择一个想要复制的区域，然后按键盘上的Ctrl C键复制选定的单元格。

步骤2：选择一个要放置拷贝内容的的空白单元格，例如：Cell E1。右键单击它，从右键弹出菜单中选择“选择性粘贴”，然后单击“值和源格式”。

步骤3：您将看到所有值和格式都已复制到另一个范围。

通过使用VBA脚本来只复制值和格式

您还可以使用Excel VBA宏仅将选定范围的单元格中的值和格式复制到另一个区域中。只需执行以下步骤：

步骤1：打开您的Excel工作簿，然后单击开发工具选项卡下的“Visual Basic”命令，或者只需按“ALT F11”快捷方式。

步骤2：然后将出现“Visual Basic编辑器”窗口。

excel 使用删除重复项命令删除重复行使用高级筛选删除重复行使用公式删除重复行
本文将指导您如何从Microsoft电子表格中删除重复的行。使用删除重复项命令删除重复行使用高级筛选删除重复行使用公式删除重复行假设您有一个数据区域为A1：B6的数据列表，其中包含的重

步骤3：单击“插入” – >“模块”以创建新模块。

步骤4：将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。

Sub CopyOnlyValuesAndFormat()
    Set selectedRange = Application.Selection
    Set selectedRange = Application.InputBox("Select one range that you want to copy :", "CopyOnlyValuesAndFormat", selectedRange.Address, Type:=8)
    Set dRange = Application.InputBox("Select one blank Cell to palce values:", "CopyOnlyValuesAndFormat", Type:=8)
    selectedRange.Copy
    dRange.Parent.Activate
    dRange.PasteSpecial xlPasteValuesAndNumberFormats
    dRange.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
End Sub

Sub CopyOnlyValuesAndFormat()
Set selectedRange = Application.Selection
Set selectedRange = Application.InputBox("Select one range that you want to copy :", "CopyOnlyValuesAndFormat", selectedRange.Address, Type:=8)
Set dRange = Application.InputBox("Select one blank Cell to palce values:", "CopyOnlyValuesAndFormat", Type:=8)
selectedRange.Copy
dRange.Parent.Activate
dRange.PasteSpecial xlPasteValuesAndNumberFormats
dRange.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End Sub

Sub CopyOnlyValuesAndFormat()
    Set selectedRange = Application.Selection
    Set selectedRange = Application.InputBox("Select one range that you want to copy :", "CopyOnlyValuesAndFormat", selectedRange.Address, Type:=8)
    Set dRange = Application.InputBox("Select one blank Cell to palce values:", "CopyOnlyValuesAndFormat", Type:=8)
    selectedRange.Copy
    dRange.Parent.Activate
    dRange.PasteSpecial xlPasteValuesAndNumberFormats
    dRange.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
End Sub

步骤5：返回当前工作表，然后运行上面的excel宏。点击运行按钮。

步骤6：选择一个要复制的范围。单击确定按钮。

步骤7：选择一个空白单元格来放置值。单击确定按钮。

步骤8：让我们看看结果：