- ©«¤l
- 23
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 39
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-10-27
- ³Ì«áµn¿ý
- 2021-5-13
|
¥»©«³Ì«á¥Ñ thps51134 ©ó 2011-12-20 10:47 ½s¿è
¦^´_ 10# GBKEE
¡@·Q½Ð±Ð±zcode¤¤¨â¦Cªº·N¸q
1. ²Ä¤@¦C "Option Explicit"
2. ²Ä11¦C "NewSh.Cells(Rows.Count, "A").End(xlUp).Offset(1)"
¡@¡@°j°é°õ¦æ¨ì³o¸Ì®É¡A¦ü¥G³Ì«á¤@¦Cªº¸ê°TµLªk§ó·s¡H (¤]©È§Ú§ï¼g¿ù¤F)
¡@¡@¨C¦¸©ó·sÀɮ׶K¤W³£¬O¶K¦b¦P¤@¦CQ_Q- '¦Û¤v§ï¼gªº°j°é¤º; ²Ä¤E¦C°õ¦æ¦³°ÝÃD'
- For i = 22 To RowEnd 'RowEnd¬°¾ãÓSheet(1)¤¤ªº³Ì«á¤@¦C'
- If Cells(i, 3).Value = "BU5" Then
- If NewSh.Cells(2, 1) = "" Then '¦]¬°Cells(1,1)³£¬°ªÅ, ©Ò¥H´«¤F§O®æ
- Range(Cells(i, 1), Cells(i + 1, 2)).EntireRow.Copy NewSh.Rows(1)
- '·sÀɮ׳̫á¤@¦C«á
- '¦]¬°«e±¨S¬Ý¨ìnewbo©Ò¥H´«¦¨NewSh...¤£ª¾¹D¦³¨S¦³»~·|'
- Else
- Range(Cells(i, 1), Cells(i + 1, 3)).EntireRow.Copy NewSh.Cells(Rows.count, "A").End(xlUp).Offset(1) '·sÀɮ׳̫á¤@¦C
- End If
- End If
- Next i
½Æ»s¥N½X ÁÂÁÂ! |
|