Private Sub CommandButton1_Click() Dim arr. Range("A1:Q65536"). ClearContents arr = [A1:Q65536] l = 1 m = 1. For i1 = 1 To 28. For i2 = i1 + 1 To ...
zhidao.baidu.com