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

[µo°Ý] ±N¸ê®Æ¦Û°Ê¤ÀÃþ¥\¯à

[µo°Ý] ±N¸ê®Æ¦Û°Ê¤ÀÃþ¥\¯à

¦U¦ì¤j¤j¦n
·Q½Ð°Ý¤@°O±b¥\¯à¡A»Ý¨D¦p¤U

¤u§@ªí1¡G¬O¿é¤J°Ï     ¦³---¤é´Á         ¶µ¥Ø  ª÷ÃB     ¤H­û    Ãþ§O
                                      ¨Ò¡G102/8/5    ÀY´Ú   5000   ¤p¤ý    ¼t°Ó
                                              102/8/7    ³f´Ú   2000   ¦Ñ§õ    ¤½¥q
                                              102/8/9    ¥X®t   1000   ¤pªL    ­û¤u

¤u§@ªí2¡G¬O¾ú¥v°O¿ý¡A¨C¤Ñªº¤u§@ªí1ªº¤º®e¡A­n§¹¾ã½Æ»s¨ì¤u§@ªí2¦s°_¨Ó
                  ¦Ó¥B¤£¯à»\±¼¤§«eªº¬ö¿ý¡C(¥i¥Hªº¸Ü¡A¨C¤Ñ¸ê®Æ¤§¶¡¯d¨â¦CªÅ¥Õ)

¤u§@ªí3(§t¥H«á)¡A¬O¦UÃþ§O¶µ¥Ø³æ

¦p¡G
¤u§@ªí3(¼t°ÓÃþ)¡A¥i©ñ¤J10µ§¸ê®Æ¡A¦p¶W¹L10µ§¡A«h»Ý·s¶}¥t¤@¤u§@ªí(¼t°ÓÃþ2)
                                 ¦Û°Ê§â¤u§@ªí1¤¤¡AÃþ§O¬°¡u¼t°Ó¡vªº¸ê®Æ¡A½Æ»s¨ì¤u§@ªí3
                                 ¨Ò¡G102/8/5    ÀY´Ú   5000   ¤p¤ý    ¼t°Ó

¤u§@ªí4(¤½¥qÃþ)¡C»Ý¨D¦P¤u§@ªí3¡C¦Û°Ê§â¤u§@ªí1¤¤¡AÃþ§O¬°¡u¤½¥q¡vªº¸ê®Æ¡A½Æ»s¨ì¤u§@ªí4

¤u§@ªí5(­û¤uÃþ)¡C»Ý¨D¦P¤u§@ªí3¡C¦Û°Ê§â¤u§@ªí1¤¤¡AÃþ§O¬°¡u­û¤u¡vªº¸ê®Æ¡A½Æ»s¨ì¤u§@ªí5

<¤u§@ªí3~5¥u¦³¨C¤Ñ¨Ï¥Î¡A¦C¦L«á´N¥i¥H¤F¡A¥i²MªÅ¸ê®Æ>



