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

¦p¦ó³]©w½Æ»s°j°ésheet1½Æ»sÀx¦s®æ¦Üsheet2©T©w¦ì¸m????

¦p¦ó³]©w½Æ»s°j°ésheet1½Æ»sÀx¦s®æ¦Üsheet2©T©w¦ì¸m????

¥»©«³Ì«á¥Ñ poke0817 ©ó 2015-9-13 20:37 ½s¿è



¦p¹Ï¤@sheet1©Ò¥Ü:A2¤ÎB2¬O©Ò¦³»Ý»s°µ¼ÐÅÒªº²M³æ¡C
¦p¹Ï¤Gsheet2©Ò¥Ü:¤w¸g»s§@¦n¹ïÀ³Àx¦s®æ¡AA2(sheet1)»Ý¹ïÀ³¨ìB2(sheet2)¡AB2(sheet1)¹ïÀ³¨ìB3(sheet2)¡C

1¡B¦p¦ó³]©w°j°é±Nsheet1(A2/B2)²M³æ¨Ì§Çªº½Æ»s¦bsheet2(B2/B3)©T©w¦ì¸m¤W?
2¡Bsheet2¼ÐÅÒªº®æ¦¡¥H»s§@¦n¤F¡A­Y³]©w°j°é¥i¥Hª½±µ½Æ»s¶K¨ì¬Û¹ï¦ì¸m¡A¨º¦pªG§Ú¨S¦³§â»s§@®æ¦¡½Æ»s¦n¡A¥i¥H§Q¥Î°j°é½Æ»s¼ÐÅÒ¹j¦¡¶Ü?





°]²£¼ÐÅÒ»s§@.rar (17.81 KB)

¦^´_ 1# poke0817


  ¬O³o¼Ë¶Ü¡H
§Ú§â¼ÐÅҼ˦¡§ï¨ìSheet3¥HÀ³²Ä2­Ó°ÝÃD
  1. Public Sub ex()
  2. Dim rng As Range, r%, c%
  3. Sheet3.Range("a1:h" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row).Delete
  4. r = 1
  5. c = 1
  6. For i = 1 To 8 Step 2
  7.     Sheet3.Columns(i).ColumnWidth = 9.65
  8.     Sheet3.Columns(i + 1).ColumnWidth = 18.13
  9. Next
  10. For Each rng In Sheet1.Range("a2:a" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row)
  11.     With Sheet3
  12.         If c < 8 Then
  13.             With .Range(.Cells(r, c), .Cells(r + 2, c + 1))
  14.                 .HorizontalAlignment = xlCenter
  15.                 .VerticalAlignment = xlCenter
  16.                 .WrapText = False
  17.                 .Orientation = 0
  18.                 .AddIndent = False
  19.                 .IndentLevel = 0
  20.                 .ShrinkToFit = True
  21.                 .ReadingOrder = xlContext
  22.                 .Borders(xlDiagonalDown).LineStyle = xlNone
  23.                 .Borders(xlDiagonalUp).LineStyle = xlNone
  24.                 With .Borders(xlEdgeLeft)
  25.                     .LineStyle = xlContinuous
  26.                     .ColorIndex = xlAutomatic
  27.                     .TintAndShade = 0
  28.                     .Weight = xlMedium
  29.                 End With
  30.                 With .Borders(xlEdgeTop)
  31.                     .LineStyle = xlContinuous
  32.                     .ColorIndex = xlAutomatic
  33.                     .TintAndShade = 0
  34.                     .Weight = xlMedium
  35.                 End With
  36.                 With .Borders(xlEdgeBottom)
  37.                     .LineStyle = xlContinuous
  38.                     .ColorIndex = xlAutomatic
  39.                     .TintAndShade = 0
  40.                     .Weight = xlMedium
  41.                 End With
  42.                 With .Borders(xlEdgeRight)
  43.                     .LineStyle = xlContinuous
  44.                     .ColorIndex = xlAutomatic
  45.                     .TintAndShade = 0
  46.                     .Weight = xlMedium
  47.                 End With
  48.                 With .Borders(xlInsideVertical)
  49.                     .LineStyle = xlContinuous
  50.                     .ColorIndex = xlAutomatic
  51.                     .TintAndShade = 0
  52.                     .Weight = xlThin
  53.                 End With
  54.                 With .Borders(xlInsideHorizontal)
  55.                     .LineStyle = xlContinuous
  56.                     .ColorIndex = xlAutomatic
  57.                     .TintAndShade = 0
  58.                     .Weight = xlThin
  59.                 End With
  60.                 With .Font
  61.                     .Name = "¼Ð·¢Åé"
  62.                 End With
  63.             End With
  64.             With .Range(.Cells(r, c), .Cells(r, c + 1))
  65.                 .MergeCells = True
  66.                 .Value = "XX¥ø·~ªÑ¥÷¦³­­¤½¥q"
  67.                 With .Font
  68.                     .Size = 14
  69.                 End With
  70.             End With
  71.             .Cells(r + 1, c) = "°]²£½s½X"
  72.             .Cells(r + 1, c + 1) = rng
  73.             .Cells(r + 2, c) = "«~¦W"
  74.             .Cells(r + 2, c + 1) = rng.Offset(, 1)
  75.             c = c + 2
  76.         End If
  77.         If c > 8 Then
  78.             c = 1
  79.             r = r + 3
  80.         End If
  81.     End With
  82. Next
  83. End Sub
