- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 3# s7659109
¸Õ¸Õ¬Ý:
- Private Sub CommandButton1_Click()
- Dim i, j, lastRowA, lastRowF As Integer
- Dim rng As Range
-
- With Sheets("Sheet1")
- lastRowA = .[A65536].End(xlUp).Row '¨ú±o ÄæA³Ì¤U±«DªÅ¥Õ¦C ªº¦C¸¹
-
- '¥Î¤£«Âпz¿ï, ±N«~¦W ¿z¿ï¨ì [F1]
- .[A1].Resize(lastRowA, 1).AdvancedFilter Action:=xlFilterCopy, _
- CriteriaRange:=.[A1].Resize(lastRowA, 1), CopyToRange:=.[F1], Unique:=True
-
- lastRowF = .[F65536].End(xlUp).Row '¨ú±o ÄæF³Ì¤U±«DªÅ¥Õ¦C ªº¦C¸¹
- Set rng = .[F1].Resize(lastRowF, 1)
-
- For i = 2 To lastRowA
-
- '¨ú±o ÄæAªº«~¦W ¹ïÀ³¨ì ÄæFªº«~¦W ªº¦C¸¹
- .[E2] = Application.Match(.Cells(i, 1), rng, 0)
-
- .Cells(.[E2], 7) = .Cells(.[E2], 7) + .Cells(i, 2) '¼Æ¶q¥[Á`
- .Cells(.[E2], 9) = .Cells(.[E2], 9) + .Cells(i, 4) 'ª÷ÃB¥[Á`
- Next
-
- 'ºâ³æ»ù(²¤,§ï¥Î¤½¦¡§Y¥i)
- End With
- End Sub
½Æ»s¥N½X |
|