- ©«¤l
- 13
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 8
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-7-29
- ³Ì«áµn¿ý
- 2016-7-25
|
[µo°Ý] µ{¦¡¥u¯à¤@¦¸, ¤£¯à«ÂЫö¦^ÃD
¥H¤Uµ{¦¡½X, §Ú¬O·Q¦bSheet2§¹¦¨¿z¿ï«á, µM«á§â¸ê®Æ¶K¨ìSheet1¥h, ¦ý§Ú¥u¯à°µ¤@¦¸, ¤£¯à¤@ª½«ÂЫö, ¬°¤°»ò©O?
Private Sub CommandButton1_Click()
Range("C3:H2000").Replace "#N/A N/A", ""
Dim Rng As Range, R As Range
For Each R In Range("A1").CurrentRegion.Rows
If R.Cells(3) = "" Then If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
Next
Rng.Delete xlUp
Rows(2).Select
Selection.Delete Shift:=xlUp
Columns(1).Select
Selection.Delete Shift:=xlUp
Range("A2:G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
Sheets("Sheet1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub |
|