- ©«¤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# athenahu
¸Õ¸Õ¬Ý:- Option Explicit '±j¨î«Å§iÅܼÆ
- Private Sub CommandButton1_Click()
- Dim sh1, sh2 As Worksheet
- Dim i, lastRow, ¤ë As Integer
- Dim Á`»ù As Double
- Set sh1 = Sheets("¦~«×q³æªí")
- Set sh2 = Sheets("²£«~¤ë³øªí")
-
- lastRow = sh2.[A65536].End(xlUp).Row '¨ú±oAÄæ ³Ì¤U±«DªÅ¥Õ®æ ªº¦C¸¹
- sh2.[B2].Resize(lastRow, 12) = "" '²M°£ ²£«~¤ë³øªí
- sh2.[N2].FormulaR1C1 = "=MATCH(R[-1]C,R2C1:R" & lastRow & "C1,0) + 1" '¼g¤J¤½¦¡, ¬d¸ß «~¶µ ªº¦C¸¹
-
- lastRow = sh1.[A65536].End(xlUp).Row '¨ú±oAÄæ ³Ì¤U±«DªÅ¥Õ®æ ªº¦C¸¹
- For i = 3 To lastRow
- ¤ë = Month(sh1.Cells(i, 1)) + 1
- sh2.[N1] = sh1.Cells(i, 5) '¦~«×q³æªíªº«~¶µ ¼g¤Jsh2.[N1], ¨ÑMATCH¤½¦¡¬d¸ß
- Á`»ù = sh1.Cells(i, 12)
-
- sh2.Cells(sh2.[N2], ¤ë) = sh2.Cells(sh2.[N2], ¤ë) + Á`»ù '²Îp³æ¤@²£«~·í¤ëÁ`»ù
- Next
- End Sub
½Æ»s¥N½X ³æ¤@²£«~·í¤ë¾P°âª÷ÃB¥[Á`0.7z
http://www.mediafire.com/download/zu1r2orgkrpyohc/%E5%96%AE%E4%B8%80%E7%94%A2%E5%93%81%E7%95%B6%E6%9C%88%E9%8A%B7%E5%94%AE%E9%87%91%E9%A1%8D%E5%8A%A0%E7%B8%BD0.7z |
|