返回列表 上一主題 發帖

請問要怎麼使用從另一檔案對應欄位算出金額總和及儲存格總數??

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
217  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-9-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2011-8-28 21:30 | 顯示全部帖子
回復 1# lulumi7434

用樞紐分析表吧
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
217  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-9-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-28 23:06 | 顯示全部帖子
  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(A.Offset(, 1).Value, 1)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + A.Offset(, 1).Value
  13.          ar(1) = ar(1) + 1
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With 工作表1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
複製代碼
回復 3# lulumi7434
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
217  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-9-5 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-8-29 22:21 | 顯示全部帖子
本帖最後由 Hsieh 於 2011-8-29 23:19 編輯

回復 5# lulumi7434

去了解程式碼，就知道怎麼修改了
看看哪邊不一樣
  1. Sub ex()
  2. Dim A As Range
  3. Set d = CreateObject("Scripting.Dictionary")
  4. fs = ThisWorkbook.Path & "\123.xls"
  5. With Workbooks.Open(fs)
  6.    With .Sheets(1)
  7.       For Each A In .Range(.[I2], .[I2].End(xlDown))
  8.          If IsEmpty(d(A.Value)) Then
  9.          d(A.Value) = Array(1, A.Offset(, 1).Value)
  10.          Else
  11.          ar = d(A.Value)
  12.          ar(0) = ar(0) + 1
  13.          ar(1) = ar(1) + A.Offset(, 1).Value
  14.          d(A.Value) = ar
  15.          End If
  16.       Next
  17.    End With
  18.    .Close
  19. End With
  20. With 工作表1
  21. For i = 5 To .[B65536].End(xlUp).Row Step 2
  22. Set A = .Cells(i, 2)
  23. A.Offset(, 2).Resize(2, 1) = Application.Transpose(d(A.Value))
  24. Next
  25. End With
  26. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
返回列表 上一主題