1ãå
¬å¼æ æ³å®æå¤å¶ï¼å¨ä¸å®æ¡ä»¶ä¸å¯ä»¥å®ç°å¼ç¨ï¼ä½æºæ°æ®å¿
é¡»åå¨ã
2ãå¯ä»¥ç¼åä¸æ®µVBA代ç å°EXCELä¸ç¬¦åæ¡ä»¶çæ°æ®å¤å¶å°å¦ä¸ä¸ªå·¥ä½è¡¨ï¼
å设æ¯è¦æ¥æ¾Aåå
å«XXXçï¼æ¥å°åå°è¯¥è¡å¤å¶å°å¦ä¸ä¸ªè¡¨ã
sub test()
Dim i&,r&
r=cells(rows.count,1).end(xlup).row 'å®ä½Aåæåä¸è¡
k=1 'Sheet2 çèµ·å§è¡
for i=1 to r 'ä»ç¬¬ä¸è¡å¾ªç¯è³ç¬¬æåä¸è¡
if instr(cells(i,1),"XXX")>0 then 'å¦æAå第iè¡åå
ä¸å
å«XXXï¼åå°è¯¥è¡å¤å¶å°è¡¨2
Range("A" & i & ":Z" &).Copy Sheet2.Range("A" & k) âå¤å¶ç¬¬iè¡è³è¡¨2
End if
next
End Sub
温馨提示:内容为网友见解,仅供参考