搜索列的字符串文本带有数字，然后使用= mid提取2个数字

Question

我是录制宏的新手，并且能够将记录的宏编辑为更概括的状态，以便可以在不同的电子表格上运行宏。很抱歉，如果以前回答了这一点，我确实搜索了，但是从我的标题中可以看到，我很难解释我要做的事情。

更新的屏幕快照

您可以看到，我在A列中具有混合数据，而我只想在" - "的左侧有两个数字。我已经使用了=中间(A9,17,2(来获得所需的结果，即02，但是，不能保证数据始终在A96中，因为这些是对单个事项的导出摘要报告。我还应该提到，字符串数据始终是相同的长度，但不相同的"名称" SE2013000123.00002-1。

在运行中间公式后，我需要将公式应用于其中包含字符串的所有单元格。

我录制了一个宏，但是我需要取出的内容以及如何基于可变数据搜索搜索(是正确的术语？(。

。

Option Explicit
Sub Test2()
'
' Test2 Macro
'
'
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B96").Select
ActiveCell.FormulaR1C1 = "=MID(RC[-1],17,2)"
Range("B97").Select
End Sub
Sub Value()
'
' Value Macro
'
'
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End Sub

Answer 1

作为text-thing-thing-like like a数字，

with worksheets("Sheet1")
    .Range(.cells(96, "B"), .cells(.rows.count, "A").end(xlup).offset(0, 1).Formula = "=MID(A96, FIND(CHAR(45), A96)-2, 2)"
end with

作为真实数字，

with worksheets("Sheet1")
    .Range(.cells(96, "B"), .cells(.rows.count, "A").end(xlup).offset(0, 1).Formula = "=--MID(A96, FIND(CHAR(45), A96)-2, 2)"
end with