Skip to content

Instantly share code, notes, and snippets.

@akiya64
Created December 15, 2016 07:48
Show Gist options
  • Save akiya64/b5e995cb8edf6e65234964da0217d780 to your computer and use it in GitHub Desktop.
Save akiya64/b5e995cb8edf6e65234964da0217d780 to your computer and use it in GitHub Desktop.
Can I Roundup String?
Dim finalNumber As String
finalNumber = 50000001
Dim newStartNumber As String
newStartNumber = Application.RoundUp(finalNumber, -1)
Dim newFinalNumber As String
For i = 2 To ThisWorkbook.Worksheets(db).Range("B50000").End(xlUp).Row
With ThisWorkbook.Worksheets(db)
If i = 2 Then
.Cells(i, 30).Value = newStartNumber
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment