instr,left,mid 定位、取内容（字符串）函数

instr（查找范围，“查找内容”）：定位函数，在某个某个单元格内，寻找引号内的内容，并返回所在位置的值。

left(查找范围，查找位置的值）

mid（查找范围，起始位置的值，延续长度）

Sub a()
Dim ak As Range, sr As Integer

 For Each ak In Range("a10", [a10].End(xlDown))
    sr = VBA.InStr(ak, "/") ‘定位：在ak范围内寻找“/”的所在位置，并将地址的值赋给sr变量

    ak.Offset(0, 1).Value = Left(ak, sr - 1)‘取值：在ak内寻找sr-1的内容，并赋值给ak.offset 单元格
    ak.Offset(0, 2) = Mid(ak, sr + 1, 9)‘取值：在ak内寻找sr+1的位置，并将其后的9个字符返回给sk.offset单元格

 Next ak

End Sub

本例中将两个函数结合起来，从而动态地截取内容：

单纯使用left或mid 函数只能截取固定范围内的内容。

而将instr函数引入，返回一个位置的值，将此值作为left函数中的地址，从而达到“动态”的效果。