[µo°Ý] ¨C100­Ó¤À¦æ

dou10801

¨C100­Ó¤À¦æ,¬°¦ó²Ä¤­¦æ·|®ø¥¢,½Ð«e½ú«üÂI,ÁÂÁÂ.

Andy2483

¦^´_ 2# dou10801


    ¦A¦¸ÁÂÁ«e½úµoªí¦¹¥DÃD
§Æ±æ«á¾Çªº¾Ç²ß¤ß±o¯à¹ï«e½ú¦³©ÒÀ°§U
«á¾Ç¤µ¤Ñ½Æ²ßµù¸Ñ¤F¤@¤U,¤è«K¤é«á¦A½Æ²ß,¤]½Ð«e½ú°Ñ¦Ò

Option Explicit
Sub ³]°}¦C¦¬¶°¸ê®Æ«á¦A¼g¤JÀx¦s®æ()
Dim i&, K&, R&, MS1$
'¡ô«Å§iÅܼÆ:(i,K,R)¬Oªø¾ã¼ÆÅܼÆ,MS1¬O¦r¦êÅܼÆ
[F:F].ClearContents
'¡ô¥OFÄæ²M°£Àx¦s®æ¸Ìªº¤º®e
R = Cells(Rows.Count, 1).End(3).Row
'¡ô¥O³oªø¾ã¼ÆÅܼƬO AÄæ³Ì«á¤@­Ó¦³¤º®eÀx¦s®æªº¦C¸¹
ReDim Arr(1 To (R - 1) \ 100 + 1, 1 To 1)
'¡ô«Å§iArr¬O¤Gºû°}¦C,°}¦C¤j¤p:Áa¦V±q1¨ì((RÅܼÆ-1)°£100«á¨ú¾ã¼Æ¦A+1)¦C
'¾î¦V±q1¨ì1Äæ
For i = 2 To R
'¡ô³]¶¶°j°é!i±q2¨ìRÅܼÆ
   MS1 = IIf((i - 1) Mod 100 = 0, "", MS1)
   '¡ô¥OMS1³o¦r¦êÅܼƬO IIF()¦^¶Ç­È
   '¦pªG(i°j°é¼Æ-1)°£100ªº¾l¼Æ¬O 0,´N¦^¶Ç ªÅ¦r¤¸
   '§_«h¦^¶Ç MS1ÅܼƦۨ­­È
   K = (i - 1) \ 100 + 1
   '¡ô¥OK³oªø¾ã¼ÆÅܼƬO (i°j°é¼Æ-1)°£100«á¨ú¾ã¼Æ¦A+1
   MS1 = MS1 & """" & Cells(i, 1) & """" & ","
   '¡ô¥OMS1ÅܼƬO ¦Û¨­­È³s±µ ¨â­ÓÂù¤Þ¸¹¦r¤¸,±µµÛ³s±µi°j°é¦CAÄæÀx¦s®æ­È,
   '¦A³s±µ ¨â­ÓÂù¤Þ¸¹¦r¤¸,³Ì«á³s±µ ³r¸¹©Ò²Õ¦¨ªº·s¦r¦ê
   Arr(K, 1) = MS1 & "  -"
   '¡ô¥OKÅܼƦC²Ä1ÄæArr°}¦C­È¬O MS1ÅܼƳs±µ "  -" ¦r¦ê²Õ¦¨ªº·s¦r¦ê
Next
[F1].Resize(UBound(Arr), 1) = Arr
'¡ô¥O[F1]ÂX®i¦V¤UArrÁa¦V³Ì¤j¯Á¤Þ¦C¸¹¦C¼Æ,¦V¥k¤£ÂX®iªº½d³ò­È¥HArr°}¦C­È±a¤J
End Sub

hcm19522

https://blog.xuite.net/hcm19522/twblog/590708468

Andy2483

¦^´_ 2# dou10801


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
«á¾Ç«Øij¤è®×¦p¤U:

Option Explicit
Sub ³]°}¦C¦¬¶°¸ê®Æ«á¦A¼g¤JÀx¦s®æ()
Dim i&, K&, MS1$, R&
[F:F].ClearContents
R = Cells(Rows.Count, 1).End(3).Row
ReDim Arr(1 To (R - 1) \ 100 + 1, 1 To 1)
For i = 2 To R
   MS1 = IIf((i - 1) Mod 100 = 0, "", MS1)
   K = (i - 1) \ 100 + 1
   MS1 = MS1 & """" & Cells(i, 1) & """" & ","
   Arr(K, 1) = MS1 & "  -"
Next
[F1].Resize(UBound(Arr), 1) = Arr
End Sub

dou10801

¦^´_ 1# dou10801 ©êºp,§ó¥¿ÀÉ®×.[¨C100­Ó¤À¦æ,¬°¦ó²Ä¤­¦æ·|®ø¥¢,½Ð«e½ú«üÂI,ÁÂÁÂ.]