Excel:2行ごとに削除-それは可能ですか?
Microsoft Excelでは、2行ごとに自動的に削除できます。 この実用的なヒントでは、これがどのように機能するかを説明します。
予備:2行ごとに削除する開発者ツールを表示する
- 左上の[Office]ボタンをクリックして、[Excelオプション]を選択します。
- 「よく使用する」に進みます。 [Excelを使用する際の最も一般的なオプション]で、[リボンに開発者タブを表示する]オプションを有効にします。
- [保存]で変更を確認します。
Excel:プログラムコードで2行ごとに削除する
マイクロソフトは、この目的のために使用できるプログラムコードをリリースしました。 次の手順に従ってください。
- 対応するテーブルデータがあるファイルを開きます。
- [開発ツール]をクリックし、[コード]の下の[Visual Basic]に移動します。
- Visual Basic Editorが開きます。 ここで「挿入」をクリックし、「モジュール」をクリックします。
- 次のコード(引用符を除く)をモジュールにコピーします。 "Sub Delete_Every_Other_Row() 'Dimension variables。Y = False' '1、3、5などの行を削除する場合は、これをTrueに変更します。I= 1 Set xRng = Selection '選択範囲のすべての行に対して1回ループします。For xCounter = 1 To xRng.Rows.Count' YがTrueの場合、... If Y = True Then '...セルの行全体を削除します。 xRng.Cells(I).EntireRow.Delete 'Otherwise ... Else' ...範囲を循環できるようにIを1つ増やしますI = I + 1 End「YがTrueの場合はFalse、Yの場合」 Falseの場合、Trueにします。Y = Not Y Next xCounter End Sub "
- 次に、Excelファイルに戻り、1行おきに削除する列をマークします。
- 次に、「コード」領域の「開発者」の下にある「マクロ」をクリックします。 そこには、「Execute」で始まるマクロ「Delete_Every_Other_Row」が表示されます。
この実用的なヒントは、Excel 2007で実現しました。 Excelでは、複利または3レート率を計算することもできます。