½Ð°Ý¦p¦ó±NDDEªÑ²¼¸ê®Æ¨Ì§Ç¶K¨ìsheet2
- ©«¤l
- 824
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 904
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2023-12-24
|
½Ð°Ý¦U¦ì«e½ú¤j¤j,§Ú¦bsheet1ªºªÑ²¼¸ê®Æ,¨ä¤¤CÄ欰DDEÅܰʪº¦¨¥æ¶q,§Ú·Q±N²Ä¤@µ§¦¨¥æ¶qÅܰʤj©ó300±iªº¶ñ¤J ...
Apple007 µoªí©ó 2015-6-12 11:46 - Sub nn()
- Dim lSRow&
- Dim wsSou As Worksheet, wsTar As Worksheet
-
- lSRow = 2
- Set wsSou = Sheets("Sheet1")
- Set wsTar = Sheets("Sheet2")
- With wsSou
- While .Cells(lSRow, 1) <> ""
- If .Cells(lSRow, 3) > 300 Then
- .Range(.Cells(lSRow, 1), .Cells(lSRow, 3)).Copy
- wsTar.[B3].Insert Shift:=xlShiftDown
- End If
- lSRow = lSRow + 1
- Wend
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|