Excelの別の列に基づいて、指定された回数だけ行を繰り返すにはどうすればよいですか？
以下のスクリーンショットに示すように、別の列の値に基づいて行を繰り返そうとしたことがありますか？ この記事では、Excelでこの仕事を解決する方法を紹介します。
Kutools forExcelによる別の列値に基づいて行を繰り返す
Kutools forExcelによって一定の時間で行を繰り返す
VBAを使用して別の列の値に基づいて行を繰り返します
ここに、最後の列の値に基づいて行をすばやく繰り返すことができるコードがあります。
1。 押す Altキー+ F11 有効にするキー アプリケーション向け Microsoft Visual Basic 窓。
2。 クリック インセット > モジュール、次に以下のコードをコピーして新しいコードに貼り付けます モジュール スクリプト。
VBA：別の列の値に基づいて行を繰り返します
Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3。 押す F5 キーを押すと、ダイアログが表示され、行が繰り返される番号リストを選択します。
4. [OK]をクリックすると、選択した列の値に基づいて行が繰り返されます。
Kutools forExcelによる別の列値に基づいて行を繰り返す
VBAの使用が苦手な場合は、試してみてください Kutools for Excelさん セルの値に基づいて行/列を複製する 機能、XNUMXつのステップが必要です。
| Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 |
1。 クリック クツール > インセット > セルの値に基づいて行/列を複製する.
2.ポップダイアログで、を選択します 行をコピーして挿入する 内のオプション タイプ セクションをクリックして、繰り返したい範囲を選択します 挿入範囲eテキストボックスをクリックし、繰り返し回数を決定する列を選択します。 繰り返し回数 テキストボックス。 クリック Ok.
次に、選択した列によって行が繰り返されます。
Kutools forExcelによって一定の時間で行を繰り返す
行をXNUMXつずつ挿入せずに一定の時間で行を繰り返したい場合は、 空白の行と列を挿入する & 空白のセルを埋める のユーティリティ Kutools for Excel この仕事をすばやく処理します。
インストールした後 Kutools for Excel、以下のようにしてください：（今すぐExcel用のKutoolsを無料でダウンロードしてください！）
1.行を繰り返すデータ範囲を選択し、をクリックします クツール > インセット > 空白の行と列を挿入する。 その後、 空白の行と列を挿入する ダイアログ、チェック 空白行 オプション、次に入力します 1 に 間隔ofテキストボックスに、行を繰り返す番号を入力します 行 テキストボックス。
2。 クリック Ok、空白行が各行の下に挿入されています。
3.範囲を選択したまま、をクリックします クツール > インセット > 空白のセルを埋める。 の中に 空白のセルを埋める ダイアログ、チェック 値に基づく & Down オプション。
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% 向上させ、毎日何百回もマウス クリックを減らすことができます!