¦]¬°¥Ø«e¤u§@ªí1,2³£¬O¤â°Ê¿é¤J¡C¤u§@ªí3~5¡A­n¨C­Ó¸ê®Æ±q¤u§@ªí1¤¤¡A¤H¤u¤ÀÃþ½Æ»s¶K¨ì¦U¤u§@ªí¥h
¦pªG¦³¤j¤jª¾¹D«ç»ò³]©w¡A©Î¨Ï¥Î«ö¶sÅýµ{¦¡¦Û¤v¶]
±N¥i¸`¬Ù«Ü¦h®É¶¡
½Ð¦U¦ì«ü¾É¡A·PÁÂ!
«¢Åo~¤j®a¦n§r

§Ú·Q©Ò»Ý¥\¯à¤j·§¤À¨â³¡¤À
¤@¬O¦b¤u§@ªí2¥Ñ¤W¦Ó¤U§ä¨ìªÅ¥Õ¥i¥Î³B¡A¦A§â¤u§@ªí1ªº¸ê®Æ½Æ»s¹L¨Ó
¤G¬O¥h§PÂ_Ãþ§O¡A¦A±N¸ê®Æ½Æ»s¨ì¦U¤u§@ªí

­º¥ý¥Ñ¤W¦Ó¤U§ä¨ìªÅ¥Õ§Ú¼g¤£¤Ó¥X¨Ó
¤@ª½»¡¦³¿ù
Private Sub CommandButton1_Click()
Dim i As Integer
i = 1

Do
      If Worksheets("¤u§@ªí2").Range(Cells(i, 1), Cells(i, 7)) = "" Then
      MsgBox (i)                 'Åã¥Ü²Äi¦æ¬O§¹¥þªÅ¥Õ¡Aªí¥Ü¥i¥Î
      Exit Do
      End If
i = i + 1
Loop

End Sub

§Ú·Q°µ¨ì³v¦C´M§ä(¥Îi¨Ó°µ)
µM«á¤@­Ó½d³ò¤º³£¬OªÅ¥Õ¡A»yªk¤£·|¼g¡Arange()±q²Äi¦Cªº²Ä1Äæ¨ì²Ä7Äæ³£ªÅ¥Õ´Nªí¥Ü¤w¸g¨ì©³
­Y¨ä¤¤¤@Äæ«DªÅ¥Õ¡A´Ni=i+1Ä~Äò§ä¤U¥h

¥i¬O¹J¨ì²~ÀV¤F
§Æ±æ¦³¤j¤j¯à¸Ñµª
ÁÂÁÂ
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 2# iceandy6150
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer, Sh As Worksheet
  4.     Application.DisplayAlerts = False
  5.     For Each Sh In Sheets
  6.         If Sh.Name <> "¤u§@ªí1" And Sh.Name <> "¤u§@ªí2" Then Sh.Delete
  7.         '¬¡­¶Ã¯¥u¯d ¤u§@ªí1¡G¬O¿é¤J°Ï,¤u§@ªí2¡G¬O¾ú¥v°O¿ý
  8.     Next
  9.     With Sheets("¤u§@ªí2")
  10.         If .UsedRange.Rows.Count = 1 Then               '¨S¦³¾ú¥v¬ö¿ý
  11.             Sheets("¤u§@ªí1").UsedRange.Copy            '½Æ»s(§t¼ÐÀY)
  12.             .Range("a1").PasteSpecial xlPasteValues
  13.         Else
  14.             Sheets("¤u§@ªí1").UsedRange.Offset(1).Copy  '½Æ»s(¤£§t¼ÐÀY)
  15.             .Range("A" & .UsedRange.Rows.Count).Offset(3).PasteSpecial xlPasteValues
  16.             'Offset(3) :ªÅ2¦C->²Ä3¦C¶K¤W
  17.         End If
  18.         .UsedRange.Range("E:E").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True
  19.         '¶i¶¥¿z¿ï EÄæ ¤£­«½Æ¸ê®Æ¨ì¤u§@ªí³Ì¥kÄæ ***¨ú±oÃþ§Oªº¤ÀÃþ***
  20.         i = 2
  21.         .Cells(1, .Columns.Count - 1) = .UsedRange.Range("E1")    '¶i¶¥¿z¿ïªºÄæ¦ì¦WºÙ¬OEÄ檺¼ÐÀY
  22.         Do While .Cells(i, .Columns.Count) <> ""                  '¤u§@ªí³Ì¥kÄ檺Àx¦s®æ <>""
  23.             Set Sh = Sheets.Add(, Sheets(Sheets.Count))           '·s¼WªºÃþ§O¤u§@ªí
  24.             Sh.Name = .Cells(i, .Columns.Count)
  25.             .Cells(2, .Columns.Count - 1) = Sh.Name
  26.            .UsedRange.AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count - 1).Resize(2), Sh.[a1], True
  27.            '¤u§@ªí2 ¶i¶¥¿z¿ï ·Ç«h[¤ÀÃþ]="¤u§@ªí1"³Ì¥kÄ檺Àx¦s®æ, ½Æ»s¨ì·s¼WªºÃþ§O¤u§@ªí[A1]
  28.            Do While Sh.UsedRange.Rows.Count > 11                  '¸ê®Æ¦C>11¦C
  29.                 Sh.Copy , Sheets(Sh.Index)                        '1 ­ì¤u§@ªí½Æ»s
  30.                 Sh.Rows("11:" & Sh.Rows.Count).Delete             '2 ­ì¤u§@ªí§R°£11¦C¥H¤Uªº¸ê®Æ(«O«ù10¦C)
  31.                 Set Sh = ActiveSheet                              '3 ½Æ»sªº¤u§@ªí «ü©wµ¹ÅܼÆ
  32.                 Sh.Rows("2:11").Delete                            '4 ½Æ»sªº¤u§@ªí§R°£2:11¦Cªº¸ê®Æ
  33.            Loop
  34.            i = i + 1
  35.         Loop
  36.         .Cells(1, .Columns.Count).CurrentRegion = ""
  37.     End With
  38. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE


    ·PÁÂGBKEE¤j¤jªº¦^ÂСA¥\¯à¥¿±`¡A°£¤F¤@¨Ç¤p°ÝÃD

