Excel VBA

================

Sub 下拉()
Application.ScreenUpdating = False
Dim mybook As Workbook
Set mybook = Workbooks("汇总.xlsx")
Dim target As Workbook
Workbooks.Open "C:\Users\jacky\Desktop\政策落地执行表\李晓.xlsx"
Set target = Workbooks("李晓.xlsx")
target.Sheets("申蓉圣飞").Cells.Copy mybook.Sheets("sheet2").Cells
Set mybook = Nothing
Set target = Nothing
Workbooks("李晓.xlsx").Close SaveChanges:=False
Application.ScreenUpdating = True
End Sub

===================

Sub 工作簿拆分()
Dim wb As Workbook, sh As Worksheet
For Each sh In Worksheets ‘遍历所有工作表
sh.Copy ‘复制工作表
Set wb = ActiveWorkbook ‘到新的工作簿
k = sh.Name ‘计数 ‘注:此行也可写成k=sh.name 如果这样写,则下行中汉字去掉。
wb.SaveAs ThisWorkbook.Path & "/" & k & ".xlsx" ‘在本文件路径中保存工作簿
wb.Close ‘关闭创建的工作簿
Next
End Sub

=========

Sub 拆分为独立工作薄()
Application.ScreenUpdating = False
Dim wb, wb1 As Excel.Workbook
Dim sh As Excel.Worksheet
f = Dir(ThisWorkbook.Path & "\初始表" & "\*.xls*") ‘生成查找EXCEL的目录,可以适应不同版本
Do While f <> "" And f <> ThisWorkbook.Name ‘在目录中循环
Set wb = Workbooks.Open(ThisWorkbook.Path & "\初始表\" & f) ‘依次打开目录工作薄
For Each sh In wb.Worksheets ‘在打开的工作薄的工作表中循环
sh.Copy ‘拷贝工作表为工作薄
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\已拆分\" & sh.Name & ".xlsx" ‘工作表保存为工作薄

ActiveWorkbook.Close ‘关闭新建立的工作薄
Next

wb.Close False ‘关闭打开的工作薄
f = Dir()
Loop ‘结束循环
Application.ScreenUpdating = True
End Sub

--------

Option Explicit
Sub hbgzb()
Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integer
For i = 1 To Sheets.Count
If Sheets(i).Name = "合并数据" Then flag = True
Next
If flag = False Then
Set sh = Worksheets.Add
sh.Name = "合并数据"
Sheets("合并数据").Move after:=Sheets(Sheets.Count)
End If
For i = 1 To Sheets.Count
If Sheets(i).Name <> "合并数据" Then
hrow = Sheets("合并数据").UsedRange.Row
hrowc = Sheets("合并数据").UsedRange.Rows.Count
If hrowc = 1 Then
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow, 1).End(xlUp)
Else
Sheets(i).UsedRange.Copy Sheets("合并数据").Cells(hrow + hrowc - 1, 1).Offset(1, 0)
End If
End If
Next i
End Sub

时间: 2024-10-16 21:35:03

Excel VBA的相关文章

Excel VBA(宏):添加宏

写在前面: 1.编写宏,打开VBA,双击ThisWorkbook对当前工作薄进行编写宏:双击Sheet1,对整个sheet编写宏: 或者创建模块,在模块里,编写.调试代码. 打开VBA的方法见第一讲,结合常用窗口进行编写.调试. 2.部分对象有提示,如Dim a As,敲击空格后有提示. 3.所有宏要运行,必须启动宏.(2007版启动宏,点击表格左上角 "excel选项" "信任中心" "信任中心设置" "启用宏") 4.&q

Office EXCEL VBA数组如何使用

Excel VBA数组入门教程 1. 前言:不要把VBA数组想的太神秘,它其实就是一组数字而已. 2. 数组的维数: Sub 数组示例()  Dim x As Long, y As Long  Dim arr(1 To 10, 1 To 3)  '创建一个可以容下10行3列的数组空间  For x = 1 To 4    For y = 1 To 3       arr(x, y) = Cells(x, y)  '通过循环把单元格区域a1:c4的数据装进数组中    Next y  Next x

Excel函数应用教程 Excel VBA基础教程 WPS2013表格教程

热门推荐电脑办公计算机基础知识教程 Excel2010基础教程 Word2010基础教程 PPT2010基础教程 五笔打字视频教程 Excel函数应用教程 Excel VBA基础教程 WPS2013表格教程 更多>平面设计PhotoshopCS5教程 CorelDRAW X5视频教程 Photoshop商业修图教程 Illustrator CS6视频教程 更多>室内设计3Dsmax2012教程 效果图实例提高教程 室内设计实战教程 欧式效果图制作实例教程 AutoCAD2014室内设计 Aut

