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

[µo°Ý] ¤ñ¹ï¤£¦P¤u§@ªíªºÀx¦s®æ¥H¤Î§R°£¤º®e

[µo°Ý] ¤ñ¹ï¤£¦P¤u§@ªíªºÀx¦s®æ¥H¤Î§R°£¤º®e

½Ð°Ý¦U¦ì«e½ú¡A¦pªG¦³¤Q¤»±i¤u§@ªí¡A

¤u§@ªí1 Á`¦@¦³15¦æªº­È
       A     B     C
1    13    9     YY
2    CC   44   XX
3    77    99   33
4    2A    PP   89
....................................
§Ú·Q¦b¤u§@ªí2 ¨ì16³£³]©w¤@­Ó«ö¶s¨Ó°õ¦æVBA¡A
°²³]¤u§@ªí2 Àx¦s®æA1ªº­È¬O CC¡A¦b¤u§@ªí2«ö¤U«ö¶s«h·j´M¤u§@ªí1   AÄæÀx¦s®æCC³o­Ó­È¦b²Ä¤G¦æ¡AµM«á§R°£¤u§@ªí1²Ä¤G¦æ A1¨ìA3ªº¤º®e
°²³]¤u§@ªí3 Àx¦s®æA1ªº­È¬O 2A¡A¦b¤u§@ªí3«ö¤U«ö¶s«h·j´M¤u§@ªí1   AÄæÀx¦s®æCC³o­Ó­È¦b²Ä¥|¦æ¡AµM«á§R°£¤u§@ªí1²Ä¥|¦æ A1¨ìA3ªº¤º®e
¨ä¾l¤u§@ªí«ö¶s¥\¯à³£¥H¦¹Ãþ±À
½Ð°Ý¯à§_Åý³o¤Q¤­­Ó¤u§@ªíªº«ö¶s¦@¥Î¦P¤@­ÓVBA?Àµ½Ð«ü±Ð¡A·PÁÂ

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-4 01:16 ½s¿è

¦^´_ 1# netfish777

§Aªº¸Ñ»¡·PıÅÞ¿è©Ç©Çªº¡A§Ú¸ÕµÛ­×§ï¦p¤U
§A¬Ý¹ï¤£¹ï

¤u§@ªí1 Á`¦@¦³15¦æªº­È
       A     B     C
1    13    9     YY
2    CC   44   XX
3    77    99   33
4    2A    PP   89
....................................

°²³]¤u§@ªí2 Àx¦s®æA1ªº­È¬O CC¡A¦b¤u§@ªí2«ö¤U«ö¶s«h·j´M¤u§@ªí1   AÄæÀx¦s®æCC³o­Ó­È¦b²Ä¤G¦æ¡A
µM«á§R°£¤u§@ªí1²Ä¤G¦C A2¨ìC2ªº¤º®e


°²³]¤u§@ªí3 Àx¦s®æA1ªº­È¬O 2A¡A¦b¤u§@ªí3«ö¤U«ö¶s«h·j´M¤u§@ªí1   AÄæÀx¦s®æ2A³o­Ó­È¦b²Ä¥|¦æ¡A
µM«á§R°£¤u§@ªí1²Ä¥|¦C A4¨ìC4ªº¤º®e
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123


    °Ú ¬Oªº»¡©ú§Ú¥´¿ù¤F¡A«Ü©êºp
´N¬O±z©Ò­×§ïªº¤º®e¤~¹ï¡A·PÁÂ

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-4 22:57 ½s¿è

¦^´_ 3# netfish777

¯à§_´£¨Ñ½d¨ÒÀɮסA¦]¬°³o¼Ë¦³ÂI½M¤lºN¶H

·|¦³«Ü¦h°ÝÃD»Ý­nÂç²M

¨Ò¦p:
1.¦pªG²Ä¤@¤u§@ªíDÄæ¥H«áÁÙ¦³¸ê®Æ¡ADÄæ¥H«áªº¸ê®Æ³£«O¯d¡A¥u§R°£A,B,C ¤TÄ檺¸ê®Æ
ÁÙ¬O¤@¨Ö§R°£?

2.§AÁ|ªº¨â­Ó¨Ò¤l³£¦b¤u§@ªí1ªºAÄæ¡A¬O¤£¬OBÄæ»PCÄ椣¦A¤ñ¹ï½d³ò?
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 3# netfish777
¤@¯ë¼Ò²Õ
©Ò¦³«ö¶s³£«ü©w¦P¤@­Ó¥¨¶°
  1. Sub Del_Find()
  2. Dim A As Range
  3. With ¤u§@ªí1
  4.   Set A = .Columns("A:A").Find(ActiveSheet.[A1], lookat:=xlWhole)
  5.   If Not A Is Nothing Then A.Resize(, 3).ClearContents '²M°£¤º®e
  6.   'If Not A Is Nothing Then A.Resize(, 3).Delete xlShiftUp '§R°£¦C
  7. End With
  8. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# n7822123
