- 博客(5)
- 收藏
- 关注
原创 复制表格,自动调整列宽
特别调整的表格部分 pastespecial语法 代码部分:Sub RngCopy()Application.Displayalerts=FalseSheet1.Range("A1").CurrentRegion.CopyWith Sheet2.Range("A1").PasteSpecial xlPasteColumnWidths.PasteSpecial xlPasteAllEnd
2017-08-16 16:34:35 466
原创 拆分表格 不同工作簿
Sub chaifen()Dim r, Arr, d, k, iDim rng As RangeDim sht As Worksheet, Sht1 As WorksheetSet d = CreateObject("Scripting.Dictionary")Application.ScreenUpdating = FalseApplication.DisplayAlerts = Fa
2017-08-10 20:25:23 614
转载 字典法
字典法set d=createobject("scripting.dictionary")上面的代码就相当于你准备好了一本空白的字典了,之后你就要往其中添加内容,比如说我们现在往字典里加入第一个词条“VBA”,并且给这个词条加上解释“一种Excel中使用的编程语言”,看下面的代码 d("VBA")="一种Excel中使用的编程语言"这样就给字典加了一个词条“VBA”并且给它赋了值,这里赋的值可以随便
2017-08-04 17:24:01 620
转载 竖排汇总工作表
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来,用它写博客,将会带来全新的体验哦:Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2017-08-03 15:40:59 364
原创 2017-8-3 VBA
数组,数据,类型。For-each。For-next语句数据-Integer 范围 32367-String 范围 20亿【字符串长度】-mypath问题-Dir显示磁盘整个内容-变量声明 $为文本型,&为整数型-所谓遍历,是指沿着某条搜索路线,依次对树中每个结点均做一次且仅做一次访问。-GetObject方法打开工作簿是隐藏的,单步运行时你也可以看到屏幕闪了一下,
2017-08-03 15:38:07 356
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人