Scott090

¦^´_ 1# s100310424


Function Madd(A1 As Variant, B1 As Variant)
Dim MC() As Variant,A,B
A=A1.value : B=B1.value
ReDim MC(LBound(A, 1) To UBound(A, 1), LBound(A, 2) To UBound(A, 2))
For i = LBound(A, 1) To UBound(A, 1)
For j = LBound(A, 2) To UBound(A, 2)
MC(i, j) = A(i, j) + B(i, j)
Next j
Next i
Madd = MC
End Function

Scott090

¦^´_ 1# s100310424

©ÎªÌ¡G

1. Function Madd(A As Variant, B As Variant)
   
2. Dim MC() As Variant
   
3. A = A.Value: B = B.Value
   
4. ReDim MC(LBound(A, 1) To UBound(A, 1), LBound(A, 2) To UBound(A, 2))
   
5. For i = LBound(A, 1) To UBound(A, 1)
   
6.     For j = LBound(A, 2) To UBound(A, 2)
   
7.         MC(i, j) = A(i, j) + B(i, j)
   
8.     Next j
   
9. Next i
   
10. Madd = MC
    
11. End Function

½Æ»s¥N½X