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

[µo°Ý] ¸ê®ÆÂà¸m¶K¤W

Sub test_1()
Dim Arr, Brr, i&, j&, T$, R&, C%
Range("a13:g2000").ClearContents
Arr = [n13].CurrentRegion
ReDim Brr(1 To 2000, 1 To 7)
For j = 1 To UBound(Arr, 2)
    For i = 1 To UBound(Arr)
        T = Arr(i, j): If T = "" Then GoTo i01
        C = C + 1: Brr(R + 1, C) = T
        If C = 7 Then C = 0: R = R + 1
i01: Next i
Next j
[a13].Resize(R + 1, 7) = Brr
End Sub

TOP

µn¿ýªí¬O"XXX-111", ¤H­û¦W³æ¬O"111", «ç¹ï±o¤W???

TOP

~~ñ¨ì°O¿ýªí (2±i)~~
¥´¦L­¶¬O¥Ñ¤W¦Ó¤U, ¥ý¥ª«á¥k,
­Y­è¦n­Ó¼Æ¦b25~28­Ó¤§¶¡,
²Ä1­¶14¦æ: ¥ª1~14, ¥k15~28,
²Ä2­¶12¦æ, ¬OªÅ¥Õªº!!!

TOP

¥ý¤£ºÞñ¨ì­¶¼Æ¦]¼W­¶¦Ó¦³ªÅ¥Õ­¶ªº°ÝÃD
Xl0000798.rar (34.65 KB)

1)¶×¤Jlist¤Î¸ü¤Jñ¨ìªí, ¤À¶}³B²z, ­Y­n¤@¦¸¨ì¦ì, ¦Û¤v¦A§Ë­Óµ{§Ç+call
2)list¤ñ¹ï­«ÂÐ, À³¬O"­û½s+¤é´Á"¤~¹ï§a!  ­Y¦³°ÝÃD¦Û¦æ½Õ¾ã
3)ñ¨ìªí¥u¥Î¤@±i¤u§@ªí, ¦Û°Ê¨Ì­Ó¼Æ¼W¥[­¶¼Æ

TOP

Sub ¸ê®ÆÂà¸m¶K¤W()
Dim Arr, Brr, i&, j&, T$, R&, C%
Range("a13:g2000").ClearContents
If [k13] <> "" Then Arr = Range([k13], [k65536].End(xlUp)(2))
If [n13] <> "" Then Arr = [n13].CurrentRegion
ReDim Brr(1 To 2000, 1 To 7)
If Not IsArray(Arr) Then Brr(1, 1) = Arr: GoTo 999  '­Y¸ê®Æ¥u¦³¤@­Ó~~ For j = 1 To UBound(Arr, 2)
For i = 1 To UBound(Arr)
        T = Arr(i, j): If T = "" Then GoTo i01
        C = C + 1: Brr(R + 1, C) = T
        If C = 7 Then C = 0: R = R + 1
i01: Next i
Next j
999: [a13].Resize(R + 1, 7) = Brr
End Sub

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD