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 · ベストアンサー

セルD2に以下の数式を入力
　=YEAR(C2)&"/"&MONTH(C2)
D3～D2027にD2をコピーして貼り付けでどうでしょうか？

お礼

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

回答No.2

kobouzu_su

こんばんは。

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での書き方までも記していただき助かりました．