まず、コピー元のシートで下記のマクロを実行する。 Public Sub 列幅を取得() Dim nCol As Long Dim I As Long With ActiveSheet nCol = .UsedRange.Columns.Count For I = 1 To nCol With .Columns(I) Debug.Print "ActiveSheet.Range(""" & .Address & """…