1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Sub adc() On Error Resume Next '出错继续执行后面的代码 'Worksheets(&鳎溻趄酃quot;Sheet1").Range("A1").Font.ColorIndex = 3 'Selection.Font.ColorIndex = 5 Range("A1:A11").Select '选择辅助的区域 Selection.Copy '复制 Range("A13").Select '选择粘贴的第一个单元格 ActiveSheet.Paste '粘贴 End Sub
5、最后就可以看到我们成功的复制了粘贴将设置的内容