SHARE
TWEET

すべてのシートを連番にするVBA.vbs

filledwithgarbages Jan 22nd, 2020 230 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub すべてのシートを連番にする()
  2.  Dim i As Long
  3.   Dim offset As Long
  4.   offset = 500
  5.   Dim prefix As String
  6.   prefix = "GC."
  7.  
  8.  For i = 2 To Sheets.Count
  9.   Sheets(i).Name = prefix & i + offset - 1
  10.  Next i
  11. End Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top