¦]¬°§Ú­è¾ÇVBA¡A·Q¼g­Ó¬ö¿ýªÑ²¼ªÑ§QªºEXCEL¡A¼g¤F¤@¥b¦ý¬OÁÙ¨S¼g§¹¥þ¥X¨Ó@@
¤u§@ªí1¬O©w¦sªÑÁ`©ú²Ó¡AAÄæ¤Q¤­®æ°O¿ýµÛ¤Q¤­ºØªÑ²¼¥N½X
¤u§@ªí2¨ì16«h¤@­Ó¤u§@ªí¬ö¿ý¤@ºØªÑ²¼ªº¶R½æ¥H¤ÎªÑ§Q©ú²Ó
¤u§@ªí2ªºA1ªÑ²¼¥N½X´N¬O ¤u§@ªí1ªºA1¡A¤u§@ªí3ªºA1ªÑ²¼¥N½X´N¬O ¤u§@ªí1ªºA2¡A¥H¦¹Ãþ±À
°²³]§Ú§â¤u§@ªí2ªºªÑ²¼¥þ³¡¥X²M¡A¥u­n«ö­Ó«ö¶s´N¥i¦Û°Ê²M°£¤u§@ªí2¸ÓªÑ²¼ªº¶R½æ¸ê®Æ¥H¤Î¤u§@ªí1 A1 B1 C1¤T®æªÑ»ù¸ê°T

±zªº°ÝÃD

1.¦pªG²Ä¤@¤u§@ªíDÄæ¥H«áÁÙ¦³¸ê®Æ¡ADÄæ¥H«áªº¸ê®Æ³£«O¯d¡A¥u§R°£A,B,C ¤TÄ檺¸ê®Æ
ÁÙ¬O¤@¨Ö§R°£?

¥u»Ý§R°£ABC¤TÄõªº¸ê®Æ¡ADÄõ¥H«á¥u¦³ª©®Ø¹Ï®×¤£¥i§R°£

2.§AÁ|ªº¨â­Ó¨Ò¤l³£¦b¤u§@ªí1ªºAÄæ¡A¬O¤£¬OBÄæ»PCÄ椣¦A¤ñ¹ï½d³ò?

¥u¦³¤ñ¹ïAÄæ¡A¤]´N¬OªÑ²¼¥N½X¡A¨ä¥LÄæ³£¤£¥Î¤ñ¹ï

TOP

¥»©«³Ì«á¥Ñ netfish777 ©ó 2018-10-5 21:43 ½s¿è

¦^´_ 4# n7822123

§Ú­è­è§âÀɮפj­P§¹¦¨¤F¡A³o¬O§Ú§Q¥Îºô¸ô°ª¤â¤À¨Éªº¥[¥H«÷¸Ë­×§ï¡A³Â·Ð½Ð«e½ú¬Ý¤@¤U
¤u§@ªí1 ªº C1 ¬OªÑ²¼¥N½X ¬O¦Û°Ê§ì¨ú "¤@Äýªí" ªº C5 ¡A ¤u§@ªí2 ªº C1 «h¬O§ì¨ú ¤@Äýªí ªº C6 ¡A¥H¦¹Ãþ±À
¨C­Ó¤u§@ªí³£¦³­Ó ±¡°£«ö¶s¡A°²³]§Ú«ö ¤u§@ªí1 ªº²M°£¯Ã¡A
§Æ±æ¯à¥Î C1 ªºªÑ²¼¥N½X¥h§ä¥X "¤@Äýªí" ³o¤äªÑ²¼¬O¦b­þ¤@¦æ¡AµM«á§â¸Ó¦æ C5¨ìN5 ªº¤º®e²M°£¦Ó¤£²¾°Ê¥ô¦óÀx¦s®æ
½Ð°Ý¯à¤£¯à¤Q¤­­Ó¤u§@ªíªº²M°£¯Ã³£¯à¦@¥Î¤@­ÓVBAµ{¦¡
Àµ½Ð«ü±Ð¡A·PÁÂ

KKKK.rar (187.55 KB)

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-10-6 02:40 ½s¿è

¦^´_ 7# netfish777


®M¥ÎHsieh ¶Wª©ªºµ{¦¡
²³æ¡A¦p¤U

Sub ²M°£¤@Äýªí¬YªÑ²¼()
Sheet1.Columns(3).Find([c1], lookat:=xlWhole).Resize(, 12).ClearContents
End Sub
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ netfish777 ©ó 2018-10-6 21:10 ½s¿è

¦^´_ 8# n7822123

¯uªº¥i¥H¤F¡A¦ý¬Oµo²{¦³­Ó°ÝÃD
¦pªG¦b¨S¦³¶R½æ¸ê®ÆªºªÅ¥Õ¤u§@ªí¤§¤¤«ö¤U²M°£«ö¶s
·|¥X²{ " ¨S¦³³]©wª«¥óÅܼƩΪÌWithÅܼÆ"ªº¿ù»~°T®§
½Ð°Ý¸Ó¦p¦ó±Æ°£?·PÁÂ

TOP

¦^´_ 9# netfish777


If [C1] <> 0 Then Sheet1.Columns(3).Find([c1], lookat:=xlWhole).Resize(, 12).ClearContents
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD