ExcelでXNUMX行おきに列に移動する方法
以下のスクリーンショットに示すように、すべての奇数行をXNUMXつの列に移動し、すべての偶数行を別の列に移動するなど、XNUMXつおきの行データをExcelの列に移動しようとしたことがありますか。 ここで私はこの問題を処理できるいくつかのトリックを見つけます。
Kutools for Excelを使用して、XNUMX行おきに列に移動します
数式を使用してXNUMX行おきに列に移動します
ほとんどのExcelユーザーにとって、数式を使用してExcelの問題を解決するのが最も簡単な方法です。
1.データの横にあるセルを選択し、この数式を入力します = IF（ISEVEN（ROW（B2））、B2、 ""） （B2は取得したいデータを示します）を入力し、を押します 入力します キーを押してから、自動塗りつぶしをドラッグして、この数式を使用する範囲を塗りつぶします。 これで、XNUMX行おきのデータがこの列で取得されました。
2.次に、上記の列の横にある他のセルを選択し、この数式を入力します = IF（ISODD（ROW（B3））、B3、 ""） （B3は取得したいデータです）それに入力し、を押します 入力します キーを押してから、自動塗りつぶしをドラッグして、この数式を使用する範囲を塗りつぶします。 これで、XNUMX行ごとのデータがこの列で取得されました。
VBAを使用してXNUMX行おきに列に移動します
フォローVBAは、XNUMX行おきに列に移動することもできます。
1。 押す F11 + Alt Mを開くためにキーボードのキーを一緒にicrosoft Visual Basic for Applications 窓。
2。 次に、をクリックします インセット > モジュール 新しいモジュールウィンドウを挿入します。 次に、次のVBAコードをウィンドウにコピーします。
VBA：XNUMX行おきに列に移動します。
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3。 クリック ラン ボタンまたは F5 キーボードのキーを押すと、移動する範囲を選択するためのダイアログがポップアップ表示されます。 スクリーンショットを参照してください：
4。 次に、をクリックします OK 結果を出力するセルを選択するための他のダイアログを表示します。 スクリーンショットを参照してください：
5。 クリック OK、および次のような結果を確認できます。
Kutools for Excelを使用して、XNUMX行おきに列に移動します
数式とVBAに加えて、インストールしている場合 Kutools for Excel、あなたはそのを使用することができます 変換範囲 XNUMX行おきに列にすばやく移動する機能。
Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手
1. XNUMX行おきに移動する範囲を選択し、[ クツール > レンジコンバーター > 変換範囲。 スクリーンショットを参照してください：
2。 の中に 変換範囲 ダイアログ、チェック 範囲に単一の列 in 変換タイプ セクション、およびチェック 固定値 次に、選択または入力します 2 のリストに レコードあたりの行数 セクション。 スクリーンショットを参照してください：
3。 クリック Ok ダイアログを開いて単一のセルを選択して結果を出力するには、スクリーンショットを参照してください。
4。 次に、をクリックします OK。 次のような結果が表示されます。
関連記事：
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
