- 1、本文档共23页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
给工作表的每行都附上工作表名作为新列
Sub test()
Dim i As Integer
Dim j As Integer
Dim o As Integer
i = Worksheets.Count
For j = 1 To i
o = Worksheets(j).UsedRange.Rows.Count
Worksheets(j).Range(k3:k30) = Worksheets(j).Name
Next
End Sub
如何把多张工作表内容快速复制到一张表
我有一份教师工资表,一个工作簿里有好多张工作表的,现在我想把各工作表里的内容全部合到一张表中,除了用复制粘贴的方法外,请问还能有什么好的方法快速合到一起吗?
(首选)
Sub yy() ’声明过程名称为“yy”。当要声明一个过程时,通常是以关键字“SUB”开头,并且以关键字“END”结束,在SUB关键字之前是用来指定此过程的作用域,例如public,static, 或protected 等。在SUB关键字之后为过程最重要的三大部分:过程名称、参数以及在SUB和END SUB之间的主体程序代码内容。过程是可以执行的语句序列单元,所有可执行的代码必须包含在某个过程中,任何过程都不能嵌套在其它过程中,过程的名称必须在模块级别进行定义。
Sheets.Add after:=Sheets(Sheets.Count)新建一个工作表放在最后。参数值和参数名之间应该使用“:=”符号,而不是等号。在代码中,属性和方法都是通过连接符“.”来和对象连接的。Add是方法名,after是自变量,方法名与自变量之间用半角空格隔开。
For i = 1 To Sheets.Count - 1从第一个工作表到倒数第二个工作表
With Sheets(i)’with语句可以在一个单一对象或一个用户定义类型上执行一系列的语句。使用with语句不仅可以简化程序代码,而且可以提高代码的运行效率。 With/end with语句结构中以“.”开头的语句相当于引用了with语句中指定的对象。当程序一旦进入with/end with结构,with语句指定的对象就不能改变。因此不能用with语句来设置多个不同的对象。
n = .[c65536].End(xlUp).Row求出c列最大行号。求出某列最大行号的目的是确定有数据区域的最下边界,为此,选择求最大行号列时,选择的列数据最下边界要最大限度包含所有的数据。End和Row都是属性,此语句取得属性值后赋值给变量n。此程序事先没有对变量进行声明。在程序中取得对象的属性的代码结构:变量=对象·属性。
.Range(a2:Vn).Copy ActiveSheet.[c65536].End(xlUp).Offset(1, -2)取a2开始到最后的数据copy到新表数据的下一行。n =.[c65536].End(xlUp) .Row得到C列最后一个非空单元格所在的行号,“.Offset(1, -2)”偏移“[c65536].End(xlUp)”得到单元格的位置开始复制后数据的粘贴位置。由C列移到A列。[c65536].End(xlUp):求出C列最下边有数据的单元格,粘贴复制的数据时为了前面的数据不被后面粘贴上的数据覆盖,开始粘贴数据的位置在最下边有数据的单元格位置的基础上要用offset偏移。
End With
Next
End Sub’ 注:在VISUAL BASIC中要加入注释,直接在注释文字前加上’符号即可,在’符号之后的文字会被编译器忽略,也可以使用REM来进行注释,但使用’符号会更快捷一些,还可以节省内存及加快编译的效率。以上代码粘贴位置、复制范围可以根据实际需要可变。
2010年5月用于林业旱灾调查一个工作簿上的所有工作表汇总 到一张工作表的代码:
Sub yy() 声明过程名称为yy。当要声明一个过程时,通常是以关键字SUB开头,并且以关键字END结束,在SUB关键字之前是用来指定此过程的作用域,例如public,static, 或protected 等。在SUB关键字之后为过程最重要的三大部分:过程名称、参数以及在SUB和END SUB之间的主体程序代码内容。过程是可以执行的语句序列单元,所有可执行的代码必须包含在某个过程中,任何过程都不能嵌套在其它过程中,过程的名称必须在模块级别进行定义。
Sheets.Add after:=Sheets(Sheets.Count) 新建一个工作表放在最后。参数值和参数名之间应该使用:=符号,而不是等号。在代码中,属性和方法都是通过连接符.来和对象连接的。Add是方法名,after是自变量,方法名与自变量之间用半角空格隔开。
For i = 1 To Sheets.Count - 1 从第一个工作表到倒数第二个工作
您可能关注的文档
- CCD抗晕技术分析.doc
- CCER中国经济金融数据库介绍.doc
- CCNA网络学院第一学期 第三章应用层功能及协议 试题及答案.doc
- CDMA信令系统总述.doc
- CEIOPS对无风险利率及流动性风险溢价的建议.doc
- china daily新闻热点词汇.doc
- ChinaNet业务品牌梳理.ppt
- Chinese-western Cultural Difference of Chinese New Year and Christmas 从春节和圣诞节看中西方文化差异-.doc
- Cisco_策略路由的概念、原理、配置实例.doc
- CiscoIOS与交换机配置初步.ppt
- 2024年USB电话商务管理系统项目可行性研究报告.docx
- [白城]2024年吉林白城市通榆县事业单位面向下半年应征入伍高校毕业生招聘笔试历年参考题库(频考点试.docx
- [甘肃]2024年甘肃省地质矿产勘查开发局第一地质矿产勘查院招聘52人笔试历年参考题库(频考点试卷).docx
- 2024年端子机刀片刀模项目可行性研究报告.docx
- 2024年情侣相框项目可行性研究报告.docx
- [玉溪]2024下半年云南玉溪市事业单位招聘工作人员189人笔试历年参考题库(频考点试卷)解题思路附.docx
- 2024至2030年双面脚轮项目投资价值分析报告.docx
- [湖南]2024年湖南劳动人事职业学院招聘32人笔试历年参考题库(频考点试卷)解题思路附带答案详解.docx
- [湖南]2024年湖南建筑高级技工学校(湖南建设中等职业学校)招聘17人笔试历年参考题库(频考点试卷.docx
- [烟台]2024年山东烟台市市场监督管理局所属事业单位招聘19人笔试历年参考题库(频考点试卷)解题思.docx
文档评论(0)