Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub SeisaT()
Dim x As Integer, y As Integer, irow As Integer
irow = 2
For x = 1 To 2000
For y = 0 To 1
Cells(irow, 1) = x
irow = irow + 1
Next y
Next x
End Sub
Sub SeisaT2()
Dim x As Integer
For x = 2 To 4000 Step 2
Range(Cells(x, 2), Cells(x + 1, 2)) = x / 2
Next x
End Sub