½Æ»s¥N½X

TOP

µ{¦¡ºc·Q¡G
¢°¡D¡e¼ÐÅÒ²M³æ¡f¤u§@ªí«e¢²¦C¡A¨Æ¥ý³]©w¦nªí®æ¼Ë¦¡¡]¥u¦³¼ÐÃD¤å¦r¡A¥¼¶ñ¤º®e¡^¡A
¡@¡@¤@±Æ­n´XÄæ¡]µø¦C¦L¤j¤p¡^¡A¥i¥Ñ¦¹¨M©w¡A¶K¤J¸ê®Æ®É¡A§Y¥H¦¹¬°¼Ë¥»©¹¥k©¹¤UÂà¶K¡C
¢±¡D¶K¤J¸ê®Æ®É¡A±q²Ä¢³¦C¶}©l¡A¼Ë¦¡´N¥Î«e¢²¦C¬°¨Ó·½¡A¦A³v¤@¶ñ¤J¸ê®Æ¡A
¡@¡@³B²z§¹¦¨«á¡A¦A§R¥h«e¢²¦C¡C
¢²¡D°õ¦æ¡e²M°£¡f¡A§Y¥i«ì´_­ìª¬¡]º¸«á¤´¥i­«·s§ó§ï¼Ë¦¡¡Aµ{¦¡¥u¨Ì¼Ë½Æ»s¡^
  1. Sub 刴X()
  2. Dim R&, xR As Range, xH As Range, xE As Range
  3. Call ²M°£
  4. R = [¼ÐÅÒ²M³æ!A65536].End(xlUp).Row
  5. If R < 2 Then Exit Sub
  6. Set xH = [¼ÐÅҼ˦¡!A4]: Set xE = xH

  7. For Each xR In [¼ÐÅÒ²M³æ!A2].Resize(R - 1)
  8.     If xH = "" Then [¼ÐÅҼ˦¡!1:3].Copy xE
  9.     xE(2, 2) = xR
  10.     xE(3, 2) = xR(1, 2)
  11.     Set xE = xE(1, 3)
  12.     If xE = "" Then Set xH = xH(4): Set xE = xH
  13. Next
  14. [¼ÐÅҼ˦¡!1:3].EntireRow.Delete
  15. Application.Goto [¼ÐÅҼ˦¡!A1]
  16. End Sub
½Æ»s¥N½X
¡@
ªþ¥ó¤U¸ü¡G
°]²£¼ÐÅÒ»s§@v01.rar (16.22 KB) ¡@
¡@

