­ã´£³¡ªL

­Y¥u¦³¨º´X®æ??
=SUBSTITUTE(TRIM(C5&" "&D5&" "&E5&" "&F5&" "&G5&" "&H5&" "&I5&" "&J5&" "&K5)," ",",")

©Î¥Î¦Û­q¨ç¼Æ
Function NumTxt(ARR) As String
Dim A, T$
For Each A In ARR
    T = Trim(T & " " & A)
Next
NumTxt = Replace(T, " ", ",")
End Function

¤½¦¡:=NumTxt(C5:K5)

sun19860126

½Ð°Ý¦pªG¦P¼Ëª¬ºA¡AÄæ¦ì«Ü¦h¨ì100-200Äæ
­n«ç»ò§ï·|¤ñ¸û¦n? ÁÂÁ¤j¤j

­ã´£³¡ªL

¦^´_ 12# sun19860126


±N¸ê®Æ½d³ò©ñ¨ì¦Û­q¨ç¼Æªº¤½¦¡¤¤§Y¥i,
°£«D»Ý¨D¤£¦P, ¥i¤W¶Ç½d¨Ò¨Ã¥[»¡©ú³W«h!

sun19860126

·PÁ¼ӤW~§Ú­è¦n¦³»Pµo¤åªÌÃþ¦ü»Ý¨D
©Ò¥H´N¥Î¦P¼Ë¼gªk¦A§ó§ï¡A¥u¬OÄæ¦ì»Ý¨DÅܤj
Sub fourFATNOcombine()

' fourFATNOcombine ¥¨¶°
'
Dim Out As Variant
For n = 3 To 2000
If Cells(n, 2) <> "" Then
Out = Array(Cells(n, 146), Cells(n, 245))
***¤W­±³o¤@¬q§Ú­n±q146Äæ¦Y¸ê®Æ¨ì245Äæ¡A¤gªk·Ò¿û¦ü¥GµLªk¸Ñ
ub = UBound(Out)
For i = 0 To ub
If Out(i) <> "" Then: OutAll = OutAll & "/" &

Out(i)
Next
Cells(n, 9) = Mid(OutAll, 2, 999)
OutAll = ""
End If
Next

­ã´£³¡ªL

¦^´_ 14# sun19860126


¨S¦³Àɮ׬ݡA¥u¯à²qµÛ¼g¡ã¡ã
Sub fourFATNOcombine()
Dim Arr, Brr, Vrr, i&, j&, T$
Arr = Range(Cells(3, 146), Cells(2000, 245))¡@'²Ä¢°¢³¢µÄæ¦Ü¢±¢³¢´Äæ½d³ò
Brr = Range(Cells(3, 2), Cells(2000, 2))¡@'²Ä¢±Äæ¡]¢ÐÄæ¡^
ReDim Vrr(1 To UBound(Arr), 0)¡@'©w¸q¤@­ÓªÅ°}¦C
For i = 1 To UBound(Arr)¡@
¡@¡@If Brr(i, 1) = "" Then GoTo 101¡@'¦pªG¢ÐÄ欰ªÅ¡A²¤¹L¦¹¦æ
¡@¡@For j = 1 To UBound(Arr, 2)
¡@¡@¡@¡@If Arr(i, j) <> "" Then T = T & "/" & Arr(i, j)
¡@¡@Next j
¡@¡@Vrr(i, 0) = Mid(T, 2): T = ""
101: Next i
Cells(3, 9).Resize(UBound(Vrr)) = Vrr
End Sub

hcm19522

http://blog.xuite.net/hcm19522/twblog/585214989