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

[µo°Ý] ¥|Äæ¦X¨Ö¦¨¤@Äæ

[µo°Ý] ¥|Äæ¦X¨Ö¦¨¤@Äæ

¥»©«³Ì«á¥Ñ av8d ©ó 2023-2-14 15:28 ½s¿è

¥|Äæ¦X¨Ö¦¨¤@Äæ.rar (7.14 KB)

¦]¬°¥|ÄæÀH¾÷·|¦³ªÅ­È¡A¦pªG¥Î³Ì²³æªº&","&°µ³sµ²´N·|¦h¥X³\¦h,
½Ð°Ý¦³Ãþ¦üªº¨ç¼Æ¥i¥H¸Ñ¨M¸Ó°ÝÃD¶Ü¡HÁÂÁ«e½ú­Ì¡C

¸É¥R¡Gªþ¥ó¤¤ªº¦X¨ÖÄæ¸Ìªº ¹q¸Ü1234¬O¤è«K¶ñ¼g¡A¹ê»Ú¬O¸Ó¦Cªº¹q¸Ü¼Æ¦r¡C

¦^´_ 1# av8d


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾Ç¤]·Q¾Ç¤½¦¡¨ç¼Æªº¤è¦¡,«á¾Ç´£¨Ñ¾Ç²ßVBAªº¸Ñ¨M¤è®×,½Ð«e½ú¸Õ¸Õ¬Ý

°õ¦æ«e:


°õ¦æµ²ªG:


Option Explicit
Sub TEST()
Dim Arr, N&, i&, j&
Arr = Range([D1], Cells(ActiveSheet.UsedRange.Rows.Count, "A"))
For i = 2 To UBound(Arr)
   N = N + 1: Arr(N, 1) = ""
   For j = 1 To UBound(Arr, 2)
      If Trim(Arr(i, j)) <> "" Then
         If Arr(N, 1) = "" Then
            Arr(N, 1) = "'" & Trim(Arr(i, j))
            Else
               Arr(N, 1) = Arr(N, 1) & "," & Trim(Arr(i, j))
         End If
      End If
   Next
Next
[E2].Resize(N, 1) = Arr
Set Arr = Nothing
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

ÁÂÁ«e½ú³z¹LVBAªº¦r¨å¹ê²{³oÃø¸Ñªº¥ô°È¡A«D±`¦n¥Î¡A¨ü¯q¨}¦h¡C

TOP

¦^´_ 3# av8d


¥i¥H¥Î TEXTJOIN
­Yª©¥»¨S¦³TEXTJOIN, ¥u¦³¥|­ÓÄæ¦ì, ¥Î & ³s±µ¤]¥i¥H
=SUBSTITUTE(TRIM(A2&" "&B2&" "&C2&" "&D2)," ",",")

TOP

¦^´_ 4# ­ã´£³¡ªL


    ÁÂÁ«e½ú
¦¹½d¨Ò¾Ç²ß¨ì TRIM(),SUBSTITUTE()
1.TRIM()·|±NÀY§ÀªºªÅ¥Õ¦r¤¸°£¥h
2.TRIM()·|±N¦r¦ê¤ºªº³sÄòªÅ¥Õ¦r¤¸¦¬ÀijѤU¤@­ÓªÅ¥Õ¦r¤¸
3.SUBSTITUTE()°µ¦r¤¸ªº¸m´«

¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-2-15 08:11 ½s¿è

¦^´_ 3# av8d


    ÁÂÁ«e½ú¦^´_
«á¾Ç¤µ¤Ñ½Æ²ß¤F¤@¤U¨Ã§@¤ß±oµù¸Ñ,½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub TEST()
Dim Arr, N&, i&, j&
'¡ô«Å§iÅܼÆ:Arr¬O³q¥Î«¬ÅܼÆ,(N,i,j)¬Oªø¾ã¼ÆÅܼÆ
Arr = Range([D1], Cells(ActiveSheet.UsedRange.Rows.Count, "A"))
'¡ô¥OArr³o³q¥Î«¬ÅܼƬO¤Gºû°}¦C,¥H²{ªí[D1]¨ìAÄæ/¨Ï¥Î¦CÀx¦s®æ,³o¤è¥¿½d³òÀx¦s®æ­È­Ë¤J
'PS:¨Ï¥Î¦C:¤w¨Ï¥ÎÀx¦s®æÂX®i¬°³Ì¤p¤è¥¿½d³òÀx¦s®æªº¦C¼Æ

For i = 2 To UBound(Arr)
'¡ô³]¶¶°j°é!i±q2¨ì Arr°}¦CÁa¦V³Ì¤j¯Á¤Þ¦C¸¹¼Æ
   N = N + 1: Arr(N, 1) = ""
   '¡ô¥ON³oªø¾ã¼ÆÅܼƲ֥[ 1 :¥ONÅܼƦC²Ä1ÄæArr°}¦C­È¬OªÅ¦r¤¸
   For j = 1 To UBound(Arr, 2)
   '¡ô³]¶¶°j°é!j±q2¨ì Arr°}¦C¾î¦V³Ì¤j¯Á¤ÞÄ渹¼Æ
      If Trim(Arr(i, j)) <> "" Then
      '¡ô¦pªGi°j°é¦C²Äj°j°éÄæArr°}¦C­È¥hÀY§ÀªÅ¥Õ¦r¤¸«á¤£¬OªÅ¦r¤¸ ??
         If Arr(N, 1) = "" Then
         '¡ô¦pªGNÅܼƦC²Ä1°j°éÄæArr°}¦C­È¬OªÅ¦r¤¸??
            Arr(N, 1) = "'" & Trim(Arr(i, j))
            '¡ô¥ONÅܼƦC²Ä1°j°éÄæArr°}¦C­È¬O ³æ¤Þ¸¹,
            '³s±µi°j°é¦C²Äj°j°éÄæArr°}¦C­È¥hÀY§ÀªÅ¥Õ¦r¤¸ªº·s¦r¦ê

            Else
               Arr(N, 1) = Arr(N, 1) & "," & Trim(Arr(i, j))
               '¡ô§_«h¥ONÅܼƦC²Ä1°j°éÄæArr°}¦C­È¬O ¦Û¨­,
               '³s±µ","²Å¸¹,¦A³s±µi°j°é¦C²Äj°j°éÄæArr°}¦C­È¥hÀY§ÀªÅ¥Õ¦r¤¸ªº·s¦r¦ê

         End If
      End If
   Next
Next
[E2].Resize(N, 1) = Arr
'¡ô¥O[E2]ÂX®i¦V¤UNÅܼƦC,¦V¥k¤£ÂX®iªº½d³òÀx¦s®æ­È,¥HArr°}¦C­È±a¤J
Set Arr = Nothing
'¡ô¥OÄÀ©ñÅܼÆ
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD