Vinodは、Excelの高度なフィルタリングツールを頻繁に使用して、フィルタリングされたデータをある場所から別の場所にコピーします。場合によっては、セルの内容だけでなく、フィルタリング基準を満たすセルのセルコメントもコピーしたいと考えています。彼はコメントに基づいてフィルタリングする方法を探していませんが、Excelの高度なフィルタリング機能を使用するときに、セルの内容とともにコメントをコピーするだけです。

（MicrosoftはExcel Office 365でのコメントの動作方法を変更したことに注意してください。コメントはスレッド化され、ユーザーはデータに関して互いに話し合うことができます。メモは以前のバージョンのExcelのコメントのように機能します。）

私たちが知る限り、高度なフィルタリングを使用してコメントやメモをコピーする方法はありません。セルの内容のみがコピーされます。ただし、2段階のプロセスを使用してコメントやメモを簡単にコピーすることは可能です。

まず、データをフィルタリングしますが、必ずその場でフィルタリングを行ってください。情報を別の場所にコピーするように指定しないでください。最終的に、条件に一致するセルのみが表示された、フィルター処理されたリストが作成されます。次に、フィルタリングによって返されたセルを選択します。

次に、表示されているセルのみを選択する必要があることをExcelが認識していることを確認する必要があります。

。 F5キーを押して、[移動]ダイアログボックスを表示します。

。 [特別]をクリックして、[特別に移動]ダイアログボックスを表示します。 （図1を参照）

。 Visible CellsOnlyオプションが選択されていることを確認してください。

。 [OK]をクリックします。

表示されているセルが選択されている（フィルタリングによって非表示になっているセルは選択されていない）と、2番目のステップの準備が整います。通常の編集手法を使用してセルを別の場所にコピーします。その結果、コメントまたはメモが​​セルの内容と一緒にコピーされます。

このタスクをかなり実行し、2つのステップを実行するのにバグがある場合でも、タスクを自動化できます。次のマクロは、フィルターをインプレースで適用し、表示されているセルをクリップボードにコピーしてから、それら（およびそれらのコメントやメモ）を新しいブックに貼り付けます。

Sub AdvancedFilter_AndCopyComments()

With Range("Database")

' filter the data range         .AdvancedFilter Action:=xlFilterInPlace, _           CriteriaRange:=Range("Criteria"), Unique:=False         ' copy visible cells only         .SpecialCells(xlCellTypeVisible).Copy     End With

' goto to another worksheet     Sheets("Sheet1").Select     ' and paste the copied data     With Range("A1")

.PasteSpecial xlPasteColumnWidths         .PasteSpecial xlPasteAll     End With

Application.CutCopyMode = False End Sub

このマクロは、2つの名前付き範囲が設定されていることを前提としています。1つはフィルタリングするデータ用（データベース）、もう1つはフィルタリング基準用（基準）です。マクロを実行すると、フィルタリング、コメント、またはメモされた情報がSheet1に表示されます。

注：

このページ（または_ExcelTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（10284）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice 365のExcelに適用されます。Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkフィルタリング時にコメントをコピーする。