文字列で表記されている年月の表記を変更したい

はじめまして。
VBA超初心者です。

エクセル一覧で15/01と文字にて表記されている文を1501と変換したいのですがうまくいきません。

月 品番 品名 内容 担当者 結果
15/01 あ い う え お
15/02 あ い う え お
15/03 あ い う え お
15/04 あ い う え お
15/05 あ い う え お
15/06 あ い う え お
15/07 あ い う え お
15/08 あ い う え お
15/09 あ い う え お
15/10 あ い う え お

表としては上記のような感じです。

いろいろ調べて
Dim i As Long

For i = 2 To xlDown

If Cells(i, 1) = "@@" & "/" & "@@" Then
Cells(i, 1) = Replace(Cells(i, 1), "/", "")
End If
Next i

とやってみたのですが全く無反応でした。

すみませんが教えてください。

質問者からの補足コメント

• 早速ご回答ありがとうございます。
  質問が足らずすみません。
  実はこの一覧は元のデータベースから毎日自動更新されてしまうのでできればシートを開いた時に毎回自動的に置換されるようにマクロとして組みたいのです。
  VBAで置換するにはどうしたらいいでしょうか?

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/10/27 19:23

No.2 回答者： bonaron 回答日時： 2015/10/29 11:05

> 実はこの一覧は元のデータベースから毎日自動更新されてしまうのでできればシートを開いた時に毎回自動的に置換されるようにマクロとして組みたいのです。

No.1 さんの回答の動作を「マクロの記録」でコード化し、
シートを開いた時（ブックを開いた時？ シートがアクティブになった時？）のイベントで、それを呼び出せばよろしいのでは？

No.1 回答者： 銀鱗 回答日時： 2015/10/27 19:05

置換で「/」を「」と、ブランクに置き換えればよい。

置換したい範囲を選んで、Ctrlキー通しながらHキーを押し、
検索される文字列に「/」を、
置換後の文字列には何も入れない（何か入っていたら削除する）。
そして「置換」ボタンをクリック。