Excel Home 2013年第6期优秀会员名单

jsxjd

新的一年又涌出一批优秀新人！向你们表示祝贺！

lfspecter

恭喜各位会员

丢丢表格

太激动了，我又被老师们高抬了，感谢管理的褒奖。
这里真好，不仅能学知识，还能学习怎样做人，论坛中的各位，都是我学习的老师！

liulang0808

虽然上榜了，还需继续努力啊。。。

沙漠滴雨

恭喜各位优秀会员！向你们学习！

豆豆5

楼主能否帮个忙？代码框架已经写好了，但是提示下标越界。这是怎么回事

liulang0808

豆豆5 发表于 2014-1-9 13:51
楼主能否帮个忙？代码框架已经写好了，但是提示下标越界。这是怎么回事

Sub 汇总表()
Dim arr, d, sh As Worksheet, i, j As Integer
Set d = CreateObject("Scripting.Dictionary")
Sheet5.[b4:k9] = ""
For j = 1 To 10
    For Each sh In Sheets
        If sh.Name <> "汇总表" Then
          Set arr = sh.Range("a5").CurrentRegion                For i = 6 To 17
                    If arr(i, 10) = Sheet8.Cells(5, j + 1) Then
                        d(arr(i, 4)) = ""
                    End If
                Next
        End If
    Next
[Sheet8].[a5].Offset(0, j).Resize(d.Count) = Application.Transpose(d.keys)
d.RemoveAll
Next
Set d = Nothing

End Sub


你看看带颜色的，红色，给加了set
蓝色的前缀不对吧，应该是worksheetfunction

胖子33

向获奖人员学习

苍海拾贝

祝贺各位会员，向你们学习 {:soso_e181:}

豆豆5

liulang0808 发表于 2014-1-9 17:14
Sub 汇总表()
Dim arr, d, sh As Worksheet, i, j As Integer
Set d = CreateObject("Scripting.Dictio ...

Sub 汇总表()
Dim arr, d, sh As Worksheet, i, j As Integer
Set d = CreateObject("Scripting.Dictionary")
Sheet5.[b4:k9] = ""
For j = 1 To 10
    For Each sh In Sheets
        If sh.Name <> "汇总表" Then
          Set arr = sh.Range("a5").CurrentRegion  For i = 6 To 17
                    If arr(i, 10) = Sheet8.Cells(5, j + 1) Then
                        d(arr(i, 4)) = ""
                    End If
                Next
        End If
    Next
[Sheet8].[a5].Offset(0, j).Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
d.RemoveAll
Next
Set d = Nothing

End Sub
大大。这样你看看还有啥呢么问题么，我按照你说的弄了，还是出不来