[已解决]VBA IF 与 SUMIF的结合，求大神解答

雄鹰2013

laoau138 发表于 2016-9-23 14:05
彩票问题你还需要吧？

这几条好难看到头都痛

grf1973老师的解答的问题都想看看

laoau138

雄鹰2013 发表于 2016-9-23 15:45
grf1973老师的解答的问题都想看看

论坛大部分文件都损坏了，你得到几个又有何用

雄鹰2013

laoau138 发表于 2016-9-23 16:25
论坛大部分文件都损坏了，你得到几个又有何用

9月份最近几个

laoau138

雄鹰2013 发表于 2016-9-23 17:56
9月份最近几个

你将这条问题答案做出来      我可以给你     
http://www.excelpx.com/thread-424589-1-1.html


论坛2016年 1月份至  9月份       几十页VBA版     全部都保存起来了

最近论坛出了问题，

才没有继续抓2015年

雄鹰2013

Sub 测试()
Dim arr
Set d = CreateObject("scripting.dictionary")
arr = Sheets("问题").Range("b11:i27")
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2) - 1)
ReDim crr(1 To UBound(arr), 1 To UBound(arr, 2) - 1)
ar = Application.Transpose(Application.Transpose(Range("z8:ab8")))
For i = 1 To UBound(arr)
     d.RemoveAll
     For j = 2 To UBound(arr, 2)
         d(arr(i, j)) = ""
     Next j
     For k = 1 To UBound(ar)
         If Not d.exists(ar(k)) Then
            GoTo 100
         End If
     Next k
        n = n + 1
        For j = 1 To UBound(arr, 2) - 1
            brr(n, j) = arr(i, j)
            crr(n, j) = arr(i + 1, j)
        Next j
100:   Next i
Sheets("问题").[q11].Resize(UBound(brr), UBound(brr, 2)) = brr
Sheets("问题").[y11].Resize(UBound(crr), UBound(crr, 2)) = crr

End Sub

雄鹰2013

在问题工作表中，看一下是否正确