excel - テキストvba Excelの特別な部分を抽出する

Question

私はセルにこのようなフォーマットを持っています:

S: 7
P: 
M: 1
L:1
K: 1
Q: 7

各数値を抽出して別の列に書き込みたい、たとえば forS: 7 列 BC に 7、列 BD に P:0、0 を書きたい (数字と : の間のスペースは柔軟です)どうすればvbaでそれを行うことができますか?

アップデート：

Dim objRegex As Object
Dim objRegMC As Object
Dim objRegM As Object
Dim lngCnt As Long

usedRowCount = Worksheets("Übersicht_2013").UsedRange.Rows.Count
For i = 1 To usedRowCount
cellAYvalue = Worksheets("Übersicht_2013").Cells(i, "AY").Value
cellAYvalue = Replace(cellAYvalue, " ", "")

Set objRegex = CreateObject("vbscript.regexp")
With objRegex
.Pattern = "[A-Z]:\s?(\d?)"
.Global = True
If .test(cellAYvalue) Then
Set objRegMC = .Execute(cellAYvalue)
For Each objRegM In objRegMC
'[bc1].Offset(0, lngCnt) = objRegM.submatches(0)
Worksheets("Übersicht_2013").Cells(i, "BC") = objRegM.submatches(0)
lngCnt = lngCnt + 1
Next
End If
End With
Next i

ありがとう