摘要: 出处:http://www.360doc.com/content/21/1113/17/77710807_1004011085.shtml 前面我们讲的大多是**并操作单个的单元格,或者是连续的单元格区域,如果这些单元格区域不连续,如下图所示,单元格区域A1:B2、A4:B5、A7:B8分别隔开,各 阅读全文
posted @ 2021-11-13 17:45 深海澜鲸 阅读(2553) 评论(0) 推荐(0) 编辑
摘要: 在Excel中,Union的功能是合并两个或两个以上的选择区域,合并成为一个更大的区域。 所合并的多个选择区域,这些选择区域,可以是不连续的,也可以是连续的。一般情况下,要使用Union,可通过如下来使用。expression.Union(Arg1, Arg2, ...)expression参数为可 阅读全文
posted @ 2021-11-13 17:25 深海澜鲸 阅读(2401) 评论(0) 推荐(0) 编辑
摘要: 1.显示多个隐藏的工作表 如果你的工作簿里面有多个隐藏的工作表,你需要花很多时间一个一个的显示隐藏的工作表。 下面的代码,可以让你一次显示所有的工作表 Sub UnhideAllWoksheets()Dim ws As Worksheet For Each ws In ActiveWorkbook. 阅读全文
posted @ 2021-11-13 16:57 深海澜鲸 阅读(5179) 评论(0) 推荐(0) 编辑
摘要: 如果要用VBA同时选择多个工作表,可以利用数组或设置“Select”方法的参数为“False”来扩展所选择的内容,如下面的一些代码: 1.用工作表名称: 假如工作表名称为“Sheet1”、“Sheet2”、“Sheet3”,同时选择这3个工作表: Sub SelectMultiSheets() Sh 阅读全文
posted @ 2021-11-13 16:52 深海澜鲸 阅读(1951) 评论(0) 推荐(0) 编辑
摘要: 一、合并工作簿 Sub 合并工作簿() Application.ScreenUpdating = False myfile = Dir(ThisWorkbook.Path & "\*.xls*")'Dir函数,获取同路径下待合并excel的文件名 Do While myfile <> "" '当文件 阅读全文
posted @ 2021-11-13 16:50 深海澜鲸 阅读(938) 评论(0) 推荐(0) 编辑
摘要: 何谓自定义排序,就是按指定的顺序对数据源进行排序呗。 共分享了三种方法: 第1种方法是系统自带的OrderCustom,优点是代码简洁,缺点是自定义序列有字符长度限制(255个)。 第2种方法是字典+数组设置序列号,再使用了辅助列进行排序。优点是不会破坏单元格的形式和结构,比如单元格中存在的公式、背 阅读全文
posted @ 2021-11-13 16:47 深海澜鲸 阅读(1734) 评论(0) 推荐(0) 编辑
摘要: Resize(UBound(arr, 1), UBound(arr, 2) 这句什么意思 resize()是一个扩展单元格地址区域的函数,有两个参数,第一个是行扩展数,第二个是列扩展数 UBound(arr, 1) :arr数组中最大行数; UBound(arr, 2) :arr数组中最大列数。 这 阅读全文
posted @ 2021-11-13 16:45 深海澜鲸 阅读(6698) 评论(0) 推荐(0) 编辑
摘要: 在Excel VBA中range.offset和range.resize均可以重新选择区域,但range.offset表示偏移且偏移后尺寸不改变,range.resize则会根据输入的行数和列数重新定义区域。 一、range.offset(偏移行,偏移列) 偏移行和列若为正则向下和向右偏移,若为负数 阅读全文
posted @ 2021-11-13 16:44 深海澜鲸 阅读(1541) 评论(0) 推荐(0) 编辑
摘要: Workbooks对象是Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。有close、add、open等方法。 Workbooks.close ' 关闭所有打开的工作簿。 Workbooks.Add ' 创建一个新工作簿。 ActiveWorkbook '返回 阅读全文
posted @ 2021-11-13 16:43 深海澜鲸 阅读(5256) 评论(0) 推荐(0) 编辑
摘要: 用VBA拆分工作表是一个不错的方法,特别是在处理大量数据的时候,能节省不少时间。 1、高级筛选: 筛选并复制到新工作表的关键代码如下: Range("Database").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Range("C 阅读全文
posted @ 2021-11-13 16:39 深海澜鲸 阅读(1122) 评论(0) 推荐(0) 编辑
摘要: AutoFilter方法的语法及说明 下面是Range对象的AutoFilter方法的语法: Range对象.AutoFilter(Field,Criterial1,Operator,Criteria2,VisibleDropDown) 说明: 1.参数Field,指定想要基于筛选的字段的整数偏移量 阅读全文
posted @ 2021-11-13 16:37 深海澜鲸 阅读(4157) 评论(0) 推荐(0) 编辑
摘要: Range(“A1:B2”).Select ‘选中“A1”、“A2”、“B1”、“B2”四个连续的单元格 Range(“12:12”).Select ‘选中第12行 Range(“B:B”).Select ‘选中B列 Range(“A1:A2,B7,2:2”).Select ‘选中“A1”、“A2” 阅读全文
posted @ 2021-11-13 16:28 深海澜鲸 阅读(2822) 评论(0) 推荐(0) 编辑
摘要: 1- 区域命名 ThisWorkbook.Names.Item("foo").RefersTo =Tabelle1!$A$1:$B$1 ThisWorkbook.Names.Item("foo").RefersToRange.Address $A$1:$B$1 2- 一个有趣的case Sub 按钮 阅读全文
posted @ 2021-11-13 15:42 深海澜鲸 阅读(1717) 评论(0) 推荐(0) 编辑