EXCEL
文章平均质量分 53
logo_28
这个作者很懒,什么都没留下…
展开
-
Lookup-包含查找
要在{1,2,3,4,60}中查找最大的值60.可以查找一个无限大的数:9^9,当在这个数组中找不到这个无限大的数值时,匹配了比较接近的数值60.=LOOKUP(9^9,0/SEARCH({"捷达","速腾","迈腾","高尔夫"},A2),{"捷达","速腾","迈腾","高尔夫"})公式:=LOOKUP(9^9,FIND({"捷达","速腾","迈腾","高尔夫"},A2),{"捷达","速腾","迈腾","高尔夫"})【例】如下表A列,为包括各车类别的明细车型,现需在B列当中,将车类别提取出来。原创 2023-05-22 11:08:48 · 508 阅读 · 0 评论 -
模糊查询_lookup
很常见的单向查询应用,要查找的数据在某一区间范围内,然后取得对应的值。比如下面例子: 等次 成绩 分数 A B C D 70 1 1 1 1 75 2 3 4 5 80 3 5 7 9 85 4 7 10 13 90 5 9 13 17 95 6 11 16 21 100 7原创 2021-11-18 18:02:35 · 377 阅读 · 0 评论 -
VBA 字典+计次统计一个区域连续负数的最大个数
解决思路:遍历数组,出现负值,Key就递增,出现连续负值,相关key对应的item就递增。然后取item最大值具体代码:Function负数(rn)SetD=CreateObject("Scripting.Dictionary")n=1ForEachrInrnIfr<0ThenD(n)=D(n)+1Elsen=n+1...原创 2020-11-09 18:14:03 · 581 阅读 · 0 评论 -
VBA 二维数组整体直接赋值的方法小结
一维数组可以通过这样一行代码来整体赋值:arr = Array("你", "我", "他", "1", "2", "3", "aa", "bb", "cc")那么,如果想给二维数组采用类似的方法来整体赋值,要怎么办呢?arr=array("你", "我", "他" ;"1", "2", "3" ; "aa", "bb", "cc"),好像不行。一番搜索,网上给出的答案有如下:第一种:使用[{}]将字符串括起来,字符串行间用分号(;)分割,列间用逗号(,)分割:arr = [{"你", "..原创 2020-10-26 20:31:11 · 10517 阅读 · 2 评论 -
VBA 批量打印多工作簿的指定工作表
要解决的问题:同一个文件夹有多个工作簿,工作簿中有相同格式的多个sheet表,其中有两个固定的SHEET需要打印(所有EXCEL工作簿表格中两个固定SHEET的名字相同)。每次打开这么多文档,再将表格一个个打印很繁琐,有什么快捷的方法可以直接打印这个文件夹下所有EXCEL表中这两个固定的SHEET表内容?解决思路:1、将要打印的工作簿放在同一个文件夹内,如:D:\mywbooks\2、使用dir在文件夹中遍历文件,然后打开工作簿,再打印指定的工作表,然后关闭文件。EXCELVBA代码如.原创 2020-10-10 20:11:57 · 5336 阅读 · 2 评论 -
VBA 批量打印单工作簿内所有可见工作表(sheet)
要解决的问题:一个工作簿中有相同格式的多个sheet表,手动点击一张一张打印,太慢了。能不能一次性打印?解决思路:1、sheet表做好后,提前设置好打印的格式设置;2、有默认的打印机。3、根据工作表数量进行循环,然后打印,打印份数默认设为1份。EXCELVBA代码如下: Sub test() Dim ws As Worksheet For Each ws In Worksheets If ws.Visible = xlSheetV...原创 2020-10-10 16:20:26 · 3711 阅读 · 2 评论 -
VBA 一次性选中符合条件的单元格 整行删除
有同学问:能不能使用union函数将符合条件的单元格所在行全部选中,然后删除.如下图:删除黄色底纹的标题行为此,给出代码如下:Sub test()Dim arr, myrow As StringDim cc As Variant, ran As Ranger = Sheet1.Range("b65536").End(xlUp).Rowarr = Sheet1.Range(B...原创 2020-04-08 22:36:58 · 6506 阅读 · 0 评论 -
VBA 获取单元格行标和列标&数字转字母
在vba中,对单元格进行操作,经常需要知道单元格所在的行或列.可用以下方法获取:一、单元格的行标和列标 set C=range("A1") c.row 得行号, c.column 得列号 二、列号转字母 ‘将1,2,3,....转为"A","B","C"..... Sub test() For i = 1 To 26 ...原创 2020-03-30 15:27:38 · 7908 阅读 · 0 评论 -
VBA 在行中循环遍历的例子
在单元格区域对象中循环:For Each c In Range("$A$2:$A$" & Cells(Rows.count, "A").End(xlUp).row ‘do somethingNext c基于上述代码运行后,你会发现,少量数据处理上还行,但大量数据之后,电脑卡慢,用时较长等缺点就出来了。那要如何操作才能既快速,又能按行的要求进行循环遍历呢?答案是:使用数组替...原创 2020-01-12 10:13:56 · 2721 阅读 · 0 评论 -
VBA 获取最大行数和最大列数
在EXCEL中,对数据进行定位操作,必然要用到数据区域的最大行和最大列,代码如下:columnmax = Range("IV1").End(xlToLeft).Column '取得1行的最大列数columnmax =cells(i,columns.count).end(xltoletf).column 'i行的最大列数rowmax = Sheet1.Range(...原创 2020-01-12 09:19:29 · 25806 阅读 · 2 评论 -
vba判断word表格中单元格内空是否为空
使用vba在word中处理表格时,有时要判断这一行表格是否为空白,无内容,以便中止或者跳过读取数据,编辑内容。可以使用Table对象的Rows属性返回具体的行,然后判断第一个单元格无内容.再做下一步操作.在word中,空白内容有回车符的段落标记显示,使用代码Chr(13) & Chr(7)表示。Chr(7)表示数据末尾带制表符的黑点。With wd.Documents.O...原创 2019-12-25 21:09:09 · 5207 阅读 · 0 评论 -
VBA 自定义数据结构 含嵌套
在日常工作中,有时会希望有些数据按照特定的结构进行使用.比如:点的坐标point(x,y,z).同时还希望增加一些辅助信息.比如:点号,工程名称等等.这样的情况下,我们可以使用自定义数据结构来定义变量,使用一个变量就可以将很多信息一同引用.下面举个例子来说明:在标准模块中进行自定义数据结构的声明:type pointx as longy as longz as longen...原创 2019-12-25 18:05:57 · 1499 阅读 · 0 评论 -
VBA 字典使用小结:关键字循环
一、字典的基本知识字典是一种封装有属性和方法的对象,简单理解:字典其实就是一些“键-值”对。字典相当于一个多行二列的二维数组或单元格数据区域。字典数据结构有两个很重要的特性:I key(键)不允许重复。当给字典元素赋值时,不存在key时可以新建,存在key时可以更新值。II 数据元素通过key进行索引,我们知道,数据是通过下标进行索引的,所以顺序很重要。而字典是通过key进行索...原创 2019-12-22 16:59:03 · 8162 阅读 · 0 评论 -
易语言对象--Excel之单元格区域读取数据(多行多列)
用易语言在excel表格中读取数据,单个range直接使用ranges.读属性 (“Value”, )就可,多个ranges采用变体变量存储后,用循环方式读出数据。至于要返回文本数组,整数数组,或者文本,全凭个人喜好,但在易语言中,最好操作的当属文本型,所以文例 主要使用文本型 ,其他类型的请对照修改。具体见如下代码: .版本 2 .支持库 spec .子程序 单元格区域...原创 2018-11-06 11:03:24 · 15161 阅读 · 2 评论 -
易语言对象--Excel之单元格区域一次性写入数据(多行多列)
用易语言向excel表格中写数据,单个range或者多个ranges采用循环方式写入数据,对excel的表格访问太过频繁,速度上有一定的影响,思维上不太直观,特别是要对表格中的多个单元格进行更多计算后并一次性写入时,就不容易了。因此,结合变体型变量的灵活性,用其代替多单元格区域属性进行一次写入操作,具体见如下代码: .版本 2 .子程序 单元格区域操作, , , 对excel...原创 2018-10-29 15:20:46 · 6826 阅读 · 0 评论 -
杀一个五余+杀一尾+杀三个和值的方法
1 杀五余(上期百位+个位)/0.618,四舍五入取整后除于5的余数。使用:046 开208(2+8)/0.618=16。16/5的余数=1,047杀五余一。2 杀一尾上期和值/0.618,四舍五入取整后取个位数为尾。使用:046 开20810/0.618=16。16取个位数为尾,杀6尾。3 教大家稳杀三个和值 100期最多错3期方法一:12+上期十...原创 2018-08-24 20:44:44 · 6907 阅读 · 0 评论 -
易语言对象--Excel之活动单元格写入文本或数字
易语言用对象操作excel单元格,主要围绕三个对象:workbooks,wordsheets,ranges等同的还有sheets,range。‘本例对当前工作簿的Excel表格中的活动单元格进行文字或数字的输入。操作前,提前打开一个excel文档。窗口中增加两个编辑框组件,一个按钮组件。.版本 2.子程序 活动单元格操作.参数 定位, 编辑框.参数 输入文本, 编辑框...原创 2018-08-24 17:01:49 · 5095 阅读 · 0 评论