返回列表 上一主題 發帖

抓取資料小問題

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2014-9-17 23:26 | 顯示全部帖子
Dear大大們：

我的原始資料在sheet1，想從sheet1抓資料，完成sheet2

sheet2!B2=SUMPRODUCT((Sheet1!$ ...
jj369963 發表於 2014-9-17 22:11

用 VBA 比較簡單:
  1. Private Sub Workbook_Open()
  2.   Dim iCol%
  3.   Dim lRow&
  4.   Dim sStr$
  5.   Dim vD
  6.   
  7.   Set vD = CreateObject("Scripting.Dictionary")
  8.   lRow = 2
  9.   With Sheets("Sheet1")
  10.     Do While .Cells(lRow, 1) <> ""
  11.       sStr = .Cells(lRow, 1) & "_" & .Cells(lRow, 3)
  12.       vD(sStr) = vD(sStr) + .Cells(lRow, 5)
  13.       lRow = lRow + 1
  14.     Loop
  15.   End With
  16.   
  17.   lRow = 2
  18.   With Sheets("Sheet2")
  19.      Do While .Cells(lRow, 1) <> ""
  20.        For iCol = 2 To 7
  21.          sStr = .Cells(lRow, 1) & "_" & .Cells(1, iCol)
  22.          .Cells(lRow, iCol) = vD(sStr)
  23.        Next
  24.        lRow = lRow + 1
  25.      Loop
  26.   End With
  27. End Sub
複製代碼

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題