Excelでn列ごとに選択するにはどうすればよいですか？

例えば、数百列のデータを持つ大きなワークシートがあるとします。そして今、3列ごとのデータをコピーして新しいワークシートに貼り付ける必要があります。n列ごとに一つずつ選択するのは時間がかかるので、簡単な方法はありますか？

VBAを使用してn列ごとに選択する

Kutools for Excelを使用してn列ごとに選択する

VBAを使用してn列ごとに選択する

この問題を解決するには、VBAコード以外に簡単な方法はなさそうです。次の手順を行ってください：

1. n列ごとに選択したい範囲をハイライトします。

2. 開発 > Visual Basic をクリックするか Alt+F11 を押すと、新しい Microsoft Visual Basic for Applications ウィンドウが表示されます。 挿入 > モジュール をクリックして、次のコードをモジュールに入力してください：

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. その後、 ボタンをクリックしてコードを実行すると、作業する範囲を選択するように促すポップアップが表示されます。スクリーンショットをご覧ください：

4. 「OK」をクリックし、もう一つのポップアップダイアログに間隔の数を入力します。この場合、ボックスに「3」を入力します。スクリーンショットをご覧ください：

5. 「 OK」をクリックします。これで選択範囲内の3列ごとが選択されます。スクリーンショットをご覧ください：

注釈: 2番目の KutoolsforExcel ダイアログで数字を指定してニーズに合わせることができます。

しかし、時には2列間隔で2列を選択する必要があるかもしれません。上記のコードでは動作しませんが、どうすればよいでしょうか？

Kutools for Excelを使用してn列ごとに選択する

Kutools for Excel: 300以上の便利なExcelアドインがあり、30日間無制限で無料試用できます。いますぐ入手してください。

Kutools for Excelを使用すると、特定の間隔で特定の列数を選択できます。次の手順に従ってください：

1. Kutools > 選択 > 間隔行/列の選択 をクリックします。

2. A 間隔行/列の選択 ダイアログボックスが表示されます。次に ボタンをクリックして必要な範囲を選択し、 列 から 選択セクションを選び、 間隔 と 列 ドロップダウンリストで希望する数値を指定します。ここでは、3列ごとに2列を選択します。スクリーンショットをご覧ください：

3. 「 OK」をクリックします。選択範囲内で2列間隔で2列が選択されます。スクリーンショットをご覧ください：

注釈: ポップアップダイアログで「列全体を選択」にチェックを入れると、シート内の列全体が選択されます。スクリーンショットをご覧ください：

関連記事：

• Excelで他の行またはn行ごとに選択する
• 他の行をコピーする
• 他の行を削除する
• 他の行を非表示にする