1¡GOption Explicit µ{¦¡¸ò§Ú»¡¦³°ÝÃD¡A¥[¤W'·í¦¨µù¸Ñ«á¡A¹B§@¥¿±`

2¡G§Úªº»Ý¨D¦³ÂI¤p¥X¤J
      (1)§Ú¨ä¥Lªº¤u§@ªí(3~5)¦]¬°¦³µe¦nªí®æ(³æ¤l)¡A©Ò¥H¤£¯à§R°£
           ¥u¯à§â¤u§@ªí1ªº¸ê®Æ½Æ»s¡B¶K¶i¥h
          (¨C±iªí®æ¥u¯à¶ñ10µ§¸ê®Æ¡A©Ò¥H¶W¹L10µ§¤~­n¥t¶}·sªí¡A­ì¦]¦b¦¹)

           §Ú·Q¬O¤£¬O§â¤U¦Cµ{¦¡§R°£?
           For Each Sh In Sheets
            If Sh.Name <> "¤u§@ªí1" And Sh.Name <> "¤u§@ªí2" Then Sh.Delete
            '¬¡­¶Ã¯¥u¯d ¤u§@ªí1¡G¬O¿é¤J°Ï,¤u§@ªí2¡G¬O¾ú¥v°O¿ý
            Next

             §ï¦¨¡A§â¤u§@ªí3~5¸Ì­±ªºÂ¸ê®Æ²MªÅ¡A¨Ò¦pA5~E14=""
  
        (2)¦b¬D¿ïÃþ§Oªº®É­Ô¡A¨Ò¦p¦³¦n´Xµ§
            ²Ä1µ§¡A ¦pªG¬O­û¤uÃþ¡A´N©ñ¨ì"­û¤u"¤u§@ªí¡AA5~E5  (³æ¤l²Ä1µ§)
            ²Ä2µ§¡A ¦pªG¬O­û¤uÃþ¡A´N©ñ¨ì"­û¤u"¤u§@ªí¡AA6~E6 (³æ¤l²Ä2µ§)
            ²Ä3µ§¡A ¦pªG¬O­û¤uÃþ¡A´N©ñ¨ì"­û¤u"¤u§@ªí¡AA7~E7  (³æ¤l²Ä3µ§)
            ²Ä4µ§¡A ¦pªG¬O¤½¥qÃþ¡A´N©ñ¨ì"¤½¥q"¤u§@ªí¡AA5~E5  (³æ¤l²Ä1µ§)
            ²Ä5µ§¡A ¦pªG¬O¼t°ÓÃþ¡A´N©ñ¨ì"¼t°Ó"¤u§@ªí¡AA5~E5  (³æ¤l²Ä1µ§)
            ²Ä6µ§¡A ¦pªG¬O¤½¥qÃþ¡A´N©ñ¨ì"¤½¥q"¤u§@ªí¡AA6~E6  (³æ¤l²Ä2µ§)
            ²Ä7µ§¡A ¦pªG¬O¤½¥qÃþ¡A´N©ñ¨ì"¤½¥q"¤u§@ªí¡AA7~E7  (³æ¤l²Ä3µ§)
            ¥H¦¹Ãþ±À¡A

            ¦Ü©ó¶W¹L10µ§´N¶}·s¤u§@ªí³¡¤À¡A¥\¯à§¡¥¿±`¡A§Ú¦Aµy·L­×§ï§Y¥i

¥H¤W¡A·PÁÂ
«¢Åo~¤j®a¦n§r

TOP

  1. Private Sub CommandButton1_Click()
  2. 'Option Explicit    (§R°£)

  3. 'Sub Ex()   (§R°£)

  4.     Dim i As Integer, Sh As Worksheet

  5.     Application.DisplayAlerts = False

  6.     For Each Sh In Sheets

  7.         If Sh.Name <> "¤u§@ªí1" And Sh.Name <> "¤u§@ªí2" Then      'Sh.Delete   (§â§R±¼¤u§@ªíªº°Ê§@¨ú®ø)

  8.         '¬¡­¶Ã¯¥u¯d ¤u§@ªí1¡G¬O¿é¤J°Ï,¤u§@ªí2¡G¬O¾ú¥v°O¿ý
  9.         
  10.         Sh.Range("A2:E11").Value = ""     '(¦Û¤v¥[¤W²M°£¨ä¾l¤u§@ªí¤¤¡A¯S©w½d³ò²MªÅ¸ê®Æªº¥\¯à)
  11.             
  12.         End If

  13.     Next

  14.    
  15.     With Sheets("¤u§@ªí2")

  16.         If .UsedRange.Rows.Count = 1 Then               '¨S¦³¾ú¥v¬ö¿ý

  17.             Sheets("¤u§@ªí1").UsedRange.Copy            '½Æ»s(§t¼ÐÀY)

  18.             .Range("a1").PasteSpecial xlPasteValues

  19.         Else

  20.             Sheets("¤u§@ªí1").UsedRange.Offset(1).Copy  '½Æ»s(¤£§t¼ÐÀY)

  21.             .Range("A" & .UsedRange.Rows.Count).Offset(3).PasteSpecial xlPasteValues

  22.             'Offset(3) :ªÅ2¦C->²Ä3¦C¶K¤W

  23.         End If

  24.         .UsedRange.Range("E:E").AdvancedFilter xlFilterCopy, , .Cells(1, .Columns.Count), True

  25.         '¶i¶¥¿z¿ï EÄæ ¤£­«½Æ¸ê®Æ¨ì¤u§@ªí³Ì¥kÄæ ***¨ú±oÃþ§Oªº¤ÀÃþ***

  26.         i = 2

  27.         .Cells(1, .Columns.Count - 1) = .UsedRange.Range("E1")    '¶i¶¥¿z¿ïªºÄæ¦ì¦WºÙ¬OEÄ檺¼ÐÀY

  28.         Do While .Cells(i, .Columns.Count) <> ""                  '¤u§@ªí³Ì¥kÄ檺Àx¦s®æ <>""

  29.             'Set Sh = Sheets.Add(, Sheets(Sheets.Count))           '·s¼WªºÃþ§O¤u§@ªí     (³oÃ䤣·s¼W¤u§@ªí¡A¬G§R°£)

  30.             'Sh.Name = .Cells(i, .Columns.Count)                           ' (³oÃ䤣·s¼W¤u§@ªí¡A¬G§R°£)

  31.             '.Cells(2, .Columns.Count - 1) = Sh.Name                   ' (³oÃ䤣·s¼W¤u§@ªí¡A¬G§R°£)

  32. '³oÃäÀ³¸Ó­n¥[¤J¡A§PÂ_¬°­þ¤@Ãþ§O¡A¨Ã§â¸Ó¦C¸ê®Æ½Æ»s¨ì¨º­ÓÃþ§Oªº¤u§@ªí¥h¡A¦ý§Ú¤£·|¼g¡A¬O¤U­±³o¦æ?

  33.            .UsedRange.AdvancedFilter xlFilterCopy, .Cells(1, .Columns.Count - 1).Resize(2), Sh.[a1], True    '¥ªÃä³o¦æ°£¿ù»¡¨S¦³WITH¡A¦ý©ú©ú´N¦³¡A¦n©Ç

  34.            '¤u§@ªí2 ¶i¶¥¿z¿ï ·Ç«h[¤ÀÃþ]="¤u§@ªí1"³Ì¥kÄ檺Àx¦s®æ, ½Æ»s¨ì·s¼WªºÃþ§O¤u§@ªí[A1]

  35.            Do While Sh.UsedRange.Rows.Count > 11                  '¸ê®Æ¦C>11¦C

  36.                 Sh.Copy , Sheets(Sh.Index)                        '1 ­ì¤u§@ªí½Æ»s

  37.                 Sh.Rows("11:" & Sh.Rows.Count).Delete             '2 ­ì¤u§@ªí§R°£11¦C¥H¤Uªº¸ê®Æ(«O«ù10¦C)

  38.                 Set Sh = ActiveSheet                              '3 ½Æ»sªº¤u§@ªí «ü©wµ¹ÅܼÆ

  39.                 Sh.Rows("2:11").Delete                            '4 ½Æ»sªº¤u§@ªí§R°£2:11¦Cªº¸ê®Æ

  40.            Loop

  41.            i = i + 1

  42.         Loop

  43.         .Cells(1, .Columns.Count).CurrentRegion = ""

  44.     End With

  45. 'End Sub  (­ì¥»ªº¡A§R°£)
  46. End Sub
½Æ»s¥N½X
¦^´_ 4# iceandy6150

§Ú­×§ï¤F¤@¤U¤j¤jªºµ{¦¡
¥i¬O¥d¦í¤£¯à¹B§@¤F
«¢Åo~¤j®a¦n§r

TOP

¦^´_ 5# iceandy6150


    ¤wªþ¥[ÀÉ®×
     ¤u§@ªí1¦pªG«ö¶s¤£¤p¤ß«ö¨ì¨â¦¸
     ·|½Æ»s¨â¦¸¨ì¤u§@ªí2
     ¨ä¾l¤u§@ªíªºªí®æ§Ú²¤Æ¹L¡A¸ò¥¿¥»®t¤@¨Ç¦Ó¤w
      ÁÂÁÂ

Book1.rar (24.45 KB)

´ú¸ÕÀÉ

«¢Åo~¤j®a¦n§r

TOP

¸É¥R¤@¤U¡A¹ê»Ú¤WÃþ§O¤£¤î¤TºØ¡A¥i¯à°ª¹F¤Q¦hºØ¡A§Ú½d¨Ò¬OÁ|¤T¨Ò
¥t¥~¨C¤@Ãþ§Oªº¤u§@ªí§Ú¥i¥H¤â°Ê«Ø¥ß
¸U¤@«á­±¤S­n¦A¦h·sªºÃþ§O¡A§Ú¤]¥i¥HºCºC¼W¥[

­n·j´MÃþ§O¡A§Ú¬O·Q¨ì¨âºØ¤è¦¡
1.¬O¥ÎCASE¡A§â·|¥Î¨ìªº³£¥ý¤º«Ø¡A¦A§â¦UÃþ½s¸¹
    IF ¤u§@ªí1.Ãþ§O.cells().value = "¤½¥q" then k=1
    IF ¤u§@ªí1.Ãþ§O.cells().value = "­û¤u" then k=2
    ¥H¦¹Ãþ±À
   µM«áCASE(K)°µ§PÂ_  ¥h°µ½Æ»s¡B¶K¹L¥hªº°Ê§@

2.³]¤@ÅܼÆA = ¤u§@ªí1ªº²Äiµ§¸ê®ÆªºÃþ§Oªº­È  (¨Ò¦p¬O¤½¥q)
   ¦A³v¤@§ä¤u§@ªíªº¦WºÙ¡A¬Ý¬O§_»PA¤@¼Ë¡A­Y¤@¼Ë«h¥h°µ½Æ»s¡B¶K¹L¥hªº°Ê§@
For Each Sh In Sheets
        If Sh.Name = A then  °µ½Æ»s¡B¶K¹L¥hªº°Ê§@
        end if
next

¤£¾å±o³o¼Ë¦æ¤£¦æ±o³q?
ÁÂÁÂ
«¢Åo~¤j®a¦n§r

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-1 10:00 ½s¿è

¦^´_ 7# iceandy6150

¸Õ¸Õ¬Ý

Ex.rar (14.91 KB)

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE

GBKEEª©¤j±z¦n

¸Õ¤F¤@¤U±zªºÀɮ׫á¡A°ÝÃD¦p¤U

¤@¡B    With Sheets("¤u§@ªí2")
        If .UsedRange.Rows.Count = 1 Then              '¨S¦³¾ú¥v¬ö¿ý
        ³o¤@¦æµL½×¦³¨S¦³¸ê®Æ³£µLªk°õ¦æ¡A´Nª½±µ¸õELSE¨º¤@¶ô¤F
        ©Ò¥H§Ú§ï¦¨
        If .Cells(1, 1).Value = "" Then       ¥\¯à¬Û¦P

¤G¡B¿z¿ï¤Î«Ø¥ßÃþ§O¤u§@µ¥¤u§@¡A©Ò¥Î¨ìªº¸ê®ÆÀ³¸Ó¬O¿é¤J°Ï(¤u§@ªí1)ªº¸ê®Æ
       ©Ò¥H§Ú¦h¥[¤Fend with
      ¦A¦h¥[ With Sheets("¤u§@ªí1")¡AÅý¿z¿ï¤Î«Ø¥ßÃþ§O¤u§@µ¥¤u§@¥¿±`¹B§@

