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

[µo°Ý] VBA ·j´Mªº°ÝÃD

¦^´_ 27# sss1159


For j = 4 To .Cells(Rows.Count, 1).End(xlUp).Row
¡@¡@If Instr("ÂŲy±Æ²y", .Cells(j, 6)) Then
¡@¡@¡@¡@Jm = Jm + 1
¡@¡@¡@¡@.Cells(j, 1).Resize(1, 6).Copy xH(Jm)
¡@¡@End If
Next j

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD