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

[µo°Ý] VBA ½Æ»sµLªk§PÂ_ªÅ¥Õ & ¼Æ­È¥[Á`

[µo°Ý] VBA ½Æ»sµLªk§PÂ_ªÅ¥Õ & ¼Æ­È¥[Á`

½Ð°Ý¤@¤U§Ú¥ÎVBA ½Æ»sAÀɮרìBÀÉ®×
¥»¨Ó­n±NHÄæ¨ìSÄæ ¥þ³¡¬OªÅ¥Õ´N§R°£ , ¦ý«ç»ò§PÂ_³£µLªk¼g¥X¨Ó
«á¨Ó¹Á¸Õ¥Î°²³]HÄæ¥[Á`¨ìSÄæ µ¥©ó0 ´N§R°£ , ¨S·Q¨ì¥X²{³o­Ó°ÝÃD(¹Ï¤ù)
¤w¨Æ¥ý±NÀx¦s®æÂର¼Æ­È ¬°¤°»òÁÙ·|¥X²{³o­Ó°ÝÃD©O?

¦pªG­n§PÂ_ªÅ¥Õ´N§R°£­n«ç»òªí¥Ü©O???

¦p¤U°ÝÃD



µ{¦¡½X
  1. Dim RepSht As Worksheet
  2. Set RepSht = Sheets("CCC")

  3. With RepSht
  4.      For u = .Range("A65536").End(xlUp).Row To 2 Step -1
  5.           If .Cells(u, "I") = "" And .Cells(u, "J") = "" And .Cells(u, "K") = "" And .Cells(u, "L") = "" And .Cells(u, "M") And .Cells(u, "N") = "" And .Cells(u, "P") = "" And .Cells(u, "Q") = "" _
  6.            And .Cells(u, "R") = "" And .Cells(u, "S") = ""  Then
  7.            .Rows(u).Delete
  8.            End If
  9.       Next
  10. End With
½Æ»s¥N½X
TEST.rar (15.05 KB)

¦^´_ 2# GBKEE


    §ó¥¿«á¤U©Ô¤@¼Ëª¬ªp
¼Æ¦r³£·|Åܧó

TOP

¦^´_ 4# ­ã´£³¡ªL

·PÁ¤j¤j´£ÂI!! ²×©ó§¹¦¨!!!

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD