µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» Ãö©ó like °w¹ï¯S©w¤å¦r §R°£
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
Ãö©ó like °w¹ï¯S©w¤å¦r §R°£
av8d
µoµu®ø®§
¥[¬°¦n¤Í
av8d
·í«eÂ÷½u
UID
5389
©«¤l
703
¥DÃD
276
ºëµØ
0
¿n¤À
1005
ª÷¿ú
1005
ÂI¦W
1
§@·~¨t²Î
Windows 10
³nÅ骩¥»
Office 2019
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
259 ¤p®É
µù¥U®É¶¡
2011-6-30
³Ì«áµn¿ý
2024-5-29
¤j¾Ç¥Í
©«¤l
703
¥DÃD
276
ºëµØ
0
¿n¤À
1005
ÂI¦W
1
§@·~¨t²Î
Windows 10
³nÅ骩¥»
Office 2019
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2011-6-30
³Ì«áµn¿ý
2024-5-29
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2023-2-12 16:16
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
Ãö©ó like °w¹ï¯S©w¤å¦r §R°£
¥»©«³Ì«á¥Ñ av8d ©ó 2023-2-12 16:18 ½s¿è
For i = 2 To 100
If Cells(i, 9) Like "¤w¶W®É*" = True Then Rows(i).Delete
Next
½Æ»s¥N½X
§R°£.rar
(18.54 KB)
¤U¸ü¦¸¼Æ: 5
2023-2-12 16:15
¦³§R°£¯S©w¤å¦r¡A¦ý¬OµLªk¤@¦¸©Ê§R°£¡A«ö¤F3¦¸¤~§R§¹¡A
¦pªG¸ê®Æ¶q¦h¤F¡A´N¤£ª¾¹Dn«ö´X¦¸¡A¤@ª½¨S§ä¥Xì¦]¡AÁÂÁ«e½ú̪ºÀ°¦£¡C
¼Ó¥D¼ö©«
¦p¦óÅý¤U©Ô¿ï³æ¿ï¨ú«á¦Û°Ê¸õ¨ìÀx¦s®æ¬Û¹ïÀ³
°õ¦æ¶¥¬q¿ù»~ '438': ª«¥ó¤£¤ä´©¦¹ÄݩʩΤè
Ãö©óWIN7ªºC:\Windows\Temp©³¤Uªº¸ê®Æ¬O§_¯à
(ÁÂÁ®¦®vÌ¡A7/4§¹¦¨) Ãö©ó¦Ûqªí³æTextBo
§PÂ_¿ï¨ú¬Y¦C©Î¬YÄæÀx¦s®æªºÄæ©Î¦C?(¤w¸Ñµª
¦p¦ó¨ú¦hÓ¤u§@ªí«DªÅ¥ÕªºÈ
¥X²{"¤U¦C¥\¯àµLªkÀx¦s¦bµL¥¨¶°ªº¬¡¶Ã¯"(ÁÂ
»¼¼W±Æ§ÇA1~A10¡A¦p¦óÅýA1«á±¬OA2¦Ó¤£¬OA1
¨Ï¥Î¶W¹L¥Ø«eÀɮ׮榡©Ò¤¹³\ªº±_ª¬¼h¯Å¼Æ¶q
Ãö©ó¿ï¨úÀx¦s®æ«á¡A¸Ó¦C½d³òÅܦâ¡A¥X²{¦ì²¾
¦¬ÂÃ
¤À¨É
ã´£³¡ªL
µoµu®ø®§
¥[¬°¦n¤Í
ã´£³¡ªL
·í«eÂ÷½u
UID
13768
©«¤l
2831
¥DÃD
10
ºëµØ
0
¿n¤À
2887
ª÷¿ú
2887
ÂI¦W
0
§@·~¨t²Î
¡e²¤¡f
³nÅ骩¥»
¡e²¤¡f
¾\ŪÅv
100
©Ê§O
¨k
¨Ó¦Û
¡e²¤¡f
¦b½u®É¶¡
2105 ¤p®É
µù¥U®É¶¡
2013-5-13
³Ì«áµn¿ý
2024-11-5
ª©¥D
©«¤l
2831
¥DÃD
10
ºëµØ
0
¿n¤À
2887
ÂI¦W
0
§@·~¨t²Î
¡e²¤¡f
³nÅ骩¥»
¡e²¤¡f
¾\ŪÅv
100
©Ê§O
¨k
¨Ó¦Û
¡e²¤¡f
µù¥U®É¶¡
2013-5-13
³Ì«áµn¿ý
2024-11-5
2
#
µoªí©ó 2023-2-12 16:33
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ ã´£³¡ªL ©ó 2023-2-12 16:36 ½s¿è
For i = 100 To 2 step -1
§R¦æ, n¤Ï¦V,
§_«h ¨C§R¤@¦¸, i ¤£ÅÜ°Ê, ·|¤Ö§R//
Á|¨Ò//
·í i = 9 ®É, §R¥h²Ä9¦æ...¦¹®É²Ä10¦æÅܦ¨²Ä9¦æ
¤U¤@¦^ i ¤w¸g¬O 10, ¥¦Àˬdªº¬Oì¸ê®Æªº²Ä11¦æ¤F, µ¥¤_²Ä10¨S¦³Àˬd¨ì~~
TOP
av8d
µoµu®ø®§
¥[¬°¦n¤Í
av8d
·í«eÂ÷½u
UID
5389
©«¤l
703
¥DÃD
276
ºëµØ
0
¿n¤À
1005
ª÷¿ú
1005
ÂI¦W
1
§@·~¨t²Î
Windows 10
³nÅ骩¥»
Office 2019
¾\ŪÅv
50
©Ê§O
¨k
¦b½u®É¶¡
259 ¤p®É
µù¥U®É¶¡
2011-6-30
³Ì«áµn¿ý
2024-5-29
¤j¾Ç¥Í
©«¤l
703
¥DÃD
276
ºëµØ
0
¿n¤À
1005
ÂI¦W
1
§@·~¨t²Î
Windows 10
³nÅ骩¥»
Office 2019
¾\ŪÅv
50
©Ê§O
¨k
µù¥U®É¶¡
2011-6-30
³Ì«áµn¿ý
2024-5-29
3
#
µoªí©ó 2023-2-12 19:17
|
¥u¬Ý¸Ó§@ªÌ
¦^´_
2#
ã´£³¡ªL
ì¨Ó¦p¦¹¡AÃø©Ç«e½ú̳£»¡°j°éºÉ¶q˹L¨Ó¼g¡Aì¨Ó¬O³oÓ·N«ä¡A¨ü¯q¨}¦h¡A·P¿E¤£ºÉ¡I
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ª÷¿ú
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1428 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1446
¥DÃD
40
ºëµØ
0
¿n¤À
1470
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-10-21
4
#
µoªí©ó 2023-2-13 09:21
|
¥u¬Ý¸Ó§@ªÌ
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-2-13 09:30 ½s¿è
¦^´_
1#
av8d
ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¬°¤FÀò¨ú¿n¤À,ÁöµM ã´£³¡ªL«e½ú¤w¸gµ¹¥¿½Tµª®×,«á¾Ç«pÁy¥Öªº·Q¦^µª
«á¾Ç«Øij:
Option Explicit
Sub ¦¬¶°²Å¦X±ø¥óªºÀx¦s®æ¶°_¤@¦¸²¾°£©Ò¦bªº¦C()
Dim xU As Range, i&
Set xU = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count + 1)
For i = 2 To 100
If Cells(i, 9) Like "¤w¶W®É*" = True Then Set xU = Union(xU, Cells(i, 9))
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.application.union
Next
Application.Goto xU
Application.Wait (Now + TimeValue("0:00:3"))
xU.EntireRow.Delete
End Sub
Application.Goto xU
https://learn.microsoft.com/zh-tw/office/vba/api/excel.application.goto
¤U¸ü
(23.04 KB)
2023-2-13 09:24
xU.EntireRow.Delete
https://learn.microsoft.com/zh-tw/office/vba/api/excel.range.entirerow
¤U¸ü
(13.86 KB)
2023-2-13 09:25
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·