■ シートの順番を逆に並び替える・重複削除

'■シートの並びを逆順にする------------------------------------------------------
Dim SheetsName() As String '配列（シート名）
Dim cNt As Long
Dim iZy As Long
cNt = Sheets.Count 'シート数取得
ReDim SheetsName(cNt) '配列設定
For iZy = 1 To cNt
SheetsName(iZy) = Sheets(iZy).Name
Next iZy
For iZy = cNt To 2 Step -1
Sheets(SheetsName(iZy)).Move Before:=Sheets(SheetsName(1))
Next iZy
'-------------------------------------------------------------------------------

----- べんりあつめ。-----

A列からG列の範囲で、B列（２）の重複を削除する
'重複削除
Cells.Select
ActiveSheet.Range("A:G").RemoveDuplicates Columns:=2, Header:=xlNo

置換処理
'Cells(iGy, iSy)の数値を置換
Select Case Cells(iGy, iSy)
Case Is = 1
Cells(iGy, iSy) = "あ"
Case Is = 2
Cells(iGy, iSy) = "い"
Case Is = 3
Cells(iGy, iSy) = "う"
End Select

'全シート内セルのエラー記号の削除
Cells.Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

'連番を振る
A列に連番を設定する。
MaxRowは、最終行を取得た変数
For i = 2 To MaxRow
Cells(i, 1) = i - 1
Next