¤T¡B    Else
            Sheets("¤u§@ªí1").UsedRange.Offset(1).Copy  '½Æ»s(¤£§t¼ÐÀY)
            .Range("A" & .UsedRange.Rows.Count).Offset(3).PasteSpecial xlPasteValues
            'Offset(3) :ªÅ2¦C->²Ä3¦C¶K¤W
            
             ³oÃ䪺 .Range("A" & .UsedRange.Rows.Count)¦Ñ¬O·|ºâ¿ù
            ÄY®æ¨Ó»¡¬O.UsedRange.Rows.Count·|¥X¿ù
            §Ú¯S¦a¥[¨â¦æµ{¦¡¡AÅã¥Ü¤@¤U¨ì©³ºâ¥X´X¦C¨Ó
            k = Sheets("¤u§@ªí2").UsedRange.Rows.Count
           MsgBox (k)
           µ²ªG¤u§@ªí2¥u¦³7¦C¡Aµ{¦¡¶]¥X¡G¤w¨Ï¥Î26¦C

           §Ú¤£¦º¤ß¡A©ó¬O¦b¤u§@ªí2§Ë¤F¤@­Ó«ö¶s
           ¤@¼Ëªºµ{¦¡¶]¬Ý¬Ý¤w¨Ï¥Îªº¦C¼Æ¡A¨q¥X¨Ó
           ÁÙ¬O¤@¼Ë¤w¨Ï¥Î26¡A©ú©ú³£¬OªÅ¥Õ¡A§Ú¤£ª¾¹D¬°¤°»ò
           ¦ý¬O®³¨Óºâ¤u§@ªí1´N«Ü¥¿½T

§Ú¤W¶Ç§Ú­×§ï«áªºÀÉ®×
¥Ø«eª¬ºA¬O¡A¤u§@ªí1¤w¸g¿é¤J¤@¦¸¸ê®Æ¡A«ö¤F¤@¦¸«ö¶s
©Ò¥H²£¥Í¤F¸Ó²£¥Íªº¨ä¥LÃþ§O¤u§@ªí
¤]§â¤u§@ªí1¸Ó½Æ»sªº¸ê®Æ¡A³£¶K¨ì¤u§@ªí2¤F

¤u§@ªí1¸Ì­±¡A¬O¿é¤J¦n²Ä2¦¸ªº¸ê®Æ¡A¦ýÁÙ¨S«ö«ö¶s
(¦]¬°¶Kªº°Ê§@·|¿ù<.UsedRange.Rows.Count·|¥X¿ù>)

¦A³Â·ÐÀ°§Ú¬Ý¬Ý°ÝÃD¥X¦b­þ¸Ì
ÁÂÁÂ

ttt.rar (18.02 KB)

«¢Åo~¤j®a¦n§r

TOP

¦^´_ 9# iceandy6150
½Ð¬Ý¬Ý Sheets("¤u§@ªí2")³Ì¥kÃ䪺IVÄæ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD