GBKEE

¦^´_ 1# sandra_wang

1. Sub Ex()
   
2.     Dim Rng As Range, s1, s2, i
   
3.     With ActiveSheet
   
4.         Set Rng = .Range("i1", .Range("iv1").End(xlToLeft))
   
5.         s1 = Rng.Address(, , xlR1C1)
   
6.         For i = 2 To .Range("i" & Rows.Count).End(xlUp).Row
   
7.             s2 = Rng.Offset(i - 1).Address(, , xlR1C1)
   
8.             .Cells(i, "b").FormulaArray = "=SUM((" & s1 & "<>"""")*(" & s2 & "))"
   
9.         Next
   
10.     End With
    
11. End Sub

½Æ»s¥N½X