返回列表 上一主題 發帖

請問如何計算加總出人名+數字=數字總合

Andy2483
　暱稱: 厚臉皮的學生

碩士班Rank: 5Rank: 5

帖子
1567 
主題
40 
精華
0 
積分
1591 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
100 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2026-2-2 
1# 跳轉到 »
發表於 2022-11-2 09:24 | 顯示全部帖子
回復 1# 阿宇哥

謝謝前輩發表此主題
後學藉此題練習VBA_陣列與字典!
不知道是否會錯題意?
範例請試試看!
20221102_4.zip (52.15 KB)

執行前:


執行結果:


Option Explicit
Sub 字典與陣列練習()
Dim Brr, Crr, c&, i&, x&, xR, Y, U, ERR&
Set Y = CreateObject("Scripting.Dictionary")
Brr = Range([操作表!B2], [操作表!B65536].End(3))
For i = 1 To UBound(Brr)
   If Trim(Brr(i, 1)) = "" Then ERR = 1: GoTo 111
   Crr = Split(Trim(Brr(i, 1)), " ")
   U = Trim(Crr(0)) & Y(Trim(Crr(0)) & i)
   Crr = Split(Replace((Brr(i, 1)), " ", ""), U)
   If UBound(Crr) <= 1 Then ERR = 1: GoTo 111
   For x = UBound(Crr) To 2 Step -1
      If IsNumeric(Trim(Crr(x))) = False Then
         ERR = 1: GoTo 111
      End If
      Y(U & i) = Y(U & i) + Val(Trim(Crr(x)))
   Next
Next

111
If ERR = 1 Then
   Cells(i + 1, 2).Activate
   ActiveCell.Interior.ColorIndex = 38
   MsgBox "請檢查資料!"
   Exit Sub
End If
[C2].Resize(Y.Count, 1) = Application.Transpose(Y.ITEMS)
End Sub

TOP

        靜思自在 : 看別人不順眼，是自己修養不夠。
返回列表 上一主題