Excel笔记——AVERAGEIF函数、VBA

AVERAGEIF求平均数

函数AVERAGEIF共三个参数

1. 目标区域
2. 条件
3. 求解

=AVERAGEIF(E3:E17,“男”,F3:F17)

按行导出

转载自将excel的每行数据导成单独多个txt的办法

1. 在x盘目录下新建文件夹“按行导出”；
2. 在Excel中打开开发工具(文件>选项>自定义功能区>勾选开发工具)–VBA；
3. 添加宏代码【注意：此代码只适应于每行数据全在A列的情况】

Sub DaoChu()
Dim I As Integer
For I = 1 To 2816 '根据总行数进行修改
Open "D:\按行导出\第" & I & "行.txt" For Output As 1 '输出目录和文档名称自行修改
Print #1, Range("A" & CStr(I)).Value
Close 1
Next I
MsgBox "数据导出完毕!", vbOKOnly, "导出成功"
End Sub

4. 单击VBA菜单栏中的运行即可