Excel
1.“1”如何变为“001”
方法:选中-右键-设置单元格格式-数字-自定义-类型-填写“000”
2.如果在第二列找第一列的值,如果找到就写包含,如果没有就写不包含
方法:=IF(SUMPRODUCT(COUNTIF(B2,A$2:A$100)),“包含”,“不包含”)
3.复制筛选出的数据,而不是全部
方法:筛选-Control+G-定位条件-可见单元格-选中范围-复制
4.生成字母列A,B,C,……AA,AB,AC,……
方法:=SUBSTITUTE(ADDRESS(1,ROW(),4),1,“”)
5.输入拼接的公式后,显示为公式而不是结果
方法:查找-“=”替换为“=”
6.表格空白单元格全部填充为0
方法:选中-Control+G-定位条件-空值-输入“0”-按住Control不放-点击Enter
7.在A列中查找C的位置,并输出对应B列的值
方法:=VLOOKUP(C2,A2:B100,2,FALSE)
8.http://blog.sina.com.cn/s/blog_556c9fa00102wv9k.html
https://zhidao.baidu.com/question/355551600.html
9.多个EXCEL文件合并为一个EXCEL文件
(1)新建一个excel,将新建的Sheet1命名为汇总;
(2)在汇总的标签上点击右键,点击查看代码;
(3)在编辑器内输入以下代码:
Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
(4)关闭编辑器和VBA窗口;