やりたいこと
ary1(i,64)の配列に格納したデータをBL列（64列目）10行から出力したいです。
A10から最終行までの番号に紐づいたデータをary1(i,64)に格納しております。
なので、番号それぞれに紐づいたデータがBL列の10行目から最終行まで出力してほしいです。
Option Explicit
Sub 月変確認用()
Dim 月変予定確認表 As Worksheet
Dim 通勤4月前 As Worksheet
Dim 通勤3月前 As Worksheet
Dim 通勤手当マスタ As Worksheet
Dim 社労夢 As Worksheet
Dim 変動合計 As Worksheet
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Sheets("月変予定者確認表")
Dim ary1 As Variant
Dim i As Long
Dim rng As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range
Dim rng5 As Range
ary1 = Intersect(ws1.Range("A10").CurrentRegion, ws1.Columns("A:BM")).Value ’ここがだめでしょうか？
For i = 1 To UBound(ary1, 1) - 1
Set rng = ws1.Cells(i + 9, 1)
Dim colB As Long
On Error Resume Next
colB = WorksheetFunction.Match(rng, ws1.Columns("A"), 0)
On Error GoTo 0
If Not IsError(colB) Then
ary1(i, 7) = ws1.Cells(colB, 7) 'パート区分
ary1(i, 29) = ws1.Cells(colB, 29) '固定的賃金
ary1(i, 33) = ws1.Cells(colB, 33) '車通勤判定
ary1(i, 34) = ws1.Cells(colB, 34) 'ガソリン単価
ary1(i, 36) = ws1.Cells(colB, 36) 'ガソリン単価固定的賃金
ary1(i, 47) = ws1.Cells(colB, 47) '3月前基礎日数
ary1(i, 51) = ws1.Cells(colB, 51) '2月前基礎日数
ary1(i, 55) = ws1.Cells(colB, 55) '1月前基礎日数
ary1(i, 57) = ws1.Cells(colB, 57) '3カ月平均
ary1(i, 62) = ws1.Cells(colB, 62) '等級差
Else
Debug.Print "match not found for value:" & rng.Value
End If
Next
'対象外 基礎日数不足
If ary1(i, 47) < 17 Or ary1(i, 51) < 17 Or ary1(i, 55) < 17 Then
ary1(i, 64) = "基礎日数不足"
ElseIf ary1(i, 7) = "対象(短時間)" Then
If ary1(i, 47) < 11 Or ary1(i, 51) < 11 Or ary1(i, 55) < 11 Then
ary1(i, 64) = "短時間基礎日数不足"
End If
End If
'対象外 固定賃金変動なし
If ary1(i, 29) = "変動なし" Then
If ary1(i, 36) = "変動なし" Then
ary1(i, 64) = "固定賃金変動なし"
End If
End If
'対象外 上がり一等級差
If ary1(i, 29) = "上がり固定" Then
If ary1(i, 62) < 1 Then
ary1(i, 64) = "1等級差"
End If
End If
'対象外 上がり等級マイナス
If ary1(i, 29) = "上がり固定" Then
If ary1(i, 62) < 0 Then
ary1(i, 64) = "固定↑等級↓"
End If
End If
If ary1(i, 33) = "車通勤" Then
If ary1(i, 29) = "変動なし" Then
If ary1(i, 36) = "上がり固定" Then
If 0 < ary1(i, 62) < 2 Then
ary1(i, 64) = "ガソリン単価+1等級差"
End If
End If
End If
End If
If ary1(i, 33) = "車通勤" Then
If ary1(i, 29) = "変動なし" Then
If ary1(i, 36) = "下がり固定" Then
If ary1(i, 62) > -1 Then
ary1(i, 64) = "ガソリン単価+1等級差"
End If
End If
End If
End If
'上がり月変
If ary1(i, 29) = "上がり固定" Then
If ary1(i, 62) > 1 Then
ary1(i, 64) = "上がり月変"
If rng2 Is Nothing Then
Set rng2 = ws1.Cells(i, 64)
Else
Set rng2 = Union(rng2, ws1.Cells(i, 64))
End If
End If
End If
'単価上がり月変
If ary1(i, 33) = "車通勤" Then
If ary1(i, 29) = "変動なし" Then
If ary1(i, 36) = "上がり固定" Then
If ary1(i, 62) > 1 Then
ary1(i, 64) = "単価+上がり月変"
If rng3 Is Nothing Then
Set rng3 = ws1.Cells(i, 64)
Else
Set rng3 = Union(rng3, ws1.Cells(i, 64))
End If
End If
End If
End If
End If
'下がり月変
If ary1(i, 29) = "下がり固定" Then
If ary1(i, 62) < -1 Then
ary1(i, 64) = "下がり月変"
If rng4 Is Nothing Then
Set rng4 = ws1.Cells(i, 64)
Else
Set rng4 = Union(rng4, ws1.Cells(i, 64))
End If
End If
End If
'単価下がり月変
If ary1(i, 33) = "車通勤" Then
If ary1(i, 29) = "変動なし" Then
If ary1(i, 36) = "下がり固定" Then
If ary1(i, 62) < -1 Then
ary1(i, 64) = "単価+下がり月変"
If rng5 Is Nothing Then
Set rng5 = ws1.Cells(i, 64)
Else
Set rng5 = Union(rng5, ws1.Cells(i, 64))
End If
End If
End If
End If
End If
'書き出し
ws1.Range("BL10").Resize(UBound(ary1, 1), 1).Value = Application.Index(ary1, i, 64) '同じ内容が出力されてしまいます。
End Sub
