关于数组下标越界的问题

enterload

Sub yi()
Dim arr7(), arr8(), arr9()

Dim str As String
Dim h, i, j, u, y, d As Long

str = Dir("C:\Desktop\新建文件夹\*.*")
For i = 1 To 100
Set wb = Workbooks.Open("C:\Desktop\新建文件夹\" & str)
Excel.Application.DisplayAlerts = False
For j = 3 To 2 Step -1
ActiveSheet.Rows(j).Delete
Next j
Next i
p = Sheet1.UsedRange.Rows.Count

arr7 = Sheet1.Range("a4:g" & p)
ReDim arr8(1 To UBound(arr7, 1), 1 To UBound(arr7, 2))
For u = 1 To UBound(arr7, 1)
  For y = 1 To UBound(arr7, 2)
   For d = 5 To 7
  If arr7(u, d) <> "" Then
     h = h + 1
     arr8(h, y) = arr7(u, y)
   End If
   Next d
  Next y
Next u
Sheet1.Range("a2").Resize(h, UBound(arr7, 2)) = arr8
End Sub


请问各位大神，这里的红字报错提示下标越界是什么原因导致的
附件是数据没有代码

abc123281

需要详细说明你的要求
看了一下你的代码  没看明白你想要干什么

enterload

abc123281 发表于 2019-6-15 11:27
需要详细说明你的要求
看了一下你的代码  没看明白你想要干什么

删除5 6 7三列含有空白单元格的行和表内数据重复的行