共 79 篇文章 |
|
Excel取唯一值的五种方法。内容提要文章总结Excel中取唯一值的多种方法:分别用函数、技巧、透视、VBA多种方法实现取唯一值。Excel取唯一值的方法很多,比如通过高级筛选、函数公式以及自定义函数都可以实现。单击插入——数据透视表,然后勾选“城市”字段,唯一值就提取出来了。Function Wsingle(rng1 As Range, x As Integer)Dim m As Range... 阅1 转自L罗乐 公众公开 18-12-28 14:44 |
Excel [求助]ChartArea 的位置和大小控制。Sub Macro2() Dim p As ChartObject For Each p In ActiveSheet.ChartObjects With p .Top = ActiveSheet.[a1].Left = ActiveSheet.[a1].Width = ActiveSheet.[a1:h10].Width .Height = ActiveSheet.[a1:h10].Height End With NextEnd Sub. 阅540 转1 评0 公众公开 18-06-15 08:33 |
Excel 求教:format()函数 以下文章来自本站,"如:Format(-3.14, "Yes/No")="Yes" Format(0, "Yes/No")="No"与!配合可从后面截取一段文本,如:截取"abcde"后面1个字符文本,代码为:Format("abcde", "!@")=e截取"abcde"后面2个字符文本,代码为:Fo... 阅7375 转16 评0 公众公开 18-06-13 21:16 |
巧用vba在ppt中灵活切换幻灯片。这个电影需要在好几个幻灯片中都要展示引用,又不想多做几张这个电影的幻灯片,就开始想能不能用这个一张幻灯片来解决所有问题呢?如果用ppt中默认的几种超级链接方式,都达不到预定的效果,那就是电影播放后,点一下这张幻灯片上唯一的一个按钮必须返回刚才的幻灯片。2.利用控件箱,在这张幻灯片上放一个按钮,... 阅706 转10 评0 公众公开 17-05-31 15:29 |
Excel VBA使用Sort方法对数据进行排序在实际运用中对数据排序,采取录制宏的方式取得Sort方法代码,由于理解得不够透彻,得出一些错误的理解:1、Sort方法对非当前工作表无效;1、参数顺序有一个地方容易被忽略,就是下面红圈中的TYPE参数。而实战中,最少三个参数很重要,除了关键字1和排序顺序,标题行Header也很关键,这取决于排序区域是否... 阅7713 转11 评0 公众公开 16-07-07 17:10 |
Excel 取数据区域的最大行(列)数1.1.1 方法1:ActiveSheet.UsedRange.Rows.CountActiveSheet.UsedRange.Columns.Count缺点:有时可能会比实际数大一些,原因是如果你把最后几行(列)数据清除后(非整行或整列删除),用这个命令仍返回未清除前的值。 阅3718 转33 评0 公众公开 16-07-06 14:14 |
dim i%, dim i# dim i@ dim i$ dim i& dim i!相当于 dim i as single dim i# 相当于 dim i Double dim i@ 相当于 dim i as Currence dim i$ 相当于 dim i as String dim i% 相当于 dim i as Integer dim i& 相当于 dim i as i Long. 阅2952 转14 评0 公众公开 16-07-03 12:37 |
Range("待排序数据区域").Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)【引用方法】1. 带参数名引用,如: key1:=Range("G3") 带参数名引用时。2. 参数位置引用,即按照上述Sort命令的参数顺序... 阅3182 转11 评0 公众公开 16-07-03 11:05 |
Sub 按aa工作表A列的内容排列工作表标签顺序()Sub 以A1单元文本作表名插入工作表()Sub 为指定工作表加指定密码保护表()Sub 光标定位到指定工作表A列最后数据行下一单元()Sub 将Sheet1的A列的非空值写到Sheet2的A列()Range(Worksheets("数据库").Cells(ier + 1, 3), Worksheets("数据库").Cells(ier + 1, 3)).Hyperlinks.Ad... 阅8 转自网海漫步 公众公开 16-07-03 10:54 |
Sub f7() ''查找不到的情况Dim MRG As RangeSet MRG = Range("A:A").Find("D") If MRG Is Nothing Then MsgBox "查找不到字母D" Else MsgBox "查找成功,单元格地址为:" &MRG.Address End IfEnd Sub.Sub f8() ''二次查找Dim MRG As RangeSet MRG = Range("A:A").... 阅4925 转9 评0 公众公开 16-07-03 10:50 |