使用例２

セル範囲 A1:B10 における数値データの中で、5 以上であれば
右２列隣りに ○印 をつける。


　　


Sub statmen2()
  Dim erng, rang As Range
  Set rang = Range("A1:B10")
    For Each erng In rang
      If erng.Value >= 5 Then
        erng.Offset(, 3).Value = "○"
      End If
    Next
End Sub

                                                         back top