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

av8d

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

¤U¸ü¦¸¼Æ: 6

2023-2-14 15:11

¦]¬°¥|ÄæÀ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

Andy2483

¦^´_ 1# av8d


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

°õ¦æ«e:

¤U¸ü (41.51 KB)

2023-2-14 16:37

°õ¦æµ²ªG:

¤U¸ü (45.68 KB)

2023-2-14 16:38

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

av8d

¦^´_ 2# Andy2483

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

­ã´£³¡ªL

¦^´_ 3# av8d


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

Andy2483

¦^´_ 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´«

¤U¸ü (34.91 KB)

2023-2-15 07:32

Andy2483

¦^´_ 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

hcm19522

https://blog.xuite.net/hcm19522/twblog/590724788