三九宝宝网宝宝教育写作范文

如何利用excel汇总多张相同样式表格的数据

01月02日 编辑 39baobao.com

[月工作计划怎么写样式]工作有两种形式: 一、消极式的工作(救火式的工作:灾难和错误已经发生后再赶快处理) 二、积极式的工作(防火式的工作 :预见灾难和错误,提前计划,消除错误) 写工作计划实际上就是对我们...+阅读

弄个程序 收集 合并后再 用透视表或者 Sumif 汇总, 可以直接统计 有多少个单位 避免遗漏

多个Excel 档放到 一个文件夹内

新建一个Excel档----Alt+F11 视图--代码窗口,把如下代码复制进去,按F5运行即可(如复制进去没有换行,先复制到Word 再复制进去) , 注意 收集 sheet1 的, sheet1 A 列不能为空,因为以A 列的行数为准

Sub 遍历当前文件夹下工作薄()

t = Timer

Application.ScreenUpdating = False

ActiveSheet.Range("2:10000").ClearContents

Dim i, r, wk As Workbook, sh As Worksheet, rr

p = ThisWorkbook.Path & "\"

s = Dir(p & "*.xls*")

Do While s <> ""

If s <> ThisWorkbook.Name Then

Set wk = Workbooks.Open(p & s)

arr = wk.Sheets("sheet1").UsedRange

r = UBound(arr)

For i = 2 To r

Set sh = wk.Sheets("sheet1")

With ThisWorkbook.Worksheets("sheet1")

rr = ThisWorkbook.Worksheets("sheet1").[A65536].End(xlUp).Row + 1

For j = 1 To 20

Cells(rr, j).Value = sh.Cells(i, j)

Next j

End With

Next i

wk.Close

End If

s = Dir

Loop

t1 = Timer - t

MsgBox ("所有工作薄收集完成,用时" & t1 &; "秒")

Application.ScreenUpdating = True

End Sub

以下为关联文档:

企业库房物资管理表格样式根据各个公司的财务需求,库存物资管理表格大致分为四类: (1)固定资产管理表格:主要用于固定资产的管理,分为贴在固定资产上的固定标签和固定资产登记表。固定资产登记表包含:代码...

Word:可以用一个Word文档为模板将样式套用到另一个文档中可以的,具体操作步骤如下: 1、首先,打开计算机桌面上需要进行操作的word文档,找到上方菜单栏中【样式】选项,单击右侧的箭头符号,如下图所示,然后进入下一步。 2、其次,完成上述步...

推荐阅读
图文推荐