一蜒灰、分開(kāi)文字和數(shù)字
淘寶客 13688.0
直通車(chē) 9326.0
手淘搜索 5424.0
手淘首頁(yè) 1870.0
1.文字在左弦蹂、數(shù)字在右提取文字的公式。若文字在數(shù)字的右邊强窖，把LEFT替換為RIGHT函數(shù)即可凸椿。
=LEFT(A1,LENB(A1)-LEN(A1))
2.文字在左、數(shù)字在右提取數(shù)字的公式翅溺。若數(shù)字在文字的左邊脑漫，把RIGHT替換為L(zhǎng)EFT函數(shù)即可。
=RIGHT(A1,2*LEN(A1)-LENB(A1))
二咙崎、Excel表格中sheet1和sheet2之間用快捷鍵如何切換
ctrl + PageDown 优幸、 ctrl + PageUp
三、篩選數(shù)據(jù)快捷鍵
alt + D + F + F
四褪猛、選擇性粘貼 -->轉(zhuǎn)置 (快捷鍵)
alt + E + S + E + enter
五网杆、復(fù)制粘貼公式的數(shù)字？
alt + E + S + V
六、將多個(gè)Excel文件合并到一個(gè)Excel文件中
1.新建一個(gè)文件夾碳却，將需要整合的Excel文件全放入队秩，并新建一個(gè)新的Excel文件，作為整合后的Excel文件
2.打開(kāi)新建好的Excel文件昼浦，在sheet出右鍵馍资，“查看代碼”，將下面的代碼粘貼到代碼框中关噪。
Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()
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 & "個(gè)工作薄下的全部工作表鸟蟹。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
win下直接cmd
copy *.csv all-groups.csv
3.點(diǎn)擊菜單欄中的運(yùn)行-->運(yùn)行子過(guò)程/用戶窗體
注意：WPS中的Excel是不行的
七、刪除空白單元行
ctrl + A 全選之后
ctrl + G 選定“空值”
最后----右鍵刪除行
八使兔、重復(fù)項(xiàng)求和
SUMIF函數(shù)語(yǔ)法：=SUMIF(條件區(qū)域建钥，條件，求和數(shù)據(jù)區(qū)域)
如：=SUMIF(A$2:A$7,C2,B$2:B$7)火诸，就是求A$2:A$7區(qū)域里等于C2單元格的值對(duì)應(yīng)B$2:B$7數(shù)據(jù)的合計(jì)
九锦针、刪除所選項(xiàng)到最后所有項(xiàng)
shift + ctrl + End
合并
Sub 合并當(dāng)前工作簿下的所有工作表()
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 "當(dāng)前工作簿下的全部工作表已經(jīng)合并完畢！", vbInformation, "提示"
End Sub
