エクセルのシート名の文字検索置換のvba

シート名に2009と言う文字が入っている場合、2010に書き換えてくれる。

知り合いにエクセルのプロがいると、楽チンチ~ン♪

Sub シート名置換()
Dim sH, Fname, sNAme
   
    For i = 1 To Sheets.Count
        Set sH = Sheets(i)
        Fname = sH.Name
        If Left(Fname, 4) = “2009” Then
            sNAme = “2010” & Right(Fname, Len(Fname) – 4)
            Sheets(i).Name = sNAme
        End If
    Next

End Sub

トラックバック

このブログ記事に対するトラックバックURL:

コメント & トラックバック

No comments yet.

Comment feed

コメントする

カレンダー

2020年9月
« 12月    
 123456
78910111213
14151617181920
21222324252627
282930  

リアルタイム市況

Twitter

Follow @megubuta (82 followers)

アーカイブ

blogランキング