取某个单元格的值_vba中如何进行单元格复制,Copy方法使用介绍,一定要学

NO.1

在Excel操作过程当中,除了给表格输入内容就数单元格复制最常用了,通常快捷方法有Ctrl+c,Ctrl+v。

不用说,这种方法对于操作十分方便,那么如何利用代码来实现复制功能呢!

因为在编程过程中,会用到将一个或多个单元格的内容复制另外单元格当中,程序过程中是不能进行键盘干预的。

所以我们将学会使用其代码方法来对单元格进行复制。

2764141ed49a2a146a639c8eca69b096.png

NO.2

很简单,使用Range对象的Copy方法。

具体方法和参数如下图

fa81c65a54a562ac838d347cfb3a3b56.png

Copy方法的功能就是将一个区域单元格复制到指定区域,如不指定得到地点,那么就复制到剪贴板当中。

然后再用PasteSpecial方法来复制,这篇文章就不做PasteSpecial方法介绍了,主要来介绍一下Copy (Destination)带参数的方法。

d5fe3b58670a0f757945312ea2f91d5c.png

NO.3

上图为举例介绍,任意单击鼠标选择一个单元格,分别实现向右或向下复制单元格内容。

在某些特定环境下面,这种方法真的十分有效,节省很多操作步骤。

因为将复制简化成了单击两下鼠标的操作。

7b82540be79cc190ca1aea554817a512.png

NO.4

代码介绍

获取复制单元格函数:getRanges()

Private Function getRanges(sR As Range) As Range    Dim w As Worksheet    Set w = ActiveSheet    Dim n As Integer, ri As Long, ci As Long    nr = sR.Row    nc = sR.Column    ri = w.Cells(w.Rows.Count, nc).End(xlUp).Row '取最大行号    ci = w.Cells(nr, w.Columns.Count) _ .End(xlToLeft).Column '取最大列号    If ri < nr Or ri = 1 Then GoTo Err0    If ci < nc Or ci = 1 Then GoTo Err0    Set getRanges = _w.Range(w.Cells(sR.Row, sR.Column) _, w.Cells(ri, ci))    Exit FunctionErr0:    Set getRanges = NothingEnd Function

其功能是将选定单元格到整个表格最右下角之间的单元格,作为复制的内容。

向下复制函数:copyDown()

Private Sub copyDown(ri As Long, sR As Range)    With sR        .Copy Destination:=.Offset(ri, 0) _          .Resize(sR.Rows.Count, sR.Columns.Count)    End WithEnd Sub

向右复制函数:copyRight()

Private Sub copyRight(ci As Long, sR As Range)    With sR        .Copy Destination:=.Offset(0, ci) _          .Resize(sR.Rows.Count, sR.Columns.Count)    End WithEnd Sub

向右复制按钮过程代码

Private Sub CommandButton1_Click()    Dim sR As Range    Set sR = Selection    Dim svR As Range    Set svR = getRanges(sR)    If svR Is Nothing Then Exit Sub    Call copyRight(svR.Columns.Count, svR)End Sub

向下复制按钮过程代码

Private Sub CommandButton2_Click()    Dim sR As Range    Set sR = Selection    Dim svR As Range    Set svR = getRanges(sR)    If svR Is Nothing Then Exit Sub    Call copyDown(svR.Rows.Count, svR)End Sub

重点

重点就在于选择Destination参数,就说这个参数决定了要复制的目的地,如果进行跨表复制,那么要带上完整的表路径。

例如:

Dim xR As Range        Set xR = ThisWorkbook.Worksheets("Sheet3").Range("A1")        Activesheet.range("A1:F10").Copy Destination:=xR

就是将当前表中的A1:F10单元格内容复制到表Sheet3当中以A1开始的位置。

复制内容包括值和格式以及公式。

NO.5

Copy方法并不难学,甚至都不用十分用功就会明白。

但是会用和应用熟练是两码事情,所以要多做练习之后会提高使用Copy方法的灵活性,才能得心应手。

很多事情不都是这个道理吗!

喜欢就关注、收藏

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/520609.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

Visual Studio Code(VScode)设置为中文界面

安装插件重启即可&#xff1a; 名称: Chinese (Simplified) Language Pack for Visual Studio Code

重磅!阿里云发布业界首款SaaS化防火墙

近日&#xff0c;阿里云发布了业界首款SaaS化防火墙&#xff0c;一键开启&#xff0c;无需复杂网络接入配置&#xff0c;适用于所有在云上部署了重要业务资产的客户&#xff0c;特别是企业级客户。 对于用户来说&#xff0c;即开即用&#xff0c;操作简单&#xff0c;无需传统…

省培计算机实践作业,计算机软件基础强化实践能力培养实践部分考核作业.doc...

计算机软件基础强化实践能力培养实践部分考核作业V:1.0 精选考核制度 计算机软件基础强化实践能力培养实践部分考核作业 2020- -6 6- -8 8《计算机软件基础》强化实践能力培养实践部分考核作业(1) 《计算机软件基础》强化实践能力培养实践部分考核作业 强化实践能力培养的考核要…

阿里云全球首推流量型独享虚拟主机新规格,网络访问速度最高提升400%

近日&#xff0c;为了提升用户网站访问体验&#xff0c;阿里云虚拟主机宣布推出流量型独享虚拟主机新规格&#xff0c;流量型独享虚拟主机新规格可以提供高速流量包&#xff0c;提高访问速度。在高速流量包用尽后&#xff0c;网站也不会关停&#xff0c;可自动降为低带宽模式&a…

jq父级绑定事件的意义_js、jq事件绑定方式总结——以click事件为例

一、JavaScript点击事件绑定方法1.1 HTML onclick事件属性1 click me1 functionclickMe(this) {2 alert("click me");3 }1.2 JavaScript onclick事件1 click me1 document.getElementById("button").οnclickclickMe;1.3 IE41 click me1 2 alert("cli…

VScode 常用快捷键

快捷键说明CtrlTab已打开文件之间选择切换Ctrld双击关键词&#xff0c;依次选中CtrlAlt↓或者CtrlAlt↑垂直批量编辑ShirtAlt↓复制当前行Alt↓或者Alt↑移动当前行Ctrl\切出一个新的编辑器CtrlW关闭窗口CtrlC如果不选中&#xff0c;默认复制一整行CtrlEnd移动到文件结尾CtrlHo…

阿里云文件存储的高性能架构演进之路

10月27日下午&#xff0c;2018中国计算机大会上举办了主题“数据中心计算”的技术论坛&#xff0c;一起探讨解决数据中心所面临的挑战。论坛上&#xff0c;阿里云分布式存储团队高级技术专家田磊磊进行了《阿里云文件存储的高性能架构演进之路》的报告。 专家简介 田磊磊&…

阿里巴巴黄贵谈存储新硬件带来数据库的机遇

10月27日下午&#xff0c;2018中国计算机大会上举办了主题“存储软硬件之国产化挑战与机遇”的技术论坛&#xff0c;共同探讨存储软硬件栈上的关键系统与技术的国产化发展道路。论坛上&#xff0c;阿里数据库资深技术专家黄贵针对存储软硬件国产化进行了《存储新硬件给数据库自…

项目实战Git团队操作_图形化版本

文章目录一、分支思路1. Git命令常用理解记忆2. 分支换分规则3. 线上发布准备二、 实战前期准备2.1. 在远程仓库创建kernel_system项目2.2. 将远程仓库克隆到本地2.3. 本地准备操作三、场景实战模拟提交3.1. Git合并某个分支的某/多次提交到指定分支3.2. Git合并分支3.3. 回滚/…

为什么程序员总是打扮成这样一幅鬼样子

1几千年来&#xff0c;时尚像病毒一样不断进化&#xff0c;横扫世界。它遇神杀神&#xff0c;遇佛杀佛。遇到程序员后&#xff0c;含羞自尽。因为程序员是时尚休止符。因为他们习惯以不变应万变。夏季三大件&#xff1a;格子衫沙滩裤人字拖。冬季三大件&#xff1a;冲锋衣牛仔裤…

text显示下标的字体 unity_请教各位一个问题,脚本显示数组下标越界,求教是什么问题?...

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼private GameObject playerSprite;public GameObject [] playerHeroSprite;private int index 0;void Update() {ChangeCharacter();}void ChangeCharacter()//角色切换{if (Input.GetKeyDown(KeyCode.R)){index ;if (index >p…

基础计算机b卷,计算机应用基础B卷.doc

计算机应用基础B卷.doc (6页)本资源提供全文预览&#xff0c;点击全文预览即可全文预览,如果喜欢文档就下载吧&#xff0c;查找使用更方便哦&#xff01;9.9 积分&#xfeff;《计算机应用基础》模拟试卷B (闭卷)一、单项选择题(本大题共40个小题&#xff0c;每题2分&#xff0…

阿里云大数据总监:计算让城市更智能

10月25日&#xff0c;2018中国计算机大会上举办了主题是智慧城市下个十年&#xff1a;智在“数”还是“术”的技术论坛。目前&#xff0c;城市已经具备了丰富多样的大数据积累&#xff0c;成体系的数据管理标准&#xff0c;开放自由的数据流动环境等重要基础&#xff0c;但对于…

创新小组 实战Git团队企操作手册_精华版本

文章目录一、入门试炼1. Git命令理解准则2. Git分支换分思路3. 线上发布准备二、 实战前期准备二、场景实战模拟提交准备3.1. Git合并某个分支的某一/多次提交到指定分支3.2. Git合并分支3.3. 回滚/撤销指定某一/多次提交(建议使用&#xff0c;雁过留声、人过留名)3.4. Git合并…

mybatis 依赖于jdbc_优于jdbc的mybatis框架入门

1.什么是mybatis&#xff1f;MyBatis 是支持普通 SQL 查询&#xff0c;存储过程和高级映射的优秀持久层框架。 MyBatis 消除了几乎所有的 JDBC 代码和参数的手工设置以及对结果集的检索。 MyBatis 可以使用简单的XML 或注解用于配置和原始映射&#xff0c;将接口和 Java 的 POJ…

多维度创新打造领先阿里云技术生态

10月26日&#xff0c;2018中国计算机大会上举办了主题是“云计算生态与发展”的技术论坛。论坛上&#xff0c;阿里云技术战略架构师陈绪博士从构建目标、构建基石、构建要点三个方面详细陈述了阿里云开放的技术生态。目前阿里云正在全力打造一个由阿里云引导、驱动、赋能的多赢…

Facebook陷入史上最大危机;华为5G设备欧洲大卖,美国指责欧盟;红帽宣布OpenShift可用于AWS中国……...

关注并标星星CSDN云计算 速递、最新、绝对有料。这里有企业新动、这里有业界要闻&#xff0c;打起十二分精神&#xff0c;紧跟fashion你可以的&#xff01;每周两次&#xff0c;打卡即read更快、更全了解泛云圈精彩newsgo go go新加坡加入微信计划 &#xff08;图片来源网络&am…

计算机专业课程群建设,计算机科学与技术专业课程群建设的研究与实践

(内蒙古科技大学 信息工程学院,内蒙古 包头 014010)摘要:课程群建设是近年来高等院校课程建设实践中出现的一项新的课程开发技术,以本计算机专业课程群建设实践为背景,阐述了课程群建设的总体原则,构建了计算机专业课程群体系。关键词:计算机科学与技术专业;课程群;课程建设中图…

阿里云高级总监谈超大规模超高性能分布式快存储系统

新型硬件&#xff08;如NVRAM、RDMA、GPU/TPU等&#xff09;及其构建的异构复杂环境&#xff0c;与既有硬件环境的巨大差异&#xff0c;导致传统的算法、数据结构甚至是涉及原则和经验法则等难以为继&#xff0c;对计算智能与大数据处理带来新的挑战和机遇。 10月27日下午&…

git push -u origin master和git push 远程主机名 本地分支名:远程分支名作用

git push git push命令用于将本地分支的更新&#xff0c;推送到远程主机。它的格式与git pull命令相仿。 $ git push <远程主机名> <本地分支名>:<远程分支名>注意&#xff1a;这里的:前后是必须没有空格的。 注意&#xff0c;分支推送顺序的写法是<来源…