- ©«¤l
- 450
- ¥DÃD
- 110
- ºëµØ
- 0
- ¿n¤À
- 557
- ÂI¦W
- 84
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-11-7
- ³Ì«áµn¿ý
- 2024-4-26
|
¥i§_²¤Æ VBA »yªk
¤j®a¦n¡A§Ú¼g¤@¦ê»yªk
¦ý¦Ûı±o¹Lµ{¤Ó¤¾ªø¡A¬O§_¥i¥H²¤Æµ{¦¡»yªk
±ø¥ó1.¦bAÄæ¦ì¡A¥un¥X²{¬O"ªÅ¥Õ"¡A´N¾ã¦C²¾°£
±ø¥ó2.¦bAÄæ¦ì¡A¥un¥X²{³o¨Ç^¤å¡A´N¾ã¦C²¾°£ : TPD . TPD-both . TPD-viewing . GSA
Sub Step1()
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
End Sub
Sub Step2()
Dim yy
yy = "TPD"
For I = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(I), yy) > 0 Then Rows(I).Delete
Next I
End Sub
Sub Step3()
Dim yy
yy = "TPD-both"
For I = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(I), yy) > 0 Then Rows(I).Delete
Next I
End Sub
Sub Step4()
Dim yy
yy = "TPD-viewing"
For I = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(I), yy) > 0 Then Rows(I).Delete
Next I
End Sub
Sub Step5()
Dim yy
yy = "GSA"
For I = [a65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Rows(I), yy) > 0 Then Rows(I).Delete
Next I
End Sub
¦b³Â·Ð¦U¦ì¥ý¶i! |
|