EXCEL copy RangeCell的例子

  从一个Sheet中的Range拷贝数据到另一个Sheet中的Range

  Dim myWorksheet AsWorksheet

  Dim myWorksheetName As String

  myWorksheetName = "MyTableName"

  Sheets.Add.Name = myWorksheetName

  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环境中使用。

分类:Excel教程 时间:2015-03-12 人气:5
本文关键词:
分享到:

相关文章

Copyright (C) quwantang.com, All Rights Reserved.

趣玩堂 版权所有 京ICP备15002868号

processed in 0.086 (s). 10 q(s)