-
一小时搞定 简单VBA编程 Excel宏编程快速扫盲
2018-01-19 09:45:19Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。下面是我的学习笔记。 1. Excel VBA编辑界面 (进入路径: sheet名称 --> 鼠标右键菜单 ...Excel宏编程可以快速完成批量表格操作:复制粘贴、数据过滤等,宏代码基于VB语言实现,有基础的编程经验就能快速阅读。下面是我的学习笔记。
1. Excel VBA编辑界面
(进入路径: sheet名称 --> 鼠标右键菜单 --> 查看代码)
2. 输入代码方法:
在VBE编辑器的代码模块中输入VBA代码,通常有以下几种方法:
■ 手工键盘输入;
■ 使用宏录制器,即选择菜单“工具——宏——录制新宏”命令,将所进行的操作自动录制成宏代码;
■ 复制/粘贴代码,即将现有的代码复制后,粘贴到相应的代码模块中;
■ 导入代码模块:文件-->导入文件 **不用的模块可以:文件-->移出模块
3. VB代码阅读扫盲
(1) 模块声明:
Sub sName() ... End Sub Sub xxxxx() XXXXXXXXX End Sub
(2) 变量声明:
Dim sPara As sType Dim para1, para2, para3 Dim para4 As workbook, para5 As String Dim G As Long
(3) 选择结构:
With ... End With If condition Then ... End If # 举个例子:遍历每个Sheet把表粘贴成一个大表的语句,使用For Next With End With语句 With Workbooks(1).ActiveSheet For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With
(4) 循环结构
Do While condition ... Loop For i = 0 to 100 ... Next
(5) 输出Log:
MsgBox sString
案例解析:解析拷贝路径下所有Excel到一个工作表下的示例:
************************************************************************************************************************************
Sub 合并当前目录下所有工作簿的全部工作表() #模块名称 Dim MyPath, MyName, AWbName #变量声明 Dim Wb As workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False #停止屏幕刷新 MyPath = ActiveWorkbook.Path #获取当前工作文件路径 MyName = Dir(MyPath & "\" & "*.xls") #获取当前文件名(截取字符串) AWbName = ActiveWorkbook.Name #获取当前BookName Num = 0 #准备进入循环处理 Do While MyName <> "" #第一个循环体:遍历所有文件 终止条件是 文件名为空 If MyName <> AWbName Then #条件:文件名当前激活文件不同 Set Wb = Workbooks.Open(MyPath & "\" & MyName) # 设置工作表的名称(当前Sheet Name) Num = Num + 1 #计数用于输出 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) #赋值语句:激活Sheet的A列最后一个单元格赋值为MyName去掉‘.xls’的部分 #Left 截取字符串 去掉了'.xls' #workbooks(n) 为取工作簿 的写法 #A65535(一个极大数)单元格向上,最后一个非空的单元格的行号 For G = 1 To Sheets.Count #嵌套循环体:遍历文件的所有Sheets Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) #赋值所有内容到以结束内容空一行开始的表格中 Next #且套循环体结束 WbN = WbN & Chr(13) & Wb.Name # & 为合并字符串的符号 Wb.Close False #对于文件操作结束,关闭Excel文件 End With #退出第二个判断 End If #退出第一个判断 MyName = Dir #怎么拿到第二个bookName Loop #循环体结束 Range("B1").Select #选中B1 Application.ScreenUpdating = True #允许Excel屏幕刷新 MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub
************************************************************************************************************************************
常用模块:
1. 把一个workBook的一块表格拷贝到另一个WorkBook中的一般化方法:
上面的代码中是一种简单的实现:拷贝所有内容到空行区域
需要将拷贝的内容和粘贴的位置控制更加精准控制:
拷贝指定位置到指定位置:
Workbooks("工作簿1.xls").Sheet1.Range("A1:C50").Copy ThisWorkbook.Sheet2.Range("A1")
2. 找到粘贴位置:
b=sheet2.[BI].end(xlToLeft).row+1 获取最后一次编辑的各自的列号! .Range("B65536").End(xlUp).Row + 2 最后一次编辑的格子的行号
A1 直接编辑
.Cells(nRowNo, nColNo)
...
实战案例分析:一个将多个相同格式表格合并生成横表的例子:
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Dim HasTitil As Boolean Dim LastRange As String Dim CurRowNo As Long Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 HasTitil = False With Workbooks(1).ActiveSheet .Cells(1, 2) = "Cor.Name" Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 .Cells(1, Num + 2) = Left(MyName, Len(MyName) - 4) If HasTitil <> True Then Wb.Sheets(1).Range("A4:B43").Copy .Cells(2, 1) Wb.Sheets(1).Range("E4:F43").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Wb.Sheets(2).Range("A5:B73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Wb.Sheets(2).Range("E5:F73").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Wb.Sheets(3).Range("A4:B32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Wb.Sheets(3).Range("E4:F32").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Wb.Sheets(4).Range("A5:B100").Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) HasTitil = True End If CurRowNo = 2 Wb.Sheets(1).Range("D4:D43").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 40 Wb.Sheets(1).Range("H4:H43").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 40 Wb.Sheets(2).Range("D5:D73").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 69 Wb.Sheets(2).Range("H5:H73").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 69 Wb.Sheets(3).Range("D4:D32").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 29 Wb.Sheets(3).Range("H4:H32").Copy .Cells(CurRowNo, Num + 2) CurRowNo = CurRowNo + 29 Wb.Sheets(4).Range("D5:D100").Copy .Cells(CurRowNo, Num + 2) Wb.Close False End If MyName = Dir Loop End With Range("B1").Select Application.ScreenUpdating = True End Sub
-
Excel 宏
2012-07-05 16:02:05求高手做个Excel宏,让我的锁定的excel模版可以插入行而且插入的行不是锁定的,另外教下我怎么样在java poi代码中加载这个宏,谢谢!求高手指导啊 -
excel宏破解 excel宏加密
2011-05-10 19:33:09excel宏破解+宏加密解密简单说明 用于2003excel宏密码破解,与excel宏工程密码保护 -
Excel宏
2015-02-08 20:50:13两个EXCEL表格A、B,都包含相同内容的列a(比如姓名),如何在A表中筛选出a列跟B表a列相同内容的行。 宏也行,函数也行? 答: Dim lie1 As Integer Dim lie2 As Integer lie1 = 7 '此处填写列1的长度 lie...问题:请问哪个大神
两个EXCEL表格A、B,都包含相同内容的列a(比如姓名),如何在A表中筛选出a列跟B表a列相同内容的行。
宏也行,函数也行?
答:
Dim lie1 As Integer
Dim lie2 As Integer
lie1 = 7 '此处填写列1的长度
lie2 = 3 '此处填写列2的长度
Dim i As Integer
Dim j As Integer
Dim str1 As String
Dim str2 As String
For i = lie1 To 1 Step -1
Sheets("Sheet1").Select '此处双引号内为表1的名称
str1 = Range("A" & i).Text '此处填写列1所在的列
Sheets("Sheet2").Select '此处双引号内为表2的名称
For j = lie2 To 1 Step -1
str2 = Range("A" & j).Text '此处填写列2所在的列
If str1 = str2 Then
Sheets("Sheet1").Select '此处填写列1所在的列
Range("A" & i).FormulaR1C1 = "" '此处填写列1所在的列
Exit For
End If
Next
Next -
excel 宏
2012-07-03 10:03:18宏的基础教程、excel的一些常用的技巧http://www.youku.com/playlist_show/id_3835476_ascending_1_mode_pic_page_1.html 宏的高级教程→Excel VBA教程... -
excel宏
2011-08-24 23:39:58想想,今天碰到了原来公司的老领导,想起了过去做的滑词分享功能,就是一堆宏。为了不忘了简单写了一个小功能。 代码如下: 'author: yangzc '设置excel所有sheet到第一个单元格 Sub ToFirstCell() Dim ...很久没写点东西了。想想,今天碰到了原来公司的老领导,想起了过去做的滑词分享功能,就是一堆宏。为了不忘了简单写了一个小功能。
代码如下:
'author: yangzc '设置excel所有sheet到第一个单元格 Sub ToFirstCell() Dim i As Integer '遍历所有sheets For i = 1 To Sheets.Count Dim sheet As Worksheet Set sheet = Sheets(i) sheet.Activate Range("A1").Select Next '跳转到第一个sheet,并定位到第一个单元格 If Sheets.Count > 0 Then Sheets(1).Activate Range("A1").Select End If End Sub
昨天就想记录一下宏的部署方式。今天终于实验成功了。
首先保存该excel文件为“加载宏”,xlam格式。然后Excel选项-加载项把这个excel宏加载进去。就可以使用了
-
Excel宏教程
2018-09-01 10:20:08Excel宏教程,介绍excel宏的基本操作,比较适合初学者掌握该内容 -
excel 宏隐藏分页表_隐藏Excel宏
2020-08-11 04:11:07excel 宏隐藏分页表 隐藏Excel宏 (Hide an Excel Macro)When you add a macro to an Excel workbook, users can see that macro in a list when they choose Tools|Macro|Macros. 当您将宏添加到Excel工作簿时,... -
excel宏大全
2018-04-04 22:44:19excel宏大全,收集了众多使用的宏,可直接将代码复制到宏窗口使用 -
excel宏命令删除列_删除Excel宏安全警告
2020-08-09 05:56:39excel宏命令删除列 删除Excel宏安全警告 (Remove Excel Macros Security Warning)Even though an Excel workbook doesn't contain any macros, sometimes when you open a file, a security warning appears. ... -
excel宏选中单元格_从单元格引用运行Excel宏
2020-08-10 18:55:43excel宏选中单元格 从单元格引用运行Excel宏 (Run an Excel Macro From a Cell Reference)Last week I wrote an article about hiding Excel macros, so they don't appear in the macro list. While working on ... -
excel宏教程
2018-09-02 14:22:02excel宏教程,入门级。对新手有很大帮助!希望能找到你想要的东西! -
C# 执行Excel宏
2017-10-25 11:22:03C# 调用 Excel 开发的VBA宏进行Excel操作 Excel宏文件 线程 -
python运行excel宏_从python运行excel宏
2021-02-11 04:36:37我正在使用以下代码从Python运行Excel宏:import pymysqlimport datetimeimport csvimport mathimport osimport globimport sysimport win32com.clientimport numpyfrom tkinter import *from tkinter import ttk... -
excel宏 拆分工作表_使用工作表按钮运行Excel宏
2020-08-09 08:21:02excel宏 拆分工作表 使用工作表按钮运行Excel宏 (Run an Excel Macro With a Worksheet Button)In my workbooks, I sometimes add buttons to run macros. Usually, they're for navigation to the next or previous... -
编写Excel宏
2018-11-10 04:09:47编写Excel宏 -
excel宏 拆分工作表_在Excel宏代码中更改工作表名称
2020-08-12 14:09:07excel宏 拆分工作表 在Excel宏代码中更改工作表名称 (Change Sheet Names in Excel Macro Code) If you download one of the sample Excel workbooks from my Contextures website, you might want to customize it,... -
excel打印宏_使用Excel宏打印发票
2020-08-07 05:14:22excel打印宏 使用Excel宏打印发票 (Print Invoices With Excel Macro)There is a sample file on my Contextures site, in which you can enter invoice details, then print all the new invoices by clicking a ... -
Excel宏编程
2008-04-23 14:27:09Excel宏编程Excel宏编程Excel宏编程Excel宏编程 -
excel 宏命令
2018-08-22 14:20:34以前老是听说什么excel宏,但是自己从未实战操作过,待我自己接触过后,发现excel实在是太强大了,用excel宏可以帮助我省好多时间,对于一些枯燥无味的工作,我就请excel宏命令帮我实现。 首先,宏到底是个什么呢?... -
excel宏导入excel数据经典
2013-05-13 03:44:23excel宏导入excel数据经典 -
EXCEL宏编辑
2014-04-03 18:17:43有关Excel宏编辑的方法,以及VBA语言的介绍 -
惠普g260鼠标宏设置_Excel宏按钮怎么制作?Excel宏按钮制作方法
2020-12-03 15:41:46很多小伙伴在制作Excel报表时经常都需要重复使用一个功能,浪费了不少的时间,小编今天教大家怎么制作一个Excel宏按钮来避免重复的麻烦,宏按钮本质上就是一个宏,不过通过按钮更快的执行宏,下面一起来看看怎么做吧... -
EXCEL宏魔法书
2012-04-25 21:34:44EXCEL 宏 魔法书 EXCEL 宏 魔法书EXCEL 宏 魔法书