TOP

¦^´_ 2# lpk187


¤j¤jªGµM¼F®`¡A¦ý«Ü¦n©_¡A§Ú¦b¤½¥q´ú¸Õªº®É­Ô¤½¥q¬O2003ª©¥»¡A«o¤@ª½¥X¿ù»~¡A¦]¤£¤F¸Ñ¦U¶µ¦¸ªº³]©w©Ò¥H¨S¦b¹Á¸Õ­×§ï¡A¦^¨ì®a¦b´ú¸Õ¤@¦¸¡A©~µM¥i¥H!!!!!!
³o¬O¦³­­ª©¥»¶Ü???

TOP

¦^´_ 3# ­ã´£³¡ªL

    ª©¤j¡A¤µ¤Ñ¦³´ú¸Õ±z¼gªº¡A¤@¶}©l¥X²{¿ù»~¡A±NCall ²M°£(³o¥X²{¿ù»~¡A§R°£«á´N¥i¥H°õ¦æ¤F)¡A·PÁ°Õ!
¦ý¦³­Ó°ÝÃD¡A§Ú¦³¹Á¸Õ±N¤@­Ó¼ÐÅҥΨâ­Ó°]²£½s¸¹¡A¦ý­×§ï«á¤´¬O¤@­Ó¤@­Ó¸õ¦p¤U:

Sub 刴X()
Dim R&, xR As Range, xH As Range, xE As Range
R = [¼ÐÅÒ²M³æ!A65536].End(xlUp).Row
If R < 2 Then Exit Sub
Set xH = [¼ÐÅҼ˦¡!A4]: Set xE = xH
For Each xR In [¼ÐÅÒ²M³æ!A2].Resize(R - 1)
    If xH = "" Then [¼ÐÅҼ˦¡!1:3].Copy xE
    xE(2, 2) = xR(1)
    xE(3, 2) = xR(2)
    Set xE = xE(1, 3)
    If xE = "" Then Set xH = xH(4): Set xE = xH
Next
[¼ÐÅҼ˦¡!1:3].EntireRow.Delete
Application.Goto [¼ÐÅҼ˦¡!A1]
End Sub

TOP

¦^´_  lpk187


¤j¤jªGµM¼F®`¡A¦ý«Ü¦n©_¡A§Ú¦b¤½¥q´ú¸Õªº®É­Ô¤½¥q¬O2003ª©¥»¡A«o¤@ª½¥X¿ù»~¡A¦]¤£¤F¸Ñ ...
poke0817 µoªí©ó 2015/9/14 19:56


