VBA代码高手来，判断黄色背景色的表格引用数据？

写一个SUB来更新吧，程序代码如下：

程序代码为：

Sub 更新名单()

    Dim arr, list$(1 To 100, 1 To 1), i&, j&, n&, nm$, st As Worksheet

    For Each st In Worksheets

        If Len(st.Name) = 1 Then '单字母名称的表为清单表

            arr = st.UsedRange

            For i = 6 To UBound(arr)

                nm = Trim(arr(i, 1))

                If nm <> "" Then

                    For j = 1 To n

                        If list(j, 1) = nm Then Exit For

                    Next j

                    If j > n Then

                        n = n + 1

                        list(n, 1) = nm

                    End If

                End If

            Next i

        End If

    Next st

    With Me.Range("B5").Resize(n, 1)

        .Select

        .Value = list

    End With

End Sub

如果愿意，也可以设置工作表的Change事件来自动修改【月统计表】的名单，看起来那样高级一点。

Change事件我设置可以实现了，但是你这个代码会把“合计”引用过来，应该怎么改呢？？？

If nm ≠ "" Then
修改为
If nm≠ "" And nm≠"合计" Then
≠要用英文的字符，刚才输入了不显示

黄色表格新增两个名称然后把上一行的名称删除会出现如下情况。

应该说是删除部分名称，[统计表] 最后一个名称会出问题

不是最后一个出现了问题，我的代码专门选择了填充区域，就是希望你能明白其中原因：选择区域以外的之前的数据，不是新统计的，如果大批量删除姓名就会更加明显。这是没有删除统计表现有行造成的，可以在下面的语句
With Me.Range("B5").Resize(n, 1)
之前添加一个删除所有行的语句，例如：
me.range("5:65536").delete

我加了这个语句解决了-
Range("B5:B100").Select
Selection.ClearContents

但是还是有问题 如果新增一个黄色工作表就没办法更新