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

[µo°Ý] excel vba»yªk¡G§R°£KÄæ¬°ªÅ¥Õ¤§¦C

Sub TEST()
On Error Resume Next '²¤¹L§ä¤£¨ìªÅ¥Õ®æªº¿ù»~
[K:K].SpecialCells(xlCellTypeBlanks).EntireRow.Delete '¨ú±oªÅ¥Õ®æ(¤½¦¡²£¥Íªº""¤£ºâ), §R°£
On Error GoTo 0 '«ì´_°»¿ù¥\¯à
End Sub

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD