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

·Q½Ð±Ð,±q¦h­Ó¬¡­¶Ã¯§ä¨ìÃöÁä¦r«á½Æ»s¤U¤@¦C,¦ý¤@ª½¦³¿ù»~

·Q½Ð±Ð,±q¦h­Ó¬¡­¶Ã¯§ä¨ìÃöÁä¦r«á½Æ»s¤U¤@¦C,¦ý¤@ª½¦³¿ù»~

·Q½Ð±Ð,±q¦h­Ó¬¡­¶Ã¯§ä¨ìÃöÁä¦r«á½Æ»s¤U¤@¦C,¦ý¤@ª½¦³¿ù»~

Sub ex()

Dim Ar(), i%, C$, A As Range

With Sheets(1) '²Ä¤@±i¤u§@ªí

C = "¨­¤ÀÃҩβΤ@ÃÒ¸¹" '­n¿z¿ïªº­È

   For i = 2 To Sheets.Count '±q²Ä2±i¤u§@ªí¶}©l¦^°é

      With Sheets(i)

         For Each A In .UsedRange.Columns(1).Cells 'AÄæ¤w¨Ï¥ÎÀx¦s®æ°µ°j°é

            If A = C Then '¦pªG»P­n¿z¿ïªº­È¬Û¦P

               ReDim Preserve Ar(s)

               Ar(s) = A.Offset(1).Resize(, 11) '±N¸Ó¦CA:kÄæ¼g¤J°}¦C

               s = s + 1

            End If

         Next

      End With

    Next

.[A4].CurrentRegion.Offset(1).ClearContents '²M°£Â¦³¸ê®Æ

If s > 0 Then .[A5].Resize(s, 11) = Application.Transpose(Application.Transpose(Ar)) '­Y¦³²Å¦X¶µ¥Ø«h¼g¤J¤u§@ªí1ªºA5¥H¤U¦ì¸m

End With



End Sub


¦b³o¤@¦æ¤@ª½¥X²{¿ù»~"13"«¬ºA¤£²Å¦X,§Ú¤£ª¾¬O§_§Úªº¬¡­¶Ã¯¤Ó¦h,¨ä¹ê¬¡­¶Ã¯¦@¦³¬ù500­¶,¦pªG§Ú1~60­¶«O¯d,¨ä«á³£§R±¼,´N¨S¦³¿ù»~
If s > 0 Then .[A5].Resize(s, 11) = Application.Transpose(Application.Transpose(Ar)) '­Y¦³²Å¦X¶µ¥Ø«h¼g¤J¤u§@ªí1ªºA5¥H¤U¦ì¸m

¤£ª¾¥i§_À°¦£¸Ñ¨M,¦pªG¯à¦³§ì¦P¤@¸ê®Æ§¨¤ºªº.xlsxÀɮפèªk´N¥i¦n¤F,§Ú´N¤£¥Î±NÀɮתº¬¡­¶Ã¯¶ë¨ì¦P¤@­Ó.xlsxÀɸÌ,§Úªº¨C­ÓÀÉ¥u¦³¤@­Ó¬¡­¶Ã¯

201407-12_error.zip (929.88 KB)
§V¤O¾Ç²ß

¸g´ú¸Õ  Application.Transpose

¥i¯à¬O bug ©Î ¦³­­¨î°}¦C¼Æ¶q

¥H¤U½d¨Ò

ReDim a(1 To 11, 0 To 495)    ' ------- ok
g = Application.Transpose(a)

ReDim a(1 To 11, 0 To 496)  ' ------ err msg «¬ºA¤£²Å
g = Application.Transpose(a)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-26 15:06 ½s¿è

¦^´_ 1# hasrhgni
Application.Transpose ,°}¦Cªº¤¸¯À¦r¤¸¼Æ¤j©ó255 ­Ó¦r¤¸,·|¦³¿ù»~
  1. Option Explicit
  2. Sub Ex()
  3. Dim Ar(), i%, C$, A As Range, XX As Integer, Msg As Boolean
  4. Dim S As Integer
  5.     With Sheets(1) '²Ä¤@±i¤u§@ªí
  6.         C = "¨­¤ÀÃҩβΤ@ÃÒ¸¹" '­n¿z¿ïªº­È
  7.         For i = 2 To Sheets.Count '±q²Ä2±i¤u§@ªí¶}©l¦^°é
  8.             With Sheets(i)
  9.                 For Each A In .UsedRange.Columns(1).Cells 'AÄæ¤w¨Ï¥ÎÀx¦s®æ°µ°j°é
  10.                     If A = C Then '¦pªG»P­n¿z¿ïªº­È¬Û¦P
  11.                         ReDim Preserve Ar(S)
  12.                         '****  °£¿ùµ{¦¡  §ä¥XÄæ¼e­­¨î¦b 255 ­Ó¦r¤¸¥H¥~ªºÀx¦s®æ ********
  13.                         Msg = False
  14.                         For XX = 1 To 11
  15.                             ' Äæ¼e­­¨î¦b 255 ­Ó¦r¤¸¥H¤º
  16.                             If Len(A(2, XX)) > 255 Then
  17.                                 Sheets(i).Activate
  18.                                 A.Select
  19.                                 Debug.Print Sheets(i).Name & " ¤u§@ªí [" & A.Address & "]"
  20.                                 Debug.Print A(2, XX)
  21.                                 Debug.Print "¦r¤¸:" & Len(A(2, XX))
  22.                                 Msg = True
  23.                             End If
  24.                         Next
  25.                         If Msg Then
  26.                             Debug.Print
  27.                             Application.VBE.Windows("§Y®É¹Bºâ").Visible = True
  28.                             Stop
  29.                         Else
  30.                             Application.VBE.Windows("§Y®É¹Bºâ").Visible = False
  31.                         End If
  32.                         '************  °£¿ùµ²§ô  ****************************************
  33.                         Ar(S) = A.Offset(1).Resize(, 11) '±N¸Ó¦CA:JÄæ¼g¤J°}¦C
  34.                         S = S + 1
  35.                     End If
  36.                 Next
  37.             End With
  38.         Next
  39.         .[A4].CurrentRegion.Offset(1).ClearContents '²M°£Â¦³¸ê®Æ
  40.         If S > 0 Then .[A5].Resize(S, 11) = Application.Transpose(Application.Transpose(Ar)) '­Y¦³²Å¦X¶µ¥Ø«h¼g¤J¤u§@ªí1ªºA7¥H¤U¦ì¸m
  41.     End With
  42. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¸g´ú¸Õ  Application.Transpose

¥i¯à¬O bug ©Î ¦³­­¨î°}¦C¼Æ¶q

¥H¤U½d¨Ò

ReDim a(1 To 11, 0 To  ...
bobomi µoªí©ó 2014-12-26 07:45


³o­Ó°ÝÃD
Excel 2000  -->  ·|¥X²{¿ù»~°T®§
Excel 2014  -->  ¤£·|¥X²{¿ù»~°T®§

TOP

·PÁ ª©¥DGBKEE ªºÅçµýµ{¦¡,´À§Ú¸Ñ¨M°ÝÃD
·PÁ bobomi ªº¼ö¤ß¦^ÂÐ,ÁÂÁÂ
§V¤O¾Ç²ß

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD