Excel笔记

Excel使用过程中的笔记。

文本数字批量转换为数字

我们有时在网页上导出报表时,会遇到数字无法进行计算的情况,这可能是由于单元格中的数字是以文本的形式储存的,我们需要将文本的格式转换为数字格式才能进行运算。

分列法:

如果数据在一列中,那么选择这一列数据,点击数据中的分列,然后一直下一步,最后点击完成。

分组计算平均值

假设这里需要按照销售分部分组计算销售额平均值。

全选数据,依次点击数据选项中的分级显示项目下的分类汇总选项按钮。在分类字段中选择销售分部选项;在汇总方式中选择平均值选项;在选定汇总项中选择销售金额选项。

多个Excel文件的工作表合并成一个工作表

  1. 新建一个Excel工作薄,工作簿名称任你定义
  2. 打开此工作薄,把Sheet重命名为”汇总”
  3. 在这个工作表标签上点击右键,选择查看代码
  4. 在打开的VBA编辑窗口中粘贴以下代码:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub 多文件合并能够自由选择文件夹()
Dim arr()
Dim wb As Workbook
Dim sht As Worksheet
arr = Application.GetOpenFilename("Excel文件,*.xls*", 2, , , True)

Application.ScreenUpdating = False '关闭屏幕刷新

If arr(1) <> "False" Then

For i = LBound(arr) To UBound(arr)
Set wb = Workbooks.Open(arr(i))
For Each sht In wb.Sheets
'以下4行是壳内的命令,用于复制打开的工作簿
If InStr(sht.Name, "费用") > 0 Then
irow = sht.Range("A65536").End(xlUp).Row
irow1 = ThisWorkbook.Sheets("汇总").Range("A65536").End(xlUp).Row + 1
sht.Range("a1:z" & irow).Copy ThisWorkbook.Sheets("汇总").Range("a" & irow1)
wb.Close False '关闭工作簿并且不保存
End If
Next
Next
End If

MsgBox "执行完毕!"
Application.ScreenUpdating = True '打开屏幕刷新

End Sub

注意:If InStr(sht.Name, "费用") > 0 Then这段代码指定要合并的Sheet的名字,比如”费用”修改成”经销商”,则包含“经销商”几个文字的Sheet都会纳入合并。

  1. 在Excel中,工具—宏—宏,选多文件合并能够自由选择文件夹,然后“执行”,在打开的对话窗口中,选择你要合并的几个工作薄文件

打开Excel文件时出错: 对象 ‘Open’ 的方法 ‘Workbooks’ 失败

调用打开一个Excel文件,一直都运行正常,在未做任何改动的情况下,突然出现这个错误:对象 ‘Open’ 的方法 ‘Workbooks’ 失败。

错误原因:通常会是文件损坏或被其他程序以独占模式使用的情况下出现对象 ‘Open’ 的方法 ‘Workbooks’ 失败的

参考


----------- 本文结束啦感谢您阅读 -----------

赞赏一杯咖啡

欢迎关注我的其它发布渠道