ブック内の全シートの項目名が同じか調べる

ブック内の全シートの項目名が同じか調べる

Sub 複数シートでの項目名確認()

Dim i, sht
Dim ks(1000) As String
Dim j

'基準になる1シート名の項目名の数および、シートの項目をすべて配列に入れる
Sheets(1).Select

Dim maxcolumn
With ActiveSheet.UsedRange
maxcolumn = .Columns(.Columns.Count).Column
End With

'配列ksに、1シート目の項目を入れる
For j = 1 To maxcolumn
ks(j) = Cells(1, j).Value
Next

'全シートに対しての処理
For Each sht In Worksheets
sht.Select
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
' シート毎の処理実施開始
'-----------------------------------------------

For j = 1 To maxcolumn

'項目名が同じか
If Cells(1, j).Value = ks(j) Then
Else
Cells(1, j).Select
MsgBox "項目名違いを発見しました！全角半角や空白も注意！"
Exit Sub
End If

'項目数が同じか
Dim maxcolumn2
With ActiveSheet.UsedRange
maxcolumn2 = .Columns(.Columns.Count).Column
End With

If maxcolumn = maxcolumn2 Then
Else
MsgBox "このシートは、1シート目の項目数と異なります！"
Exit Sub
End If

Next

'-----------------------------------------------
' シート毎の処理終了
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Next sht

MsgBox "全シートの項目名は、同じでした。"

End Sub