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

[µo°Ý] ¸ê®ÆÂà¸mªº¤p°ÝÃD

¦^´_ 9# GBKEE

ÁÂÁÂG¤j
¤£¹L¯u¦p¼Ó¤W©Ò»¡ªº,­Y¦³AA1,AM1³o¼Ëªº¦r²´ªº®É­Ô
´N·|¥X²{«¬ºA¤£²Å¦X

§Ú§Ö³t§ì¤F¤@¥÷¸ê°T,¦pªþ¥ó,Âà´«ªº®É­Ô
·|¥X²{«¬ºA¤£²Å¦X

    test0703.rar (22.26 KB)

TOP

¦^´_ 11# boblovejoyce
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, Ar1(), x As Integer, Ar2(), i As Integer
  4.     Dim Y As Integer, S As String
  5.     Set Rng = [F1]
  6.     Do While Rng <> ""
  7.         i = 0: Y = 1: S = ""
  8.         While Mid(Rng, Y, 1) Like "[A-z]"  '¬O¦r¥À
  9.             S = Mid(Rng, 1, Y)
  10.             Y = Y + 1
  11.         Wend
  12.         If S <> "" And S = Mid(Rng.Offset(i), 1, Y - 1) Then
  13.             ReDim Preserve Ar1(x + 1)
  14.             ReDim Ar2(i)
  15.             Ar2(i) = S
  16.             Do While S = Mid(Rng.Offset(i), 1, Y - 1)
  17.                 i = i + 1
  18.                 ReDim Preserve Ar2(i)
  19.                 Ar2(i) = Rng.Offset(i - 1, 1)
  20.             Loop
  21.             Ar1(x + 1) = Ar2
  22.             Set Rng = Rng.Offset(i)
  23.             x = x + 1
  24.         End If
  25.     Loop
  26.     ReDim Ar2(i)
  27.     For i = 0 To i
  28.         Ar2(i) = IIf(i > 0, i, "")
  29.     Next
  30.     Ar1(0) = Ar2
  31.    ' For i = 1 To UBound(Ar1)
  32.    '     [I1].Offset(i).Resize(, UBound(Ar1(i)) + 1) = Ar1(i) '¤@¦æ¤@¦æªº¼g¤J
  33.    ' Next
  34.    '*********** ¤@¦¸¼g¤J
  35.     [I1].Resize(UBound(Ar1) + 1, UBound(Ar2) + 1).Value = Application.Transpose(Application.Transpose(Ar1))
  36. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


    ·PÁÂG¤j¸Ñ´b¡IÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ¤H¨ÆªºÁ}Ãø»PµZ¿i¡A´N¬O¤@ºØ¦ÒÅç¡C
ªð¦^¦Cªí ¤W¤@¥DÃD