かなり寝坊して起床したら、隣の家の屋根が真っ白。
©tenki.jp 田布施町の1時間天気 12日10:00発表
どうやら2時〜4時に降ったようだ。
午後からは晴れだが、下がまだ乾ききらないだろうから、「今日の草刈りは無理」と決め込んで、年賀状の整理をやっと始めた。
2018（平成30）年お年玉付き年賀はがき当せん番号
昨年、当選は４本しかないで、並べ替えは今年で最後‥‥
2017年お年玉付き年賀はがき当選番号
- 上記サイトの「当せん番号および賞品」の表
- Excelに貼り付ける。
- 案の定、セルの結合があちこちにある‥‥ ので、Excel上での修正は面倒と
- 同じ表をWordに貼り付け‥‥
- 「1文字毎に記号（文字）を挿入する」を思い出した。
- 今時、こんなことをする人が居るんだぁ〜
- 読み上げたら‥‥ “2 7 ” は「ツー セブン」と...
- Shift＋Enter（任意指定の行区切り）が邪魔しているようなので、取ってしまおう‥‥
と、［検索と選択］⇒ 置換で、「任意指定の行区切り」を ""（置換後の文字列を入力しない）に置換した。 - 置換後のWordの表を、Excelにコピペする。
- セルA4〜C4を選択し、［セルを結合して中央揃え］を解除する。
- セルA5〜C5を選択し、Ctrl＋Ｄ（同上）
- 賞品名（B列）は参考なので8文字以下程度に短縮（2番目の図を参照）し、当せん割合（C列）は削除する。
- D列の項目名を“当選番号”（C列の数値版）、E列名は“下2桁” とする。
- 「当選番号」を作成する。
D2：=SUBSTITUTE(C2," ","")*1- ×1 は、数値にするため。
- Replace がワークシートとVBAで機能が違うので戸惑った。
- 「下2桁」を作成する。
E2：=D2-ROUNDDOWN(D2/100,0)*100 - 「下2桁」で並べ替えて完成！
