- ©«¤l
- 3
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- 10
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2020-12-8
- ³Ì«áµn¿ý
- 2021-3-9
|
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( _
"¤pp:", "¦Xp:", "¬ì¥Ø½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 |
|