岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的EXCEL copy RangeCell的例子,希望大家看完后能赶快学习起来。
【 tulaoshi.com - Excel教程 】
从一个Sheet中的Range拷贝数据到另一个Sheet中的Range
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)Dim myWorksheet AsWorksheet
Dim myWorksheetName As String
myWorksheetName = "MyTableName"
Sheets.Add.Name = myWorksheetName
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)
Sheets("Sheet1").Range("B1:B27").Copy Sheets(myWorksheetName).Range("A1")
代码说明
Sheets.Add.Name = myWorksheetName用于在Sheets集合中添加名称为myWorksheetName的Sheet;
Sheets(myWorksheetName).Move After:=Sheets(Sheets.Count)将刚刚添加的这个Sheet移到Sheets集合中最后一个元素的后面
最后通过Range.Copy方法将数据拷贝到新表中对应的单元格中。
以上代码在VBA环境中使用。
来源:http://www.tulaoshi.com/n/20160219/1609126.html
看过《EXCEL copy RangeCell的例子》的人还看了以下文章 更多>>