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

½Ð°ÝVBA ´M§ä¸ê®Æªº°ÝÃD

¦^´_ 1# tonycho33
  1. Sub nn()
  2. Range([J7], [J7].End(xlToRight)).ClearContents
  3. Set a = [F:F].Find([I7], lookat:=xlWhole)
  4. i = i + 1
  5. [I7].Offset(, i) = a.Offset(, 1)
  6. Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = ""
  7.   [I7].Offset(, i) = a.Offset(i, 1)
  8.   i = i + 1
  9. Loop
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# tonycho33
  1. Sub nn()
  2. Range([H5], [H5].End(xlToRight)).ClearContents '²M°£¤§«e¤º®e
  3. Set a = [B:B].Find([G5], lookat:=xlWhole) '§ä¨ìG5¦bBÄæªº¦ì¸m
  4. i = i + 1
  5. [G5].Offset(, i) = a.Offset(, 1) 'G5¦V¥k¼g¤J
  6. Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '°õ¦æ°j°éª½¨ìBÄæ¤£µ¥©óªÅ¥Õ©ÎCÄæ¤£µ¥©óªÅ¥Õ
  7.   [G5].Offset(, i) = a.Offset(i, 1) 'G5¦V¥k¼g¤J
  8.   i = i + 1
  9. Loop
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD