Sub 追加1() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Dim a As Variant Sheets("汇总").Delete Worksheets.Ad... ...
分类：
其他好文 时间：
2018-08-20 13:09:09
阅读次数：
130
Visio如何合并多张工作表（将多个文件合并成一个文件）今天有个盆友问了我这样一个问题：手上有3张Visio文件，分别是3张流程图。他想将3个文件做成像excel表那样，有工作表1，工作表2，工作表3的样式。图片效果如下：将上述3个流程图文件，合并到一个文件里去，如下图：实现方..
分类：
其他好文 时间：
2015-09-15 01:53:18
阅读次数：
365
表1：Name 表2：Score 在Name表 C2单元格，输入公式：=IFERROR(VLOOKUP(A2,Score!A:B,2,0),"") 回车，得到对应的Score Ctrl+C复制，点击C列，回车 回车Enter...
分类：
其他好文 时间：
2015-05-09 17:38:42
阅读次数：
133
1 Private Sub CommandButton1_Click() 2 Dim rng As Range, arr As Range 3 4 gjl = Range("b13") 5 gjz = Range("b14:b" & Range("a65536").End(xlUp).Row) .....
分类：
其他好文 时间：
2014-11-19 10:29:31
阅读次数：
251
