スキルアップ・問題解決なら、モーグにおまかせ！

こんにちは、みなさま。
 
前任者から日引き継いだブックで、数-数、なるデータが全１５０個のセルに書込まれています。
そのセルの 書式→表示形式 には「ユーザー定義」に m-d と設定されています。
そのためこれは 月-日 と解釈され、値コピーでは五桁の整数になってしまいます。
 
見た目どおりの「数-数」とコピーする方法は有りませんか？
 
もちろんのこと、セル全体をコピーすれば「数-数」になりますが、これだと罫線や色などもコピーされてしまいます。
 

その「数-数」というデータは日付データなんでしょうか。
それとも、品番とかなんですか。
 
日付データなら、貼り付け先の書式も「ユーザー定義」に m-d と設定すればいいでしょう。
 
日付データでないなら、そもそも「ユーザー定義」に m-d の設定がまちがいです。
これを表示形式「文字列」に設定しておけば、値コピーしてもそのまま貼り付けられます。

　貼り付け→値と数値の書式
 
とか
 
　形式を選択して貼り付け→値と数値の書式

５桁の数値を"m-d"で表示させる意図について教えてください。
例
数値 　表示
33555 11-13
要するに、日付でもないデータを（意図する／しないに関わらず）日付として表示しているわけで、
これでデータの管理ができるのかな？
変更しようと考えた場合、「値」が分からないと変更するデータが確認できないと思うのです。
 
実際のデータ（値と表示内容）を掲示して貰えますか？

みなさま、ご教示感謝です。
 
WinArrowさん
>要するに、日付でもないデータを（意図する／しないに関わらず）日付として表示
>しているわけで、これでデータの管理ができるのかな？
>
ご指摘の通りです。
前任者には「データ管理」なる意識が全く在りませんでした。
つまるところが、帳票としての見た目が「数-数」になっていれば、よれで良しとしていました。
 
否応なく継承させられて、なんとかしよう・・・、と思ったしだいです。
手作業で済むなら、とこの板に投げました。
 
板の趣旨から、コードの逐一を示しませんが、以下の手順で解決しました。
 
全てのセルをスキャンして、値を datVar に受ける
IsDate(datVar)がTrueなら
mn = Month(datVar): dy = Day(datVar) を取得して
datStr = CStr(mn) & "-" & CStr(dy) を構成
該当セルに .NumberFormatLocal = "@" を設定し
datStrを書き戻す
 
ここで閉じます