Excel技巧

一、分开文字和数字

淘宝客 13688.0
直通车 9326.0
手淘搜索 5424.0
手淘首页 1870.0

1.文字在左、数字在右提取文字的公式。若文字在数字的右边，把LEFT替换为RIGHT函数即可。

=LEFT(A1,LENB(A1)-LEN(A1))

2.文字在左、数字在右提取数字的公式。若数字在文字的左边，把RIGHT替换为LEFT函数即可。

=RIGHT(A1,2*LEN(A1)-LENB(A1)) 

二、Excel表格中sheet1和sheet2之间用快捷键如何切换

ctrl + PageDown 、 ctrl + PageUp

三、筛选数据快捷键

alt + D + F + F

四、选择性粘贴 -->转置 (快捷键)

alt + E + S + E + enter

五、复制粘贴公式的数字？

alt + E + S + V

六、将多个Excel文件合并到一个Excel文件中

1.新建一个文件夹，将需要整合的Excel文件全放入，并新建一个新的Excel文件，作为整合后的Excel文件

2.打开新建好的Excel文件，在sheet出右键，“查看代码”，将下面的代码粘贴到代码框中。

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

---

win下直接cmd

copy *.csv all-groups.csv

3.点击菜单栏中的运行-->运行子过程/用户窗体
注意：WPS中的Excel是不行的

七、删除空白单元行

ctrl + A 全选之后
ctrl + G 选定“空值”
最后----右键删除行

八、重复项求和

SUMIF函数语法：=SUMIF(条件区域，条件，求和数据区域)
如：=SUMIF(A$2:A$7,C2,B$2:B$7)，就是求A$2:A$7区域里等于C2单元格的值对应B$2:B$7数据的合计

九、删除所选项到最后所有项

shift + ctrl + End

合并

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Range("A65536").End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub