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

§â¦P¼Ëªºµ²ªG¥þ³¡§R±¼

§â¦P¼Ëªºµ²ªG¥þ³¡§R±¼

¦U¦ì¤j¤j¦n:
½Ð°Ý¦bAB¨âÄ檺¸ê®Æ¸Ì
§Ú·Q±NAÄæ¸Ì¥ô¦ó¸òBÄ榳­«½Æ¨ìªº¸ê®Æ¥þ³¡§R±¼½Ð°Ý­n«ç»ò°µ¨ì©O?
¦p¹Ï§Æ±æ¯à¤ñ¸û¥X¥ª¤Uªºµ²ªG

BB.png (1.37 KB)

BB.png

¸Õ¸Õ¬Ý:
C3: =IF(OR(A1=B$1,A1=B$2),"",A1)
¦V¤U©Ô

TOP

¦^´_ 2# yen956

·PÁ±zªº¼ö¤ß¦^´_! ¦ý¦pªG»¡§Úªº¸ê®Æ¦³´X¦Êµ§»Ý­n¹ï·Ó©O?

TOP

=IF(COUNTIF(B$1:B$99,A1),"",A1)&""

TOP

¦^´_ 4# hcm19522

±z¦n³o­Ó¤èªk«Ü¦³®Ä¥u¬O§Ú²{¦b¤S¸I¨ì¤F¸ÓµL¦ó§âªÅ¥Õªº¦æ®ø°£ªº°ÝÃD
§Ú¤w¸g§â¸ê®Æ²¾¨ì¥t¤@­Ó¤u§@ªí¤F¡Agoogle¨ì¥i¥H§Q¥Î´M§äªº¤è¦¡§ä¨ìªÅ¥Õªº¦æ¦ì
¦ý¬O·h¥X¨Óªº¸ê®ÆÄæ¦ì¸ÌªÅ¥Õªº®æ¤l¦bexcel¸Ì¦ü¥G¤£»{¬°¬OªÅ¥Õªº...¨S¦³¿ìªk¤@¦¸¿ï¨ú ½Ð°Ý¸Ó«ç»ò¸Ñ¨M©O?

TOP

¸Õ¸ÕVBA
  1. 'ª½±µ²M°£(«O¯d­ìÀx¦s®æªº¦ì¸m)
  2. Sub test()
  3.     Dim LastRow As Long, i As Long
  4.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
  5.     For i = 1 To LastRow
  6.         If Cells(i, 1) = [B1] Or Cells(i, 1) = [B2] Then
  7.              Cells(i, 1).ClearContents
  8.         End If
  9.     Next
  10. End Sub

  11. '§R°£§¹, ªÅ®æ·|¦V¤W²¾
  12. Sub test2()
  13.     Dim LastRow As Long, i As Long
  14.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
  15.     For i = LastRow To 1 Step -1
  16.         If Cells(i, 1) = [B1] Or Cells(i, 1) = [B2] Then
  17.              Cells(i, 1).Delete Shift:=xlUp
  18.              i = i - 1
  19.         End If
  20.     Next
  21. End Sub
½Æ»s¥N½X

TOP

§ó¥¿:
6# ¤¤ªº ²Ä19 ¦CÀ³§R°£¤~¹ï!!

TOP

http://blog.xuite.net/hcm19522/twblog/355916302

TOP

¦^´_ 6# yen956


    ·PÁ±zªº¦^ÂмÚ! !

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2015-11-12 13:25 ½s¿è

¦^´_ 8# hcm19522
hcm19522¤j¤j§A¦n,
À°§Ú¬Ý¬Ý, §Ú·Ó6#¤j¤jblogªº¤½¦¡,
¬°¦ó±o¤£¨ì·Q­nªºµ²ªG?

test.jpg (51.95 KB)

test.jpg

test.jpg (51.95 KB)

test.jpg

test.rar (2.13 KB)

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD