截取-- 前面的字符
=LEFT(J2,SEARCH("--",J2)-1)
截取-- 后面的字符
=RIGHT(J2,LEN(J2)-SEARCH("--",J2)-2)
=RIGHT(A1,LEN(A1)-FIND("--",A1)-1)

去除非数字(保留数字)：
=LOOKUP(9E+307,--LEFT(MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),99),ROW($1:$99)))

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

//计算A列不为空的行数
=COUNTA(A:A)
//统计A列不重复行数
=SUMPRODUCT(1/COUNTIF(A2:A1334,A2:A1334))

//用变量表示单元格位置
A1334 == INDIRECT("A"&1334)
1334 == COUNTA(A:A)
//A1334需要使用变量来表示 == INDIRECT("A"&COUNTA(A:A))
=SUMPRODUCT(1/COUNTIF(A2:INDIRECT("A"&COUNTA(A:A)),A2:INDIRECT("A"&COUNTA(A:A))))

//大于100
=COUNTIF(p:p,">773")
//是否包含某个字符，返回true/false
=ISNUMBER(FIND("xxx",A2))