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

[µo°Ý] ½Ð°Ý¸óÄæÄæ¦ì¦p¦ó¦Û¦æ¦X¨Ö¦¨¸ò¹j¾ÀÄæ¦ì¤@¼Ë

[µo°Ý] ½Ð°Ý¸óÄæÄæ¦ì¦p¦ó¦Û¦æ¦X¨Ö¦¨¸ò¹j¾ÀÄæ¦ì¤@¼Ë

¦U¦ì¤j¤j
¤p§Ì¤½¥q¦³«Ü¦h­q³æªºÄæ¦ì
¬O±q¤½¥qªººô©çºô­¶¤U¸ü¤U¨ÓªºEXCEL
¨ä¤¤¦³¤@¶µ¬O
¦pªþ¹Ï1
[attach]24318[/attach]
AGªºÄæ¦ì¸ò¹j¾ÀªºAFÄæ¦ì¤£¤@¼Ë
¬O10®æ¥ª¥kªº¦C¦ì

·Q½Ð°Ý¦p¦ó¥ÎVBA¥¨¶°±NAGªºÄæ¦ìÅܦ¨¸òAF¤@¼Ë
¦Ó¥B¯à±N¤£¦Pªº¦C¼Æ¦X¨Ö¦¨¸ò¤@¦C
¤º®e¤£¯à³Q§R°£

[attach]24318[/attach]

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-5-21 22:06 ½s¿è

¦^´_ 1# e12438
¬Ý¤£¨ì§Aªº¹Ï¤ù¥u¯à¦Û¤v²q´úÅo.

        ¦X¨Ö«e                              ¦X¨Ö«á
¡@¡@
  1. Sub nn()
  2.   Dim sStr$
  3.   Dim lRows&
  4.   Dim aR(), vA
  5.   Dim rSou As Range

  6.   Set rSou = [AF1]
  7.   Do While rSou <> ""
  8.     lRows = rSou.MergeArea.Count
  9.     If lRows > 1 Then
  10.       aR = rSou.Offset(, 1).Resize(lRows).Value
  11.       sStr = ""
  12.       For Each vA In aR
  13.         If sStr <> "" Then
  14.           sStr = sStr & " " & vA
  15.         Else
  16.           sStr = vA
  17.         End If
  18.       Next
  19.       With rSou.Offset(, 1).Resize(lRows)
  20.         .Clear
  21.         .Merge
  22.         .WrapText = True
  23.         .Value = sStr
  24.       End With
  25.     End If
  26.     Set rSou = rSou.Offset(1)
  27.   Loop
  28. End Sub
½Æ»s¥N½X
¸óÄæ¦ì¦X¨Ö¦¨¸ò¹j¾ÀÄæ¦ì¤@¼Ë-A.zip (7.59 KB)

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD