[已解决]取数问题

lgzxmlg

因数据较多，用公式谋算太慢，想用VBA，请帮忙！ 97sAiJ33.rar (6.48 KB, 下载次数: 10)

2009-12-28 12:42 上传

点击文件名下载附件
取数问题

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-28 12:55

Sub Test()
    Dim ArrYS, ArrJG, i&
    ArrYS = Sheet2.Range("A2:B" & Sheet2.Range("A65536").End(xlUp).Row)
    ReDim ArrJG(1 To UBound(ArrYS))
    For i = 1 To UBound(ArrYS)
        If ArrYS(i, 1) > ArrYS(i, 2) Then
            ArrJG(i) = ArrYS(i, 1)
        Else
            ArrJG(i) = ArrYS(i, 2)
        End If
    Next i
    Sheet1.Range("A2").Resize(UBound(ArrJG), 1) = Application.Transpose(ArrJG)
End Sub

另外，其实用函数的话。A2输入:

=MAX(Sheet2!A2,Sheet2!B2)

跳转到最佳答案楼层

yuang68

=IF(Sheet2!A2>Sheet2!B2,Sheet2!A2,Sheet2!B2)

用函数很快了，干嘛还用vba呢

amulee

Sub Test()
    Dim ArrYS, ArrJG, i&
    ArrYS = Sheet2.Range("A2:B" & Sheet2.Range("A65536").End(xlUp).Row)
    ReDim ArrJG(1 To UBound(ArrYS))
    For i = 1 To UBound(ArrYS)
        If ArrYS(i, 1) > ArrYS(i, 2) Then
            ArrJG(i) = ArrYS(i, 1)
        Else
            ArrJG(i) = ArrYS(i, 2)
        End If
    Next i
    Sheet1.Range("A2").Resize(UBound(ArrJG), 1) = Application.Transpose(ArrJG)
End Sub

另外，其实用函数的话。A2输入:

=MAX(Sheet2!A2,Sheet2!B2)

tkgg93

=MAX(Sheet2!A2:B2)

xdwy81129

QUOTE:

以下是引用amulee在2009-12-28 12:55:00的发言：

Sub Test()
    Dim ArrYS, ArrJG, i&
    ArrYS = Sheet2.Range("A2:B" & Sheet2.Range("A65536").End(xlUp).Row)
    ReDim ArrJG(1 To
   UBound(ArrYS))
    For i = 1 To
   UBound(ArrYS)
        If ArrYS(i, 1) > ArrYS(i, 2) Then
            ArrJG(i) = ArrYS(i, 1)
        Else
            ArrJG(i) = ArrYS(i, 2)
        End
   If
    Next i
    Sheet1.Range("A2").Resize(UBound(ArrJG), 1) = Application.Transpose(ArrJG)
End
   Sub

另外，其实用函数的话。A2输入:

=MAX(Sheet2!A2,Sheet2!B2)

要好好学习学习数组实例了

quanwang_lu

学习！！！