ExcelVBAマクロ「エクセルに関わるなぜ？」ちょっとした疑問を解決！

Boolean型は記載方法を省略する事が可能です。どちらも正解なので、好みでどうぞ。
flgがTrueの場合の処理です。

[vbnet] ‘■省略した記載
If flg Then
　　’■省略していない記載
If flg = True Then
[/vbnet]

flgがFalseの場合の処理です。どちらも結果は同じです。

[vbnet] ‘■省略した記載
If Not flg Then
　 ‘■省略していない記載
If flg = false Then
[/vbnet]

検索範囲がA1:A100ならA2から順番に検索し、A100まで検索し終えた後、A1を計算します。
上記の質問の場合、A1に該当しても一番最後の結果で抽出されます。
引数Afterの位置を最終セルにする事で、1番目から検索します。

[vbnet] ‘■検索範囲をSet
Set rng = Range("A1:A20")
‘■A20の次の範囲内のセルから検索＝A1から検索
Set target = rng.Find(what:="あいうえお",After:=Range("A20") LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=True, MatchByte:=True)
　　　　　　　　　　　　　　　　　　　　　 ‘After:=Cells(20, 1)といった表記も可能です。
[/vbnet]

その他関係あるページは以下。

• • セル検索するFindメソッドについて
  • セル検索結果を全て抽出するFindNext/FindPreviousメソッドについて
  • Range(“A20”)の部分を自動で最終行で判断したい

仕様です。マクロを実行すると元に戻す処理はクリアされます

「指数表示」「0欠落した電話番号」のままCSVファイルで保存してしまうと、崩れた状態で保存されます
→元のデータには戻りません。
元から文字列で開けばOKです。下記ページ参考にしてください。
ExcelVBAマクロ「CSVファイルを文字列形式で開く」をパーツ化する

下記が公式な仕様書です。
(英語)
https://msdn.microsoft.com/ja-jp/library/dd361851.aspx

(日本語)
https://docs.microsoft.com/ja-jp/office/vba/api/overview/