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

たとえば、数百列のデータを含む大きなワークシートがあるとします。 次に、3列ごとのデータをコピーして、別の新しいワークシートに貼り付ける必要があります。 n番目の列をXNUMXつずつ選択するのは時間がかかりますが、簡単な方法はありますか？

VBAでn番目ごとの列を選択します

Kutools forExcelでn番目ごとの列を選択します

VBAでn番目ごとの列を選択します

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

1.n番目の列ごとに選択する範囲を強調表示します。

2.Click Developer > ビジュアルベーシック またはプレス Alt + F11、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール 次のコードをモジュールに入力します。

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列ごとに選択されます。 スクリーンショットを参照してください：

Note：秒単位で数値を指定できます Kutools for Excel あなたのニーズを満たすためのダイアログ。

ただし、XNUMXつの間隔でXNUMXつの列を選択する必要がある場合もあります。 上記のコードは機能しません。どうすればよいですか？

Kutools forExcelでn番目ごとの列を選択します

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

連絡先 Kutools for Excel、特定の間隔で特定の数の列を選択できます。 次の手順で実行してください。

1.Click クツール > 選択 > 間隔の行/列を選択します.

2。 A 間隔の行/列を選択します ダイアログボックスが表示されます。 次に、をクリックします ボタンをクリックして必要な範囲を選択し、 コラム から セクションを選択、で必要な番号を指定します の間隔 • コラム ドロップダウンリスト。ここでは、3td列ごとにXNUMXつの列を選択します。 スクリーンショットを参照してください：

3.Click OK。 選択範囲内でXNUMXつの間隔でXNUMXつの列を選択します。 スクリーンショットを参照してください：

Note：チェックした場合 列全体を選択 ポップアップダイアログで、シートの列全体が選択されます。 スクリーンショットを参照してください：

関連記事：

• ExcelでXNUMX行おきまたはn行目を選択します
• XNUMX行おきにコピー
• XNUMX行おきに削除
• XNUMX行おきに非表示