首页 > Excel专区 > Excel技巧 >

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

Excel技巧 2021-11-25 12:41:45

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

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

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

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


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

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

Excel 中如何只複製內容和格式1

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

Excel 中如何只複製內容和格式2

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

Excel 中如何只複製內容和格式3

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


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

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

Excel 中如何只複製內容和格式102

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

Excel 中如何只複製內容和格式91

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

Excel 中如何只複製內容和格式101

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

Excel 中如何只複製內容和格式4

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 = FalseEnd Sub
  1. Sub CopyOnlyValuesAndFormat()
  2. Set selectedRange = Application.Selection
  3. Set selectedRange = Application.InputBox("Select one range that you want to copy :", "CopyOnlyValuesAndFormat", selectedRange.Address, Type:=8)
  4. Set dRange = Application.InputBox("Select one blank Cell to palce values:", "CopyOnlyValuesAndFormat", Type:=8)
  5. selectedRange.Copy
  6. dRange.Parent.Activate
  7. dRange.PasteSpecial xlPasteValuesAndNumberFormats
  8. dRange.PasteSpecial xlPasteFormats
  9. Application.CutCopyMode = False
  10. 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 = FalseEnd Sub
 

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

Excel 中如何只複製內容和格式5

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

Excel 中如何只複製內容和格式6

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

Excel 中如何只複製內容和格式7

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

Excel 中如何只複製內容和格式8


标签: 何在excel20132016通过使用VBA

office教程网 Copyright © 2016-2020 https://www.office9.cn. Some Rights Reserved.