[[20041201105614]]　『シートの並び替え』（mii）　ページの最後に飛ぶ

『シートの並び替え』（mii）

例えばシート1に名簿一覧があってセルＡ1から順に氏名が入っていて（縦に）

シート２以降は名簿に名前がある人のシート名で３０枚分あるとします。

シート１の名簿の名前を変えても自動的にシートの並びが同じ順に変更できる

ようにするのは可能でしょうか？質問が下手ですみません。。

 どうぞ。

 Sub sample()
 Dim i As Long
    With Worksheets("Sheet1")
        For i = 2 To Worksheets.Count
            Worksheets(.Cells(i - 1, 1).Value).Move After:=Worksheets(i)
        Next i

        .Activate
    End With
 End Sub

 (INA)

INAさん回答ありがとうございます。

できました。

mii

コメント返信：

[ 一覧(最新更新順) ]

[[20041201105614]] 『シートの並び替え』（mii） ページの最後に飛ぶ

[[20041201105614]]　『シートの並び替え』（mii）　ページの最後に飛ぶ