- ©«¤l
- 835
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 915
- ÂI¦W
- 1
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2025-7-5
|
Dear¤j¤jÌ¡G
§Úªºì©l¸ê®Æ¦bsheet1¡A·Q±qsheet1§ì¸ê®Æ¡A§¹¦¨sheet2
sheet2!B2=SUMPRODUCT((Sheet1!$ ...
jj369963 µoªí©ó 2014-9-17 22:11 
¥Î VBA ¤ñ¸û²³æ:- Private Sub Workbook_Open()
- Dim iCol%
- Dim lRow&
- Dim sStr$
- Dim vD
-
- Set vD = CreateObject("Scripting.Dictionary")
- lRow = 2
- With Sheets("Sheet1")
- Do While .Cells(lRow, 1) <> ""
- sStr = .Cells(lRow, 1) & "_" & .Cells(lRow, 3)
- vD(sStr) = vD(sStr) + .Cells(lRow, 5)
- lRow = lRow + 1
- Loop
- End With
-
- lRow = 2
- With Sheets("Sheet2")
- Do While .Cells(lRow, 1) <> ""
- For iCol = 2 To 7
- sStr = .Cells(lRow, 1) & "_" & .Cells(1, iCol)
- .Cells(lRow, iCol) = vD(sStr)
- Next
- lRow = lRow + 1
- Loop
- End With
- End Sub
½Æ»s¥N½X |
|