メインコンテンツへスキップ

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

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

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


関連記事:

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have one issue in excel, for example, in a row first five sells are numbered as 1,2,3, 4,5. in the second row also numbered as 1,2,3,4,5 in each sell. then to the third row need to paste the values of above two rows alternatively. means i need answer in each sells in third row 1,1,2,2,3,3,4,4,5,5. how can I do easily in excel? I am waiting for your response because I need to complete big datasheet.
This comment was minimized by the moderator on the site
i need to copy from f18 to h19, then f21 to h22, and it goes on till 500 values and before the value in h column need to add text also

like f18 = 345

in h19 I should get = tdg 345

for 500 values in h column.

please help me someone
This comment was minimized by the moderator on the site
This macro sucks dont waste your time
This comment was minimized by the moderator on the site
For some reason this does not work if only one row is selected.
This comment was minimized by the moderator on the site
Excel 2010 - Select interval column command does not work. There is no any raction after clicking - ok
This comment was minimized by the moderator on the site
I always get an error: invalid procedure... How can I solve it. I want to select every 4th column in my dataset
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations