- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 173
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-7-17
               
|
¦^´_ 4# miketwbts
¤£¬O«Ü¤F¸Ñ§Aªº¥Î·N
§Ú²q·Q¬On§â«ö¶s©³¤U¨º¦Cªº¸ê®Æ´¡¤J¤w¸gÀx¦sªº¸ê®Æ©³³¡- Private Sub CommandButton1_Click()
- r = Range("A5").CurrentRegion.Rows.Count
- If Range("B" & r + 4) = Range("B" & r + 7) Then Exit Sub
- Rows(r + 5).Insert
- Range("B" & r + 5).Resize(, 17).Value = Range("B" & r + 8).Resize(, 17).Value
- End Sub
½Æ»s¥N½X |
|