Excel(2007)のVBAを作成していただきたいです。

このような感じの処理でしょうか。

アクティブシートを処理するようにしています。

Sub ramumuModify()
    Set RegExp = CreateObject("VBScript.RegExp")
    With RegExp
        .Global = True

'//  <### を 0 にする
        .Pattern = "^<\d+[\.]{0,1}\d*$"
        For Each r In ActiveSheet.UsedRange
            If .Test(r.Value) Then r.Value = 0
        Next

'//  [###] の [] を外す
        .Pattern = "^\[\d+[\.]{0,1}\d*\]$"
        For Each r In ActiveSheet.UsedRange
            If .Test(r.Value) Then r.Value = Mid(r.Value, 2, Len(r.Value) - 2)
        Next
    End With
    Set RegExp = Nothing
End Sub