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

excel§é¦æ¤Àµõ°ÝÃD

excel§é¦æ¤Àµõ°ÝÃD

¦U¦ì¤j­Ó¦n§Ú¦³¤@­Óexcel°ÝÃD¦p½d¨Ò
§Ú·Q­nÅý¤u§@ªí1¤º®eÂà´«¦¨¤u§@ªí2¡A¦æ¼Æ¤£µ¥¤£ª¾vba­n¦p¦ó¼¶¼g¡C
¬¡­¶Ã¯1.rar (6.82 KB)
½Ð¦U¦ì¤j­ôÀ°§Ú¸Ñ´b¤@¤U¡C
lionliu

¤£¦n·N«ä¨Sªí¥Ü²M·¡¡A
¤u§@ªí1 A2 ­nÂন¤u§@ªíªºA2¡BA3¡BA4¤T¦C
       "      A4    ""                      ""  A6¡BA7¨â¦C
lionliu

TOP

¦^´_ 2# lionliu
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, S As String
  4.     For Each E In Sheets("¤u§@ªí1").UsedRange.Columns(1).Cells '§Aªº¸ê®Æ¦bAÄæ
  5.         S = S & IIf(S <> "", ",", "") & Join(Split(E.Value, vbLf), ",")
  6.     Next
  7.     Sheets("¤u§@ªí2").[A1].Resize(UBound(Split(S, ",")) + 1) = Application.Transpose(Split(S, ","))
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE
´ú¸Õ¥i¥H¶]¤FÁÂÁ¤j­ô
lionliu

TOP

¦^´_ 3# GBKEE
GB¤j­ô¡G
­Y§Ú«e­±¦³Äæ¦ì½s¸¹¡G¬O§_¥i¥H¥[¶i¥h¦pªþ¥ó
¬¡­¶Ã¯1.rar (6.91 KB)
¦³¨ÆµÛ¦Û¦æ¥H½d¨Ò­×§ï¡A¦ý¬O°µ¨ì«á¨ÓÁÙ¬OµL¸Ñ
lionliu

TOP

¦^´_ 6# lionliu
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Range, D  As Object, Sp As Variant
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
  5.     For Each E In Sheets("¤u§@ªí1").UsedRange.Columns(2).Cells '§Aªº¸ê®Æ¦bBÄæ
  6.         For Each Sp In Split(E.Value, vbLf)
  7.             D(E.Offset(, -1) & ":" & Sp) = ""    '¦r¨åª«¥óªºKey­È=>  E.Offset(, -1) & ":" & Sp
  8.         Next
  9.     Next
  10.     Sheets("¤u§@ªí2").[A1].Resize(D.Count) = Application.Transpose(D.KEYS)
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


  ÁÂÁÂgb¤j¤j
¬Ý¤F§Aªº2­ÓvbaÅý§Ú¦³§ó¶i¤@¨Bªº·Pı¡A¯u¬O¤Ó±j¤j¤F¡C
lionliu

TOP

¦^´_ 6# GBKEE
GBKEE¤j¤j¦n

§Ú¥Î¨t²ÎÂà¥Xªº¸ê®Æ­Y¥Î¤W­z¤èªk¡A·íCOPY¨ì°O¨Æ¥»©Î²EÑÔ°O¨Æ¥»«á¡C
·|¦b§é¦æªº¤å¦r«e­±·|¥[¤W" ¦pªþ¥ó¤£ª¾¦³¤èªk¥i¥H§JªA¡C
TEST.rar (9.39 KB)
lionliu

TOP

¦^´_ 6# GBKEE
GB¦Ñ¤j¤£¥Î¤F¡A§Ú¦Û¤v´ú¸Õ¥X¨Ó¤F¡AÁÂÁ±z¡C
lionliu

TOP

¦^´_ 9# lionliu
GB¤j­ô¡G
¤£¦n·N«ä¤S¸I¨ì°ÝÃD·Q¤£¥X¸Ñ¨M¤èªk¡A©Ò¥H¦³¤W¨Ó½Ð±Ð§A¡C
»P¤W­±°ÝÃD¹p¦P¡A§Ú·QÅý¤u§@ªí1 Âন¤u§@ªí2¡C ¬¡­¶Ã¯1.rar (13.32 KB)
lionliu

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD