Excelで長い列を複数の列に分割するにはどうすればよいですか?
VBAを使用して長い列を複数の列に分割する
Kutools for Excelを使用して、長い列を複数の列に分割します
VBAを使用して長い列を複数の列に分割する
1。 押す Altキー+ F11 一緒に鍵を開いて アプリケーション向け Microsoft Visual Basic 窓。
2。 クリック インセット > モジュール 次のVBAコードをポップアウトされたウィンドウにコピーします。
VBA:長い列を複数の列に分割します。
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3。 クリック ラン ボタンまたはプレス F5 キーを押してVBAを実行すると、データリストを選択するためのダイアログが表示されます。 OK 次のダイアログで必要なXNUMXつの列の行数を指定するには、[ OK セルを選択して結果を出力します。 スクリーンショットを参照してください:
4。 クリック OK、すると、長い列が複数の列に分割され、すべての列に15個のセルがあることがわかります。
Kutools for Excelを使用して、長い列を複数の列に分割します
VBAコードを使用したくない人もいるかもしれませんが、幸いなことに、 変換範囲 の有用性 Kutools for Excel 長い列を固定数の列にすばやく簡単に変換します。
Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 |
インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)
1.分割する列データを選択し、をクリックします クツール > レンジ > 変換範囲。 スクリーンショットを参照してください:
2.ポップアウトされたダイアログで、チェックします 範囲に単一の列 オプション、次にチェック 固定値 オプションを選択し、必要な列数をテキストボックスに入力します。 スクリーンショットを参照してください:
3。 クリック Ok 分割データを出力する単一のセルを選択します。 スクリーンショットを参照してください:
4。 クリック OK 操作を終了します。 これで、長い列のデータがXNUMXつの列に分割されました。
VBAコードよりも簡単ですか? Tで範囲を変更 ユーティリティを使用すると、行を範囲に、範囲を行またはXNUMX列に変換できます。
単一の列/行を範囲に、またはその逆に転置します。
区切り文字に基づいてXNUMXつのセルを列または行にすばやく分割する
|
Excelでは、セルを列に分割することは、ウィザードで段階的に面倒です。 しかし、 Kutools for Excel's 分割セル ユーティリティでは、次のことができます。1、区切り文字に基づいて2つのセルを列または行に変換します。 3、文字列をテキストと数値に変換します。 XNUMX、クリックで特定の幅に基づいて文字列を変換します。 クリックすると、全機能を備えた 30 日間の無料トライアルが可能です。 |
Kutools for Excel:300を超える便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 |
最高のオフィス生産性向上ツール
🤖 | 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% 向上させ、毎日何百回もマウス クリックを減らすことができます!