質問: VBAについて質問です。
回答: 同じようなシートを作成して動画作成してみました。 使用したコード Sub test() Dim zumiban As Long '長整数型の定義 済の行番号 Dim saisyugyo As Long '最終行の行番号 On Error GoTo nakunata 'エラーがでたら下のnakunataから開始するコード Do While 1 < 2 '∞ループ文 DoWhileは条件式の間繰り返される 'Excelのマッチ関数を呼び出して済を検索する F1~F100の間を検索して行番号をzumibanへ zumiban = Application.WorksheetFunction.Match("済", Range("F1:F100"), 0) '最終行を取得する saisyugyo = Worksheets("終了").Range("A1000").End(xlUp).Row '最終行を取得して+1をする ※最終行の下に更新する為 saisyugyo = saisyugyo + 1 '済があった行をカットして終了シートの最終行+1した行、1列目に貼りつける Rows(zumiban).Cut Destination:=Worksheets("終了").Cells(saisyugyo, 1) '済があった行を削除して上詰めする Worksheets("還付").Rows(zumiban).Delete Loop 'エラーが出た場合ここから開始される nakunata: MsgBox "もう済はありませんよ" End Sub 簡単に説明すると ExcelのMatch関数を呼び出して済の行を探す 行が見つかればその行をカットして 終了シートの最終行を探す 探して見つかれば最終行の1個下を指定して先程のカットしたものを貼り付け これを∞ループさせてエラーが出たら終了にする こんな流れです。 他にも方法はいろいろありますので参考までに。