§Ú¤]¬O2003ª©¥»,­ã´£³¡ªLª©¥DªºªþÀÉ¥i¥¿±`°õ¦æµ{¦¡.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 1# poke0817


   ·Q½Ð°Ý¡A¦pªG¦³¤@­Ó²M³æ¡A¥i¬O¶·¹ïÀ³¤TºØ¼ÐÅÒ¡A
1¡B¨Ì¶µ¦¸1(²M³æ)¡AA~DªºÄæ¦ìfor ¼ÐÅҼ˦¡1(¹ïÀ³¸Ó²M³æªº®Æ¸¹¡B«~¦W¡B§å¸¹¡B²°¼Æ)¡A¦b¨Ì·Ó²M³æ(C7¶}©l)°ª«×±Æ¦C(C7¡BC8¡BC9¡BC10)¡Aª½¨ìCÄæ²M³æµ²§ô¡C
2¡B¨Ì¶µ¦¸1(²M³æ)¡AF~IªºÄæ¦ìfor ¼ÐÅҼ˦¡2(¹ïÀ³¸Ó²M³æªº®Æ¸¹¡B«~¦W¡B§å¸¹¡B²°¼Æ)¡A¦b¨Ì·Ó²M³æ(H7¶}©l)°ª«×±Æ¦C(B5¡BD5)¡Aª½¨ìCÄæ²M³æµ²§ô¡C(¼ÐÅÒ3ªº¤è¦¡À³¸Ó¸ò¦¹¤@¼Ë¡A¥u¬O¹ïÀ³ªº²M³æ°Ï°ì¤£¤@¼Ë)

¼ÐÅÒ§Ö§â§Ú·d¦º¤F¡A¬ã¨s¤£¥X©Ò¥HµM¨Ó.......¤§«e¿ý»s¥¨¶°¨ì²´ªá¡A¤S³Q¥DºÞ¥´ºj=  =!!
¼ÐÅÒ»s§@.rar (20.99 KB)

TOP

¦^´_ 5# poke0817


¤£¥i¨Ï¥Î¬O¦]¬°±z¡e¨S¦³¤U¸ü¡fªþÀÉ¡A¸Ô²Ó¬Ý¸Ì­±ÁÙ¦³¤@­Ó sub ²M°£() µ{¦¡¡A
¡e²M°£¡fµ{¦¡§Ú¤@¯ë·|¥t¥~¼g¡I

ªí®æ¡e²Ä¤@±Æ¡f½Ð¨Ì±zªº©Ò»Ý¥ý¥k¶K¡A­n¶K´X­Ó¼ÒªO¨Ì¡e¦C¦L¼e«×¡f¦Ó©w¡A¦Ó¤£¬O¥u¦³¢Ï¢°¡G¢Ð¢²¤@²Õ¡A
³o­Ó°µªk¥i´î¤Ö«Ü¦hµ{¦¡½X¡A¤Ï¥¿²Ä¤@±Æ«ç³]©w¡Aµ{¦¡¨Ì¼Ëµe¸¬Äª¡A
­Y¦³§ó§ï¤]¤£¶·¥h§ó°Ê¤j³¡¥÷ªºµ{¦¡¡A¥u­nª½±µ¹ïªí®æ­×§ï§Y¥i¡I

xR(1) ¡÷ xR.cells(1,1)
xR(2) ¡÷ xR.cells(2,1) ¬O¥¦ªº¡e¤U¤@®æ¡f¡A­Y­n«ü©w¨ä¡e¥k¤@®æ¡f¡A«h¬° xR(1,2) ¡÷¡@µ¥¦P¤_ xR.cells(1,2)

TOP

¦^´_ 8# ­ã´£³¡ªL


    ­ã´£³¡ªL :·PÁª©¤j¡A¦]ªþ¥ó¦³­­¼h¯Å¡A¤p§Ì§ÚÁÙ¤Ó¹à¡A©Ò¥H¨S¿ìªk¤U¸ü¨Ó¬Ý¡A¦³¦b°w¹ï§A¼¶¼gªºµ{¦¡¥h´ú¸Õ¡A¨Ì·Ó¤@±i¼ÐÅÒ§@¹ïÀ³²M³æ¥|²Õ­×§ï¡A¦ý¦b¶]°j°é®ÉÁÙ¬O·|¨Ì·Ó²M³æ²Ä¤G²Õ¶}©l­«·sÄò½s¡AµLªk¨Ì·Ó²M³æ²Ä¤­²Õ¶}©l¡A¦p¹Ï©Ò¥Ü....¦pªG¥i¥HÄò½s§Ú¨ä¥¦¤T­Ó¼ÐÅҤ覡À³¸Ó¥i¥H¸òµÛ­×¥¿¡A®t¦b²°¼Æªº³¡¤À´N¨S¿ìªk±µÄò+1¤F¡C

TOP

¦^´_ 4# poke0817


    »s§@Àx¦s®æ®æ¦¡¡A©Mª©¥»¦³Ãö«Y¡I2003¤£¬Û®e¡I

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD