aer

帖子: 193
主題: 16
精華: 0
積分: 239
點名: 168
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2025-7-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-1-6 11:48 | 只看該作者

[發問] 列出不同簽證號之第一筆號碼，並將相同簽證號之流水號金額加總

請問如何列出不同簽證號之第一筆號碼，並將相同簽證號之流水號金額加總的公式？
例如：106-111-0000065簽證號之流水號有106-111-0000065001~009，其加總金額為273,031

1120106-相同簽證號金額相加.rar (11.78 KB)

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1412
主題: 4
精華: 0
積分: 1422
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2025-7-11

熱烈參與勳章

2^#

發表於 2023-1-6 14:29 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/590681316

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

aer

中學生 Rank: 2

帖子: 193
主題: 16
精華: 0
積分: 239
點名: 168
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2025-7-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

3^#

發表於 2023-1-6 15:11 | 只看該作者

回復 2# hcm19522

公式測試正常，感謝您！

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

4^#

發表於 2023-1-6 16:36 | 只看該作者

回復 1# aer

謝謝前輩發表此主題與範例
後學藉此帖練習陣列與字典,請前輩參考

執行結果:

Option Explicit
Sub TEST_20230106_1()
Dim Brr, i&, T1$, T2&, TT$, Y, M$, N&, P&
Set Y = CreateObject("Scripting.Dictionary")
Brr = [A1].CurrentRegion: N = 1
For i = 2 To UBound(Brr)
T1 = Brr(i, 1): Brr(i, 1) = 0
T2 = Brr(i, 2): Brr(i, 2) = 0
TT = T1 & "|" & T2
If Len(T1) = 15 And Not Y.Exists(T1) Then
   N = N + 1
   Y(T1) = N
   Brr(N, 1) = T1
   ElseIf Y(TT) = "" Then
      M = Left(T1, 15)
      Brr(Y(M), 2) = Brr(Y(M), 2) + T2
      P = P + T2
End If
Y(TT) = 1
Next
[E:F].ClearContents
With [E1].Resize(N, 2)
  .Value = Brr
  .Item(N + 1, 1) = "合計": .Item(N + 1, 2) = P
End With
Set Y = Nothing
Set Brr = Nothing
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

aer

中學生 Rank: 2

帖子: 193
主題: 16
精華: 0
積分: 239
點名: 168
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2025-7-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

5^#

發表於 2023-1-6 18:55 | 只看該作者

回復 4# Andy2483

測試正常，感謝前輩指導！

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2025-1-10

6^#

發表於 2023-1-7 10:53 | 只看該作者

回復 1# aer

請測試看看，謝謝
Sub test()
Dim Arr, T$, T1, n&, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = [A1].CurrentRegion
For i = 2 To UBound(Arr)
If Arr(i, 2) = "" Then GoTo 99
T = Left(Arr(i, 1), 15)
If xD.Exists(T) Then
      Arr(xD(T), 2) = Arr(xD(T), 2) + Arr(i, 2)
Else
      n = n + 1: xD(T) = n
      Arr(n, 1) = T: Arr(n, 2) = Arr(i, 2)
End If
T1 = T1 + Arr(i, 2)
99: Next
[e1].CurrentRegion.Offset(1) = ""
[e2].Resize(n, 2) = Arr
Range("e" & n + 2) = "合計"
Range("f" & n + 2) = T1
End Sub

TOP

aer

中學生 Rank: 2

帖子: 193
主題: 16
精華: 0
積分: 239
點名: 168
作業系統: windows xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-8-8
最後登錄: 2025-7-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

7^#

發表於 2023-1-7 18:48 | 只看該作者

回復 6# samwang

感謝前輩提供另一種方法，測試可用，謝謝您！

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1447
主題: 40
精華: 0
積分: 1471
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-5-5

8^#

發表於 2023-1-17 08:07 | 只看該作者

本帖最後由 Andy2483 於 2023-1-17 08:11 編輯

回復 7# aer

謝謝 samwang前輩
今天學習 samwang前輩的方案做心得註解,請前輩參考

Option Explicit
Sub test()
Dim Arr, xD, T1, n&, i&, T$
'↑宣告變數:(n,i)是長整數變數,T是字串變數,其它是通用型變數
Set xD = CreateObject("Scripting.Dictionary")
'↑令xD是字典
Arr = [A1].CurrentRegion
'↑令Arr是二維陣列!以從[A1]儲存格串接八方相鄰儲存格擴展最小方正區域儲存格值倒入
For i = 2 To UBound(Arr)
'↑設順迴圈!i從2到Arr陣列縱向最大索引列號數
If Arr(i, 2) = "" Then GoTo 99
'↑如果i迴圈列2欄Arr陣列值是空字元!就跳到99位置繼續執行
T = Left(Arr(i, 1), 15)
'↑令T這字串變數是 i迴圈列1欄Arr陣列值取左側15個字的新變數
If xD.Exists(T) Then
'↑如果T變數為key查xD字典是已經存在字典裡?
      Arr(xD(T), 2) = Arr(xD(T), 2) + Arr(i, 2)
      '↑令(T變數在xD字典的item值列2欄)Arr陣列值是自身值+i迴圈列2欄Arr陣列值
Else
'↑以下是關於條件為否則的程序
      n = n + 1
      '↑令n這長整數變數是自身累加 1的新整數  (指定結果列號)
      xD(T) = n
      '↑令T變數在xD字典的item值是 n變數  (記憶結果列號)
      Arr(n, 1) = T
      '↑令(n變數列1欄)Arr陣列值是 T字串變數  (結果寫入陣列)
      Arr(n, 2) = Arr(i, 2)
      '↑令(n變數列2欄)Arr陣列值是 i迴圈列2欄Arr陣列值  (把舊金額值變為結果的新值)
End If
T1 = T1 + Arr(i, 2)
'↑令T1這通用型變數是自身值 +  i迴圈列2欄Arr陣列值  (累加全部合計金額)
99: Next
[e1].CurrentRegion.Offset(1) = ""
'↑令[E1]儲存格串接八方相鄰儲存格擴展最小方正區域往下偏移1列儲存格值是空字元
[e2].Resize(n, 2) = Arr
'↑令[E2]儲存格擴展向下n變數列往右擴展2欄的範圍儲存格以Arr陣列值倒入
'超過這範圍的Arr陣列值會被忽略
Range("e" & n + 2) = "合計"
'↑E欄n+2列儲存格值是 "合計"字串
Range("f" & n + 2) = T1
'↑F欄n+2列儲存格值是 T1變數  (全部合計)
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP