ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL VBAªº ¿z¿ï ¤p°ÝÃD

EXCEL VBAªº ¿z¿ï ¤p°ÝÃD

¦]¬°§Ú§Æ±æEXCEL¥¨¶°¥i¥H§â§Ú­nªº¶µ¥Ø¿z¿ï¥X¨Ó¨Ã¥B§R°£¡A¦ý¬O¤U­±ªº¶À¦â"»sªí¤é´Á: 109/12/09"¨C­ÓÀɮתº¤é´Á³£¤£¤@¼Ë¡A·Q½Ð±Ð¦pªG¼g·|ÅýEXCELª¾¹D¿z¿ï¥X"»sªí¤é´Á"¶}ÀYªº´N¥i¥H¤F

Sub ¥¨¶°4()
'
' ¥¨¶°4 ¥¨¶°
'

'
    Rows("1:3").Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=1, Criteria1:=Array( _
        "¤p­p:", "¦X­p:", "¬ì¥Ø½s¸¹", "»sªí¤é´Á: 109/12/09"), Operator:=xlFilterValues
    ActiveCell.Offset(78, 0).Rows("1:1").EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$M$824").AutoFilter Field:=1
    Columns("A:B").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("A:B").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("2:2").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Columns("C:C").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Application.CutCopyMode = False
    Selection.FormulaR1C1 = "=R[-1]C"
    Columns("C:C").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=4, Criteria1:="="
    ActiveCell.Offset(819, 0).Rows("1:1").EntireRow.Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    ActiveWindow.SmallScroll Down:=-3
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=3
End Sub

¦^´_ 1# a1098131122


¸Õ¸Õ¬Ý

ActiveSheet.Range("$A$1:$M$846").AutoFilter Field:=1, Criteria1:=Array( _
        "¤p­p:", "¦X­p:", "¬ì¥Ø½s¸¹", "»sªí¤é´Á*"), Operator:=xlFilterValues   
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD