Excelの列で空白になるまで行をループするにはどうすればよいですか？

ここに、いくつかの空のセルを含む長い列があります。そして、空白のセルに出会うまで行をループしたいとします。Excelにはこの作業を処理するための組み込み機能はありませんが、いくつかのマクロを紹介してお手伝いします。

VBAを使用して空白になるまで行をループする

VBAを使用して空白になるまで行をループする

1. Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 挿入 > モジュール をクリックし、以下のコードを空白のスクリプトに貼り付けます。

VBA: 空白になるまでループ

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

このコードでは、A1 はループを開始する最初のセルです。必要に応じて変更できます。

3. 押す F5 キーを押して列のループを開始すると、カーソルは最初に見つかった空白セルで停止します。

注釈: 連続した空白セルに出会うまでデータをループしたい場合は、このマクロコードを使用できます。

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

次に、 Kutools for Excel ダイアログでループを開始する最初のセルを選択し、OK をクリックすると、カーソルが最初の連続した空白セルで停止します。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！