パソコンの学習支援ブログ pcmanabu

Sub test()
  Sheets("sheet1").Select
  Range("a1").Select
   
  Sheets("売上一覧").Select
  Range("g4").Select
  Do
    If ActiveCell.Value >= 50000 Then
          ActiveCell.EntireRow.Copy
          Sheets("sheet1").Select
          ActiveCell.EntireRow.Insert
          ActiveCell.Offset(1, 0).Select
          Sheets("売上一覧").Select
    End If
    ActiveCell.Offset(1, 0).Select
  Loop While ActiveCell.Value <> ""
End Sub