yyyy/mm/ddからyyyy/mmへの変換

いつもお世話になっております．

Excelの第3列の2行目～2027行目までのセルに yyyy/mm/dd と入力されています．
dd （日付）を取り除き，yyyy/mm という入力に直したいのですが，方法が分からずに困っております．

Sub test()
Dim row As Integer
For row = 2 To 2027
　　　Sheets("Sheet1").Cells(row, 3).NumberFormat = "yyyy/mm"
Next
End Sub

上記のようにしてみたのですが，セルの表示形式が変わっただけで，
数式バーの表示を見てみると実質的に dd が残っています．

良い方法をご存知の方がいらっしゃいましたら，
ご教示の程どうぞ宜しくお願いいたします．

No.1 ベストアンサー 回答者： xsw2zaq1 回答日時： 2007/03/31 23:07

セルD2に以下の数式を入力

　=YEAR(C2)&"/"&MONTH(C2)
D3～D2027にD2をコピーして貼り付けでどうでしょうか？

この回答へのお礼

YEAR(　)，MONTH(　)などがあることを初めて知りました．
使い勝手が良さそうですので，今後重宝しそうです．
ご回答誠にありがとうございました．

お礼日時：2007/04/01 01:18

No.2 回答者： kobouzu_su 回答日時： 2007/03/31 23:08

こんばんは。

Cells(row, 3).Value = Year(Cells(row, 3)) & "/" & Month(Cells(row, 3))

とか

Cells(row, 3).Value = WorksheetFunction.Text(Cells(row, 3), "yyyy/mm")

でもＯＫです。
　
尚、Sheet1 がアクティブでないときは、
Sheets("Sheet1")を各Cellsの前に付加してください。
　

この回答へのお礼

ご回答ありがとうございました．
VBAでの書き方までも記していただき助かりました．

お礼日時：2007/04/01 01:20