excel学习库-在复制单元格区域时，如何做到仅复制单元格区域内的数值

大家好，近日推出的VBA文章较多，仍是以代码方案的形式推出，在讲VBA代码时仍是以和EXCEL的操作相结合，结合代码的实例给大家讲解，这些代码都是精华中的精华，可以方便的利用，稍加修改就可以加以利用，形成自己的代码，解决自己的工作问题。今日给大家讲解如何在复制单元格区域时，仅复制单元格区域的数值，有下面方法加以利用。一：使用选择性粘贴使用选择性粘贴功能并指定粘贴数值，如下面的代码所示。 Sub MyCopyPasteSpecial() Sheet1.Range("A1").CurrentRegion.Copy Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End Sub 代码解析： a) MyCopyPasteSpecial过程复制工作表Sheet1中A1单元格的当前区域的数值到工作表Sheet2的A1单元格所在区域中。 b) 第2行代码将Sheet1中A1单元格的当前区域进行复制。 c) 第3行代码使用选择性粘贴功能并指定粘贴数值，选择性粘贴数值仅复制了单元格区域的数值，单元格区域的格式（背景颜色、字体对齐格式和边框等）不会被复制。二：除了使用上述Copy方法外，还可以使用直接赋值的方法，这种方法比较简单，可以节省内存的应用，如下面的代码所示。 Sub MyGetValueResize() With Sheet1.Range("A1").CurrentRegion Sheet3.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value End With End Sub 代码解析： a) MyGetValueResize过程将工作表Sheet1中的A1单元格的当前区域的数值赋予工作表Sheet3的A1单元格所在的单元格区域。 b) 在对单元格区域直接赋值时，应保证源区域大小与目标区域的大小一致，如果源区域为动态的单元格区域，可使用Resize方法确定目标区域。我们看看上面方法二的实例应用,代码截图：

运行结果：

今日内容回向： 1 语句Sheet2.Range("A1").PasteSpecial Paste:=xlPasteValues的意义是什么? 2 语句Sheet3.Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value的意义是什么？

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

在复制单元格区域时，如何做到仅复制单元格区域内的数值2024-03-05 13:59:49