Excel2007からPDF形式のファイルが作成できるようになりました。
この機能はアドインという形で提供されていますのでMicrosoftのサイトからダウンロードしてインストールする必要があります。
なお、SP2では、PDF/XPS のサポートが組み込まれ、アドインを別途ダウンロードする必要はありません。

[Officeボタン]→[名前を付けて保存]→[PDFまたはXPS] が表示さる場合はここの操作は不要です。
[PDFまたはXPS] が表示さず、[他のファイル形式用のアドインを探す]が表示される場合はアドインをインストールする必要があります。
Officeボタンをクリックし、[名前を付けて保存]→[他のファイル形式用のアドインを探す]を実行します。
ヘルプ画面が表示されますので、後は画面の指示に従います。
Microsoft Office Onlineからダウンロードすることも出来ます。

PDFファイルの作成方法

１．Excel2007で下図のような表とグラフを作成しました。

２．[Officeボタン]→[名前を付けて保存]→[PDFまたはXPS] を実行します。

３．ファイルの保存先を選択し、ファイル名を入力します。

４．ファイルの種類が「PDF(*pdf)」となっているのを確認し、[発行]ボタンをクリックします。

以上でPDFファイルが作成されました。

マクロ開発タブ表示｜エクセル2007

Excel（エクセル）マクロ・VBA

3月 13, 2010

0 5596

初期状態では「開発」リボンは表示されていません。
マクロの自動記録やフォームコントロールを使いたい時など困ってしまいます。
Officeボタン→[Excelのオプション]を実行します。

[基本設定]で「[開発]タブをリボンに表示する」にチェックを入れます。

[開発]タブが表示されました。

重複なしのデータ抽出（４）｜エクセルＶＢＡ

Excel（エクセル）マクロ・VBA

3月 13, 2010

0 6183

Dictionaryを利用する

Dictionaryオブジェクトを利用します。
このページの中ではもっとも短時間で処理できます。
コード例
Sub myDic()
　　Dim myDic As Object, myKey As Variant
　　Dim c As Variant, varData As Variant
　　　　Set myDic = CreateObject(“Scripting.Dictionary”)
　　　　With Worksheets(“Sheet1″)
　　　　　　varData = .Range(“A1″, .Range(“A” & Rows.Count).End(xlUp)).Value
　　　　End With
　　　　For Each c In varData
　　　　　　If Not c = Empty Then
　　　　　　　　If Not myDic.Exists(c) Then
　　　　　　　　　　myDic.Add c, Null
　　　　　　　　End If
　　　　　　End If
　　　　Next
　　　　myKey = myDic.Keys
　　　　With Worksheets(“Sheet2″)
　　　　　　.Range(“G:G”).ClearContents
　　　　　　.Range(“G1″).Resize(myDic.Count) = Application.WorksheetFunction.Transpose(myKey)
　　　　End With
　　　　Set myDic = Nothing
End Sub