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

[µo°Ý] ¦p¦ó±N¥X³f¼Æ¶q¼Æ¦r.±a¨ì¥t­Ó¤u§@ªí«á¦Û°Ê²£¥Í¬y¤ô½s¸¹

¦^´_ 1# PD961A
  1. Sub Ex()
  2.     Dim i%
  3.     With Sheets("½s¸¹")
  4.         For i = 1 To .[h2] - 1
  5.             .[A2:G2].Offset(i) = .[A2:G2].Value
  6.             .[A2:G2].Offset(i).Cells(4) = Mid(.[d2], 1, 11) & Format(i + 1, "0000000")
  7.         Next
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 10# PD961A
  1. Sub Ex()
  2.     Dim Rng As Range, N%
  3.     Set Rng = Sheet2.Range("A1").CurrentRegion
  4.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  5.     N = 1
  6.     For i = 2 To Rng.Rows.Count
  7.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  8.             With Sheet1.Range("A1").CurrentRegion.Rows(N + 1)
  9.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  10.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(N, "0000000")
  11.                 N = N + 1
  12.             End With
  13.         Next
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

¦^´_ 13# PD961A
½Ðªþ¤W ±ø½X¾÷µ{¦¡ ¸Õ¸Õ¬Ý

TOP

¦^´_ 15# PD961A
  1. Sub Ex()
  2.    '¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
  3.   Dim Rng As Range, N%, F As Range, No%
  4.    Dim Sh As Worksheet
  5.     Set Sh = Sheet2
  6.     Set Rng = Sh.Range("A1").CurrentRegion
  7.     Sheet1.Range("A1").CurrentRegion.Offset(1) = ""
  8.     N = 2
  9.     For i = 2 To Rng.Rows.Count
  10.         For II = 1 To Rng.Rows(i).Cells(Rng.Columns.Count)
  11.             ''''''''''''''''''''''''''''''''''''''''''''''''''''
  12.             Set F = Sh.Range("IU:IU").Find(Rng.Rows(i).Cells(5).Value)
  13.             If Not F Is Nothing Then No = F(1, 2) + 1 Else No = 1
  14.            '''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  15.             With Sheet1.Range("A1").CurrentRegion.Rows(N)
  16.                 .Value = Rng.Rows(i).Resize(, Rng.Columns.Count - 1).Value
  17.                 .Cells(4) = Rng.Rows(i).Cells(4) & Format(No, "0000000")
  18.                 N = N + 1
  19.                 No = No + 1
  20.             End With
  21.             ''''''''''''''''''''''''''''''''''
  22.             If Not F Is Nothing Then
  23.                 F(1, 2) = No - 1
  24.             Else
  25.                 With Sh.Range("IU65536").End(xlUp)
  26.                     .Offset(1) = Rng.Rows(i).Cells(5).Text
  27.                     .Offset(1, 1) = No - 1
  28.                 End With
  29.             End If
  30.             '''''''''''''''''''''''''''''''''''''''''
  31.         Next
  32.     Next
  33. End Sub
½Æ»s¥N½X

TOP

    '¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
³o¦æ«ü¥O­n¦bSheet2ªºIUÄæ¥[¤W¤é´Á?½Ð°Ý ...
PD961A µoªí©ó 2010-9-30 08:43

³o¦æ¤£¬O«ü¥O ¬Oµù¸Ñ «e­±¦³¥[¤W'  µù¸Ñ²Å¸¹
µ{¦¡¸Ì¦³¨â¬qµù¸Ñ¤¤ªºµ{¦¡½X ´N¬O¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
°õ¦æ¬Ý¬Ý´Nª¾¹D

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-9-30 17:05 ½s¿è
µ{¦¡¸Ì¦³¨â¬qµù¸Ñ¤¤ªºµ{¦¡½X ´N¬O¦bSheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U
°õ¦æ¬Ý¬Ý´Nª¾¹DGBKEE µoªí©ó 2010-9-30 13:00


§Ú¬O§i¶D§A µ{¦¡¦b Sheet2ªºIUÄæ¥[¤W¤é´Á¬ö¿ý»²§U  ½Ð°õ¦æµ{¦¡«á¨ìIUÄæ¬Ý¬Ý

½Ð§A¤£¥Î¨ì"½s¸¹"¨º­Ó¤u§@ªíªºIU1Ä楴¤J¤é´Á

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD