VBA 单元格基本操作 - 复制粘贴区域选择

本期主要讲讲单元格复制粘贴等操作。

一、复制粘贴固定区域的单元格

因为以下内容都是复制单个或者固定区域的单元格内容，就不多说了，备注上面都有说明。

Option ExplicitSub CopyRange()'复制单元格内容示例1'注意：单元格的格式、公式、批注等也会被复制过去哟Sheets(1).Range("A1").Copy Sheets(1).Range("B1")
End Sub


Sub CopyRange2()'复制单元格内容示例2，打开了下面2个工作表后，就可以通过工作表的名称进行复制啦Workbooks("测试表1.xlsx").Sheets(1).Range("A1").Copy _Workbooks("测试表2.xlsx").Sheets(1).Range("A1")
End Sub

Sub CopyRange3()'复制单元格内容示例3，和上面几乎一样Dim rng1 As Range, rng2 As RangeSet rng1 = Workbooks("测试表1.xlsx").Sheets(1).Range("A1")Set rng2 = Workbooks("测试表2.xlsx").Sheets(1).Range("A1")rng1.Copy rng2
End Sub

Sub CopyRange4()'复制单元格内容示例4，复制区域，选择一个单元格进行粘贴Sheets(1).Range("A1:D5").Copy Sheets(2).Range("A1")
End Sub

Sub MoveRange1()'移动（剪切）单元格内容示例1。'注意：单元格的格式、公式、批注等也会被剪切过去哟'就是把Copy换成了Cut，其他几乎一样Sheets(1).Range("A1").Cut Sheets(1).Range("B1")
End Sub

二、复制粘贴可变单元格区域

上面主要是讲的特定区域的，下面讲讲会变动的区域。比如一张表新增了一行，复制区域就改变了，有没有什么比较方便的方式解决呢？

加个CurrentRegion就可以实现，用法如下。

Sub CopyCurrentRange()'复制范围会变动的表格Sheets(1).Range("A1").CurrentRegion.Copy Sheets(2).Range("A1")
End Sub

从上面的图可以看出，新增了第15行张三点击运行后，仍然能正常复制过去。要复制的表如果有标题、有日期行，或者是筛选后的表格，仍然可以实现复制。

如果要复制的区域是一个表，就可以用以下方式（感觉更复杂了点，好像没啥实际用途）

第一，插入表格

第二，重新命名，咱们插入表格之后，在设计——表名称那重命名一下，命名为Table111

第三：这么操作就可以把表复制过去啦。

Sub CopyTable()Sheets(1).Range("table111").Copy Sheets(2).Range("A1")
End Sub

经过实际使用，发现确实不怎么方便，当然了还有Range的End方法，这个在7月29号的文档里用过。

Sub RangeEnd()'从A10000往上数，遇到有数据的最下面一行Debug.Print Sheets(1).Range("A10000").End(xlUp).Row'从A1往下数，有数据的最下面一行Debug.Print Sheets(1).Range("A1").End(xlDown).Row'从Z1往左数，有数据的最右边一列Debug.Print Sheets(1).Range("Z1").End(xlToLeft).Column'从A1往右边数，有数据的最右边一列Debug.Print Sheets(1).Range("A1").End(xlToRight).Column
End Sub

咱们表格范围是A1:D17大小的话，上面结果值分别为17，17，5，5。但是需要注意就是，选定单元格的那一行一列别有空值，不然返回的内容可能是空值附近的单元格哟。

三、调整单元格区域

用Range.Resize重新调整单元格区域，左边的参数是行数，右边的参数是列数。

另外需要注意的是，调整后的区域是从原来区域左上角开始框哟。

比如下面例子开始是框柱B2:D6，重新设置区域后，就从B2往下和往右算行列数。

Sub RangeResize()Dim rng As RangeSet rng = Range("B2:D6")Set rng = rng.Resize(8, 5)
End Sub

VBA 单元格基本操作 - 复制粘贴区域选择相关推荐

excel中如何对筛选后的单元格进行复制粘贴
用wps可以轻松实现复制时和不进行筛选时一致粘贴时,右击有一"粘贴值到可见单元格" ps:前提是复制的数据也来着wps
VBA小程序_对于选中的单元格进行取消合并_选择空值向上填充
Sub VBA小程序_对于选中的单元格进行取消合并_选择空值向上填充()Dim a As RangeSet a = Selection '定义变量为最初选择的区域,不忘初心Selection.UnMe ...
excel 直接复制oracle,为什么EXCEL复制单元格不能直接粘贴到Oracle数据库？|excel表格复制整列数据库...
从网上数据库导出的EXCEL表格,有一列数据为何汇总不了,也复制不了呢可能是看上去数据在那一列,可事实上数据并不在那一列,可能是在前一列或前几列中.将单元格移到你复制不了的那一列中的任一值中,如编辑 ...
Excel·VBA单元格区域按颜色求和等计算
目录 1,单元格区域按颜色求和.计数.求平均值.最值举例 2,单元格区域按颜色和值是否相等举例 1,单元格区域按颜色求和.计数.求平均值.最值 Function color_calc(rng As ...
excel统计求和：如何在合并后的单元格中复制求和公式
如下图所示,左边表格,展示了每个物品品类的销售数据,现在,我们在表中新增一列合并单元格,需要根据行业将每个品类的明细销售额汇总,并展示在合并单元格中,如右边表格中,浅红色填充的部分所示. 注:以上数据 ...
asp.net mvc excel合并单元格_excel统计求和：如何在合并后的单元格中复制求和公式...
编按:哈喽,大家好!又到了一年一度的双十一购物狂欢节,小伙伴们有没有蠢蠢欲动呢?钱包都准备好了吗!这个双十一,大家都盯上了哪些好物呢?哪类产品的开销又会成为你贡献双十一销售额的主力军呢?赶紧在exce ...
dev gridcontrol 单元格内容复制_Excel中的复制粘贴，不只是你想的那么简单的
白日何短短,百年苦易满.苍穹浩茫茫,万劫太极长.麻姑垂两鬓,一半已成霜.天公见玉女,大笑亿千场.吾欲揽六龙,回车挂扶桑.北斗酌美酒,劝龙各一觞.富贵非所愿,与人驻颜光. --[唐]李白<短歌行& ...
python excel单元格剪切清除粘贴复制_Excel复制粘贴时弹出“不能清除剪贴板”的解决方法...
Excel复制粘贴时弹出"不能清除剪贴板"的解决方法 2018-09-19 做一份统计报表,复制时出现"不能清楚剪切板" 1.不能清除剪贴板,主要是因为还有其它 ...
Excel·VBA单元格区域获取指定行列函数
office 365新增函数<CHOOSEROWS 函数>和<CHOOSECOLS 函数>可以获取单元格区域指定行.列,并返回一个单元格区域对于没有office 365又想使 ...

VBA 单元格基本操作 - 复制粘贴区域选择

VBA 单元格基本操作 - 复制粘贴区域选择相关推荐

最新文章

热门文章

VBA 单元格基本操作 - 复制 粘贴 区域选择

VBA 单元格基本操作 - 复制 粘贴 区域选择相关推荐

最新文章

热门文章

VBA 单元格基本操作 - 复制粘贴区域选择

VBA 单元格基本操作 - 复制粘贴区域选择相关推荐