[已解决]求助：V代码引用工作表数组函数

fjmxwrs

如题，条件和要求都在附件中的结果表中。请指点，谢谢各位老师和同学们。

k4iyYCJE.rar (5.6 KB, 下载次数: 15)

2010-9-16 10:23 上传

点击文件名下载附件
求助：V代码引用工作表数组函数

最佳答案

月排行榜 / 总排行榜

amulee

2010-9-16 10:37

直接这样不就可以了么

Application.Evaluate("MAX((数据!$A$2:$A$11=A" & a+1 & ")*(数据!$B$2:$B$11))")

[此贴子已经被作者于2010-9-16 10:39:06编辑过]

跳转到最佳答案楼层

amulee

直接这样不就可以了么

Application.Evaluate("MAX((数据!$A$2:$A$11=A" & a+1 & ")*(数据!$B$2:$B$11))")

[此贴子已经被作者于2010-9-16 10:39:06编辑过]

那么的帅

Private Sub Worksheet_Activate()
    Dim R
    With Sheets("数据")
        R = .Range("A65536").End(xlUp).Row
        a = 1
        For x = 2 To R
        z = Application.CountIf(.Range("A2:A" & x), Range("A" & x))
            If z = 1 Then
                Cells(a + 1, 1) = .Cells(x, 1)
                m = Application.Evaluate("=MAX((数据!$A$2:$A$" & R & "=A2)*(数据!$B$2:$B$" & R & "))") '=MAX((数据!$A$2:$A$11=A2)*(数据!$B$2:$B$11))这个引用数组应该怎么写？
                Cells(a + 1, 2) = m
                a = a + 1
            End If
        Next x
    End With
End Sub

fjmxwrs

QUOTE:

以下是引用那么的帅在2010-9-16 10:38:00的发言：

Private
  Sub Worksheet_Activate()
    Dim R
    With Sheets("数据")
        R = .Range("A65536").End(xlUp).Row
        a = 1
        For x = 2 To R
        z = Application.CountIf(.Range("A2:A" & x), Range("A" & x))
            If z = 1 Then
                Cells(a + 1, 1) = .Cells(x, 1)
                m = Application.Evaluate("=MAX((数据!$A$2:$A$" & R & "=A2)*(数据!$B$2:$B$" & R & "))") '=MAX((数据!$A$2:$A$11=A2)*(数据!$B$2:$B$11))这个引用数组应该怎么写？
                Cells(a + 1, 2) = m
                a = a + 1
            End
  If
        Next x
    End
  With
End
  Sub

结果不正确，是怎么回事？请指教。只得到第一个人的值