excel¦U²Õ§O¥|¤À¦ìpºâ °ÝÃD½Ð±Ð
- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
¥»©«³Ì«á¥Ñ yangjie ©ó 2010-11-8 00:36 ½s¿è
¦^´_ 1# jimmy
¥i¹Á¸Õ¥ÎVBA¥¨¶°³B²z ¦b³o¸Ì¥ý°Ñ¦Ò³B²z¸ê®Æ ¤À¥X²Õ§O»P¼Æ¶qªí
Sub Sample()
Dim myRng As Range
Sheets(1).Activate
Set myRng = Columns(1)
myRng.AdvancedFilter _
Action:=xlFilterInPlace, _
Unique:=True
Set myRng = Nothing
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(1).Activate
row1 = [A65336].End(xlUp).Row
Range("A1:A" & row1).Copy Sheets(Sheets.Count).Cells(1, 1)
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Sheets(Sheets.Count).Activate
For i = 2 To [A65336].End(xlUp).Row
Cells(i, 2) = 0
am = Cells(i, 2)
For j = 2 To row1
If Sheets(1).Cells(j, 1) = Cells(i, 1) Then
bm = Sheets(1).Cells(j, 2)
If bm = "" Or bm = "NA" Then bm = 0
am = am + bm
End If
Next
Cells(i, 2) = am
Next
End Sub
¤§«á¥i¨Ì¼Æ¶q§@±Æ§Ç ¦A¨D¥|¤À¦ì¼Æ |
|
|
|
|
|
|