步骤
1.保存为支持宏命令的excel格式
2.先录制,
3.把重复的操作用for to next的语句段写出来

案例如下:
Sub Macro5()
For i = 9 To 10073
    Range("I" & i).Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],FIND(""-"",RC[-1])-1)"
Next
End Sub