2017-5-29 Excel VBA 小游戏

---恢复内容开始--- 转一个Excel VBA的小游戏,最近对excel有了更深入的了解,功能很强大,也刷新了我对待事情的态度. 一.准备界面 我们先来把游戏界面准备好,选中前4行,行高调成50,这时候单元格就近似一个正方形.然后给4*4的单元格加上全部框线,再加粗外框线.字体改成微软雅黑,加粗,居中.第6行A列写上SCORE,C列写上MOVES,都加粗. 一般2048这样的游戏需要用状态机来实现,就是程序无限运行直到游戏结束.在Excel中这种方法不太合适,使用工作表自带的Workshee

用VB.NET(Visual Basic 2010)封装EXCEL VBA为DLL_COM组件(二)

--将EXCEL VBA代码移植到VB.NET .NET是微软公司在2002年推出的全新编程框架,支持多种语言应用程序开发.使用Visual Basic在Microsoft .NET Framework上编程,这就是Visual Basic.NET,简称VB.NET. VB.NET是Microsoft Visual Studio .NET组件中的重要组成部分,是VB6.0的后续版本,VB.NET仍使用VB的基本语法,二者几乎在90%以上保持相似或相同,虽然Excel VBA代码不能完全像移植到V

Excel VBA 从一个工作簿查找另一个一个工作簿中的一些内容复制到另外一个工作簿

帮朋友来写个Excel VBA 以前写过ASP,所以对vb略微熟悉,但VBA 没有仔细研究过. 以前只研究过 vba 写一个 计算个人所得税的程序. 这次写的功能也算是简单,但也耗费了两天的功夫. 需求: 1 从[操作]表中,查找最后一行的数据,每一列 都为关键字 2 遍历这些关键字,从[总表]中查询这个关键字,把这一行后面的内容复制到 [预算]表中去 3 把[操作]中制定内容复制到[信息统计]中 Function Get操作NullLine() ' '从 操作表 获取最后一个有数据下面的空行

我的Excel VBA精通路线

到目前为止,我也编写过不少比较综合的管理系统(进销存.人事管理.固定资产管理.餐饮管理等),老实说,Excel VBA中好多知识我都不知道或者没用过,我对于Excel VBA的看法就是:要用的,就那么点,学那么高深,费劲不? 很多小伙伴都想学好VBA,但往往坚持不下去,感觉东西太特么多了!!所以,我一直在努力精炼.划分,争取让更多的零基础小伙伴也能快速轻松地掌握这门很刁的技术. 别问这个与那个的区别是什么?别问我这个写法与那个写法到底用哪个更好?一直纠结这些区别.概念,是永远学不会VBA的,你只

2.Excel VBA术语

Excel VBA名词术语 在这一章中,让我们了解常用的Excel VBA术语.这些术语将在进一步模块学习中使用,因此理解它们是非常关键的. 模块 1.模块是其中代码被写入的区域.这是一个新的工作簿,因此不会有任何模块. 2.要插入导航模块Insert >> Module.一旦模块被插入“module1”创建.在该模块中,我们可以编写VBA代码和代码编写过程.程序/Sub过程是一系列的VBA语句指示怎么做. 过程 过程组被作为一个整体,指示Excel中如何执行特定任务执行的语句.执行的任务可以

【用EXCEL VBA控制IE】 之写在前面

译者注: 本文为大大佐翻译自www.vba-ie.net的教程,仅做日语学习之用,如转载此文请告知. 文中所有截图均未换成中文界面,因为笔者的电脑也是日文系统,望理解. 本教程作为入门,涵盖了从利用VBA对IE进行控制.从网页中获取数据等基本的内容,到面向实际的更广泛的内容.但很多人甚至都不知道Excel VBA可以对浏览器进行操作,所以今天才知道这个的朋友们,请一定试着挑战一下吧! ■关于EXCEL VBA的学习方法 本教程主要由下面几个部分构成 IE控制的准备 IE的基本控制 HTML元素的

Excel函数应用教程 Excel VBA基础教程 WPS2013表格教程 更多&gt;

热门推荐电脑办公计算机基础知识教程 Excel2010基础教程 Word2010基础教程 PPT2010基础教程 五笔打字视频教程 Excel函数应用教程 Excel VBA基础教程 WPS2013表格教程 更多>平面设计PhotoshopCS5教程 CorelDRAW X5视频教程 Photoshop商业修图教程 Illustrator CS6视频教程 更多>室内设计3Dsmax2012教程 效果图实例提高教程 室内设计实战教程 欧式效果图制作实例教程 AutoCAD2014室内设计 Aut