Microsoft Excel - 複数の列の行を特定の行数で分割する方法はありますか?

Question

すでに 400 の明確なグループが空白などでマークされていない限り、この特定のタスク用の組み込み関数を見つけるのは難しいと思います。
ただし、マクロを使用して独自の関数を作成することはできます。

したがって、あなたの例を正しく理解していれば、セルを選択してから 400 行下に移動し、それらすべてとさらに 2 つの列を選択します。マクロでこれを実行する最も簡単な方法は次のようになります。

Sub select400()
selection.Resize(400, 3).Select
End Sub

次に、マクロウィンドウとオプションに移動するか、別のマクロの助けを借りて、このマクロにショートカットを割り当てることができます。

しかし、行数や列数を一定にしたくない場合はどうすればよいでしょうか。
その場合は、次のように、絶対値を入力ボックスと変数に置き換えることができます。

Sub select400()
Dim inpRows As Long, inpColumns As Long
inpRows = InputBox("How many rows to select?")
inpColumns = InputBox("How many columns to select?")
selection.Resize(inpRows, inpColumns).Select
End Sub

ただし、InputBox があるため、適切なエラー処理が必要です。ボックスに何か奇妙な内容 (または何も入力されていない内容) が入力されるとクラッシュします。

サンプル：

最初にこれも実行しました:

Sub setShortcut()
Application.OnKey "%{s}", "select400"
End Sub

ALT + sを押したときにマクロが実行されるように設定するには

もちろん、マクロで 400 を検索し、新しいワークシート/ワークブックに切り込み、データがなくなるまで新しいシートで処理を続けることで、自動化をさらに拡張できます。

少し技術的ですが、1、2 回のループで実行できます。

Answer 1