アメリカの大学生活---日記

ミネソタ州立大学ムーアヘッド校 2015年-2017年の日記

練習問題14(行の挿入・削除の練習) メモ

 

excel-ubara.com

 

Sub Practice14()
  Dim i As Long
  For i = Cells(Rows.Count, 1).End(xlUp).Row To Step - 1
    Select Case Cells(i, 1)
      Case "I"
         Rows(i).Inser
      Case "D"
          Rows(i).Delete
     End Select
  Next
End Sub