エクセルで列幅の調整 を マクロ記録で探ってみました。
全ての列幅を自動調整するには
Cells.EntireColumn.AutoFit
で できました。
Option Explicit Sub Macro1() ' ' Macro1 Macro ' '指定した列幅を自動調整、ここではA-C Columns("A:C")を指定 Sheets("Sheet2").Select Columns("A:C").EntireColumn.AutoFit Range("A2").Select End Sub Sub Macro2() ' ' Macro2 Macro ' 'シート全体(全ての列)の列幅を自動調整 Cellsで全てのセルを選択 Sheets("Sheet2").Select Cells.Select Cells.EntireColumn.AutoFit Range("A1").Select End Sub
試行錯誤の動画
こんな感じで、マクロ記録で作ってみました。
www.youtube.com
http://www.youtube.com/watch?v=LhqF7SC3QrA
↑列幅の調整テストなので、
東京一郎 や 横浜太郎 だと味気ないので、
長い名前の人で有名人な人としてよく
ユースケ・サンタマリア さんを使っています。
※みなさんも、テストデータとして使ってみてください。
(業界のテストデータで流行るいいいなぁなんて)
テストデータ
金曜日 タイトル LADY〜最後の犯罪プロファイル〜(TBS系)
出演者 役名
北川景子 香月翔子役
木村多江 結城晶役
平岡祐太 新堀圭祐役
須藤理彩 奥居マリエ役
小澤征悦 藤堂壮一郎役
要潤 寺田毅彦役
ユースケ・サンタマリア 柘植正樹役
月曜日 タイトル 大切なことはすべて君が教えてくれた
出演者 役名
戸田恵梨香 上村夏実役
三浦春馬 柏木修二役
武井咲 佐伯ひかり役
篠田麻里子 東堂さやか役
内田有紀 水谷亜弥役
西村雅彦 中西佳史役
風間杜夫 鶴岡悟司役
で、列幅の自動調整のテストをしてみました。
全体の解説は http://ken3hitori.g.hatena.ne.jp/bbs/18?from=1 を見てください。