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

[µo°Ý] ¸ê®Æ­åªR¦³¿ìªk§ä¥X´«¦æ¸ê®Æ¶Ü

[µo°Ý] ¸ê®Æ­åªR¦³¿ìªk§ä¥X´«¦æ¸ê®Æ¶Ü

½Ð±Ð¤j¤j
°²³]¦r¦ê¤º®e¦³´«¦æ¦@¤G¦C,¥ÎEXCEL¸ê®Æ­åªR¥\¯à,¦³¿ìªk§ä¥X´«¦æ¦ì¸m,±N¸ê®Æ¤À¶}¨ì¨â­ÓÀx¦s®æ¤º¶Ü?
¦pªG¸ê®Æ­åªR¨S¿ìªk,½Ð±Ð­n¦p¥ÎVBA§ä¥X´«¦æ¦ì¸m?

¥¿«h \n ¥i¥H§ä¥X´«¦æ¡A¦ý±q(¸ê®Æ\¨ú±o¥~³¡¸ê®Æ-±q¤å¦rÀÉ)¶×¤J¤åÀɹ³¬O¤w¸g¥i¥H°µ¨ì¡C

TOP

½Ð±Ðikboy¤j¤j(¥¿«h \n ¥i¥H§ä¥X´«¦æ)¬O¤°»ò·N«ä?

TOP

¥¿«h©Ò¯A¤Îª¾ÃѸû¬°¼s¡A¼Ó¥D¥i¥H¦b¦¹¤F¸Ñ¦hÂI https://docs.microsoft.com/en-us/dotnet/standard/base-types/regular-expression-language-quick-reference

TOP

¦^´_ 4# ikboy

ikboy¤j¤j,­^¤å§Ú¤£¦æ¬Ý¤£À´,¤j¤j«üªº/N,¬O¥Î¦bVBAµ{¦¡½X¤W¶Ü?
½Ð±Ð¥i¥H¥ÎFIND¨ç¼Æ§ä¥X´«¦æ¦ì¸m¶Ü?
¤£¦n·N«ä,ÁٽФj¤jÀ°¦£ÁÂÁÂ!!

TOP

¦^´_ 4# ikboy

§Ú¦b¤U­±³sµ²§ä¨ì¸Ñµª¤F
http://www.how01.com/post_1m6ZK92eG5Zzw.html

¨ç¼ÆCHAR(10)´N¥Nªí¹q¸£¦r¤¸¶°, ´«¦æ
¥u­n¥Î¨ç¼ÆFIND(CHAR(10),D2)´N¥i§ä¨ì´«¦æ¦ìÓ_

TOP

¸É¥R»¡©ú
¥Î¦bVBA¤W Chr(10)¥Nªí´«¦æ
¦¸¼Æ = Len(strMsg) - Len(Replace(strMsg, Chr(10), ""))  '§ä¬Y¦r¦b¦r¦ê¥X²{¦¸¼Æ

TOP

¦^´_ 7# blue2263
  1. Option Explicit
  2. Sub EX()
  3.     Dim Str As String, Ar As Variant, i As Integer
  4.     Str = "aaa" & Chr(10) & "bbbbb" & Chr(10) & "ccccc"
  5.     Ar = Split(Str, vbLf)
  6.     'Ar = Split(Str, Chr(10)) 'Chr(10) ¦P vbLf
  7.     For i = 0 To UBound(Ar)
  8.         Cells(i + 1, "A") = Ar(i)
  9.     Next
  10. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¸ê®Æ­åªR, ¿ï[¨ä¥¦]¦r¤¸:
OtherChar :=Chr(10)

¤â°Ê¤è¦¡:
1.¿ï¨ú[¨ä¥¦]¦r¤¸
2.«ö¦ìAlt¤£©ñ, ¥Î[¼Æ¦rÁä]¿é¤J10, ©ñ¶}Alt
3.½T©w--§¹¦¨

TOP

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

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD