- 帖子
- 552
- 主題
- 3
- 精華
- 0
- 積分
- 578
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-2-8
- 最後登錄
- 2024-7-9
  
|
2#
發表於 2015-3-10 15:16
| 只看該作者
回復 1# ashan0418
試試！！- Sub 巨集1()
- Dim arr1(1 To 10, 1 To 2)
- Set la = Cells(Rows.Count, "a").End(xlUp)
- arr = Range([A2], la)
- For i = 1 To la.Row - 1
- For J = 1 To UBound(arr1)
- x = arr(i, 1): y = arr1(J, 1)
- If arr(i, 1) = arr1(J, 1) Then
- arr1(J, 2) = arr1(J, 2) + 1
- GoTo 100
- End If
- Next J
- K = K + 1
- arr1(K, 1) = arr(i, 1)
- arr1(K, 2) = arr1(K, 2) + 1
- 100:
- Next i
- 工作表2.[A2].Resize(K, 2) = (arr1)
- 工作表2.Range("A" & K + 2) = "合計"
- aaa = Application.Sum(工作表2.Range("B2:B" & K + 1))
- 工作表2.Range("B" & K + 2) = Application.Sum(工作表2.Range("B2:B" & K + 1))
- End Sub
|
|
