'------------------------------------------------------'セルの書式設定を書き出し'' 戻値：なし'' 引数：コピー元セル（範囲指定は不可）' ：コピー先セル（範囲指定可）'' 注意：コピー元セルが複数指定されている場合エラーとする'-------------------…

この表の各セルの書式を赤い罫線内に書き出す A列：文字列（A4のみ標準）、B列：数値、C列：通貨 1行目はタイトルなので値をコピー Dim lngMaxRow As Long Dim lngMaxCol As Long Dim i As Integer Dim j As Integer '表内最大行を取得 lngMaxRow = lngGetMa…