执行完VBA后，原始数据被清除

lyi0000

使用VBA的目的，是想把一份设备使用记录分别按照各个设备的使用日期和使用地方，使用人，使用条件来进行统计。
总表包含了设备的总使用记录，其他工作表分别以每个设备的编号来命名，然后提取包含有设备编号的那行的2-7列数据，统计到各个工作表中。
数据统计没有啥问题，但是问题在于我点完统计的按钮后，会出现总表里面的数据变成空白，谁知道是什么原因？
VBA代码如下：
Sub 统计使用情况_Click()
arr = Sheets("总表").Range("B2:H10000").Value

For sh = 2 To Sheets.Count

  ReDim brr(1 To UBound(arr), 1 To 7)
  n = 0

  For i = 1 To UBound(arr)
    If InStr(arr(i, 7), Sheets(sh).Name) > 0 Then
     n = n + 1
     brr(n, 1) = arr(i, 1)
     brr(n, 2) = arr(i, 2)
     brr(n, 3) = arr(i, 3)
     brr(n, 4) = arr(i, 4)
     brr(n, 5) = arr(i, 5)
     brr(n, 6) = arr(i, 6)
    End If
  Next i

  Sheets(sh).[a3].Resize(UBound(brr), 6) = brr

Next sh

End Sub

feiyang8878

上附件比较简单

网海遨游

未见到附件，试试遍历工作表方法

Sub 统计使用情况_Click()
arr = Sheets("总表").Range("B2:H10000").Value

For each sht in sheets
if sht.name<>"总表" then

  ReDim brr(1 To UBound(arr), 1 To 7)
  n = 0

  For i = 1 To UBound(arr)
    If InStr(arr(i, 7), sht.Name) > 0 Then
     n = n + 1
     brr(n, 1) = arr(i, 1)
     brr(n, 2) = arr(i, 2)
     brr(n, 3) = arr(i, 3)
     brr(n, 4) = arr(i, 4)
     brr(n, 5) = arr(i, 5)
     brr(n, 6) = arr(i, 6)
    End If
  Next i

  sht.[a3].Resize(UBound(brr), 6) = brr
end if
Next sh
End Sub

lyi0000

我上附件了，原本是统计总表数据，然后总表的数据会消失，后面我又在工作表上面一行，加了个通过设备编号查找设备名称的公式，结果总表数据不会消失，设备清单里面的数据会消失了。消失就是出现在我执行VBA之后。
按楼上的修改，还是一样执行VBA后，设备清单数据消失

lyi0000

原来如此，谢谢大佬，问题解决了

answer6141

确定sheet（1）是总表么