rows.count,clearcontents,worksheets,copy,提取行数,清除内容,跨工作表,复制
来源:互联网 发布:k-means算法 编辑:程序博客网 时间:2024/05/23 01:53
rows.count:提取某个区域的行数,range().rows.count提取range内的行数。cells(rows.count,1)第一列最后一行
range().clearcontents清除某一区域内的内容
worksheets(“”).range()跨工作表提取内容
range().copy cells()需要复制的单元格 复制到单元格的位置
Sub t()
Dim rng1 As RangeDim rng2 As Range
Set rng1 = Worksheets("yuanshi").Range("a2", Cells(2, "d").End(xlDown))‘获取工作表“yuanshi”中的区域’
Set rng2 = Worksheets("dao").Cells(Rows.Count, "a").End(xlUp)(2, 1)‘定位到需要粘贴的工作表“dao”的位置’
rng1.Copy rng2 ‘将工作表1中的单元格复制到工作表2中’
rng2(1, 5).Resize(rng1.Rows.Count,1) = Now ‘提取复制单元格的行数,给复制到的区域的所有行赋值当前时间’
MsgBox "copy executed"
rng1.ClearContents‘清除区域1的内容’
End Sub
内容从yuanshi表中复制到了dao表中
0 0
- rows.count,clearcontents,worksheets,copy,提取行数,清除内容,跨工作表,复制
- 通过VBA宏合并Excel工作表(支持复制行数)
- 【来日复制粘贴】提取工作表和工作簿名称
- worksheets工作簿的表示方法
- VBA 复制工作簿内容
- Tables[0].Rows.count是什么意思
- javascript复制网页内容 execCommand(´ Copy´ )
- columns列:Rows 工作表上所有的行
- mysql表内复制行数据
- GridView.RowCount与DataTable.Rows.Count
- iOS 【rows = (count + maxCols - 1) / maxCols】
- 复制表结构 内容
- sql 复制表, sql copy table
- VBA编程,工作薄打开,两个工作薄之间表格复制,Range的copy方法
- hibernate 数据行数统计 count(*)
- hive表复制和HDFS回收站清除
- 数据库表内容复制,表格复制。
- 只复制表结构不复制内容
- 前端入门的几点需知
- Java编译器eclipse-------DeBug模式
- android5.1 make_ext4fs supersu修正
- 煮酒论测试用例评审
- 题目113 字符串替换
- rows.count,clearcontents,worksheets,copy,提取行数,清除内容,跨工作表,复制
- ubuntu 14.04 下单机安装 hadoop 2.7.2+scala 2.11.8+spark 2.0伪分布式教程
- Linux进程控制、调度
- 房屋中介管理系统
- Python之raw_input() 与 input() 函数
- Android NDK支持STL的正则表达式 undefined reference to 'std::regex_token_iterator
- Python安全编程
- 走遍中国 —— 华东
- Linux htop命令