Public i As Long, j As Long, k As Long 'ループ変数等 Public n As Long '要素数等 Public str As String '文字数等 Public bool As Boolean '真偽値 Public obj As Object 'オブジェクト Public arr As String '変数 Public var As Variant '型の未定義 Public lng As Long '整数 Public dbl As Double '小数点 Public cnt As Long 'カウンター整数 Public total As Double '合計値 Public min As Double, max As Double '最小値・最高値 Public today As Date '今日の日付 Public file As String 'ファイルパス Public error As String 'エラーメッセージ等 Public message As String 'メッセージ Public index As String 'インデックス整数 Public flag As Boolean 'フラグ真偽 Public target As String 'ターゲット Public temp As String 'テンプ Public buf As String 'バッファ Public ans As String '回答
よく使うような変数をコピーできるようにしました。