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

[µo°Ý] ½Ð±ÐBY©T©w¦C§ì¨ú¸ê®Æ®w¸ê®Æ¤§¤è¦¡

[µo°Ý] ½Ð±ÐBY©T©w¦C§ì¨ú¸ê®Æ®w¸ê®Æ¤§¤è¦¡

DAER  ALL ¤j¤j
  ¦pªþÀÉ
  1. SHEET("2").RANGE("A2") = SHEET("2").RANGE("A2
     ") ¬°°ò·Ç
     1.1  SHEET("2").RANGE("A14") = SHEET("3").RANGE("A2
     ")
      SHEET("2").RANGE("A26") = SHEET("4").RANGE("A2
     ")
         SHEET("2").AÄæ ¨C12¦C¤§Àx¦s®æ§ì¨ú
            SHEET("").AÄæ  A2  A3 ..... ¤§­È
     ½Ð±Ð¦U¦ì¤j¤jµ{¦¡¦p¦ó®Ñ¼g   THANKS

B.JPG (109.62 KB)

B.JPG

A.rar (8.82 KB)

¼Ó¥D~ ¦]¬°§Ú¤£ª¾¹D©p¬O­nkey in sheet2¤¤ "A"Äæ¦ì¸ê®Æ«á¤~¥X²{"B"Äæ¦ìªº¸ê®Æ
      ÁÙ¬O»¡ª½±µ§âSHEET1¤¤"A"Äæ¦ì¸ê®Æ¤@µ§¤@µ§¨Ìsheet2ªºªí¥Ü¤è¦¡§e²{~
         ¤U­±¬O§Ú¨Ì³]¤@­Ó«öÁ䪺¤è¦¡~
         ª½±µ§âSHEET1¤¤"A"Äæ¦ì¸ê®Æ¤@µ§¤@µ§¨Ìsheet2ªºªí¥Ü¤è¦¡§e²{~
         ¦ý¬O°õ¦æ«á~ ¦]¼Ó¥Dsheet1¤¤²Ä148¦C¥H«áªº¸ê®Æ¬O¦³°ÝÃDªº~ ©Ò¥H~ µ{¦¡½X°õ¦æ«á·|²£¥Í¿ù»~

Private Sub CommandButton1_Click()
Do Until Sheet2.Range("A" & 2 + I) = ""

   Sheet1.Range("A" & 2 + N) = Sheet2.Range("A" & 2 + I)
   Sheet1.Range("B" & 2 + N) = "§÷®Æ¹w¦ô»Ý¨D¶q(a)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "MIS»Ý¨D(a')"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "®w¦s¶q(b)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "¦b³~¶q(c)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "±H°â®w(d)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "³Ì§C¦s¶q(e)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "µ²¦s(f)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "µ²¦sDOI"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "«Øij½ÐÁʶq(g)"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "¹w­p½ÐÁʶq"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "µ²¦s+¹w­p½ÐÁÊDOI"
   N = N + 1
   Sheet1.Range("B" & 2 + N) = "³Æµù(§ó·s¤é)"
   N = N + 1

I = I + 1
Loop
End Sub
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

¦^´_ 1# KITTYBOY
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim i%, ii%
  3.     ii = 2
  4.     With Sheets("2")
  5.         For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row Step 12
  6.             .Cells(i, "A") = Sheets("1").Cells(ii, "A")
  7.              ii = ii + 1
  8.         Next
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

DEAR  ALL ¤j¤j
   ·PÁ±z­Ì¤§«ü¾É²Å¦X¤p§Ì»Ý¨D  THANKS  ROBERT 05/26

TOP

        ÀR«ä¦Û¦b : ­×¦æ­nô½t­×¤ß¡AÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD