エクセルのマクロでエラー処理

質問

WindowsXPでOffice2003です。
エクセルのマクロの初心者です。
履歴一覧表から部屋別シートに転記しようとしています。
シート名は部屋番号を、数字のみ (４桁)、A101～、B101～に分けています。
今、一覧表の部屋番号が、本来A101のところがA－101になっていたりすると、シート名が見つからずエラーになってしまいます。
この時にA－101をA101に書き換えて続行させる方法が分からず立ち往生しています。
急いではいませんのでよろしくお願いします。

回答No.5

Wendy02

どういうマクロになっているのでしょうね。
それで、直しようもないので、こちらが勝手にコードを書かせていただきます。

　A　　　　B
部屋番号　人員
A101　　　　6
A102　　　　3
A-111　　　5　　'ハイフン無しでも、存在しない
A104　　　　10

Sub TestConvertData1()
　Dim rng As Range
　Dim c As Range
　Dim n As String
　Dim tmp As Variant
　Set rng = Range("A2", Cells(Rows.Count, 1).End(xlUp))
　On Error GoTo ErrHandler
　For Each c In rng
　　n = c.Value
　　Worksheets(n).Cells(Rows.Count, 1).End(xlUp).Value = c.Offset(, 1).Value
　Next c
　Exit Sub
ErrHandler:
　'見つからない場合の処理
　n = Replace(c.Value, "-", "", , , 1) '全角でも除去可能
　tmp = Evaluate("'" & n & "'!A1")
　If IsError(tmp) Then
　　Resume Next
　Else
　　c.Value = n
　　Resume
　End If
End Sub

お礼

お礼が遅くなってしまいましたが、ＮＯ７の方のお礼でまとめて書かせていただきました、今回はありがとうございました。

丁寧にコードを書いていただきましたが、ほとんど理解できませんでした。申し訳ありませんでした