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

[µo°Ý] ¤£¦Psheet¤§¶¡§ì¨ú¸ê®Æ

[µo°Ý] ¤£¦Psheet¤§¶¡§ì¨ú¸ê®Æ

³Ìªñ­è±µÄ²VBA ©Ò¥H¦³¨ÇªF¦èÁÙ¤£¬O«Ü¼ô
¤U­±³o­Ó°ÝÃD§Úgoogle¤@¤Ñ¤FÁÙ¬O§ä¤£¨ì¸Ñ¨Mªº¿ìªk




§Ú¦³¨â­Ócolumn ªº¸ê®Æ ( ¤å¦r)   ¤À§O¦b¤£¦Pªº¤u§@ªí

sheet1 :   a
                   b
                   c
                   d
                   e
                   f   

sheet2 : a
                 1 2 3 4 5
                 6 7 8 9 10
                 b
                 1 2 3 4 5
                 6 7 8 9 10
                 c
                1 2 3 4 5
                6 7 8 9 10
               e
               1 2 3 4 5
               6 7 8 9 10
               11 12  13  14 15
               f
               1 2 3 4 5
               6 7 8 9  1
               1  12  6  74  8

§Ú·Q­n¬O³]¤@­Ó°j°é

if sheet1.range("A" & i) = sheet2.range("A" & j )

copy  sheet2.range("A2 : E2")
paste in sheet1.range("B1 :E1")


...

( ¤]´N¬O¦bsheet2¸Ìªº aªº¤U­±ªº 1 2 3 4 5 ­n¶K¨ì sheet1 a ªº¥ªÃä ,

  ³Ì«á°j°é¶]§¹ªºµ²ªG¦bsheet1¬O :

a 1 2 3 4 5
b 1 2 3 4 5
c 1 2 3 4 5
d 1 2 3 4 5
e 1 2 3 4 5
f 1 2 3 4 5

³o¼ËÁ¿¤£ª¾¹D²M¤£²M·¡

¦pªG¦³ºÃ°Ý§ÚÁÙ¥i¥H¦A¸É¥R

½Ð¦U¦ì¤j¤j±Ð§Ú¤@¤U«ç»ò¼g³o¬qµ{¦¡§a

ÁÂÁÂ


§Ú·Q­n¬O³]¤@­Ó°j°é

¦^´_ 1# ldneye


    ½Ð°Ýsheet2
         a
         12345
          678910

³£¬O¦b AÄæ¹À ?  
A1
A2
A3
©Î¬O  ¬O
A1
A2 B2 C2 D2 E2
.....

TOP

A1
A2 B2 C2 D2 E2

TOP

¦^´_ 3# ldneye


    ½Ðªþ¤WÀÉ®×

TOP

¦^´_ 4# genes

Private Sub CommandButton1_Click()

Sheets("Return").Select
finalrow = ActiveSheet.UsedRange.Rows.Count
Sheets("2006_1").Select
finalrow06 = ActiveSheet.UsedRange.Rows.Count

For j = 2 To finalrow06
For i = 1 To finalrow -5

If Sheets("2006_1").Cells(1, j) = Sheets("Return").Cells(1, i) Then
S
heets("Return").Select
Sheets("Return").Range(Range("A" & i + 2), Range("A" & i + 2).Offset(0, 12)).Copy

With Sheets("2006_1")
     .Select
     .Range(Range("B" & j), Range("B" & j).Offset(0, 12)).Select
End With
   
ActiveSheet.Paste
Sheets("2006_1").Select
End If
Next
Next

End Sub

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2013/11/1 06:57): genes ½Ð§AªþÀÉ,¨S¦³ªþÀɦp¦P½M¤lºN¶H

©êºp  
If Sheets("2006_1").Cells(1, j) = Sheets("Return").Cells(1, i) Then

À³¸Ó¬O

If Sheets("2006_1").Cells(j,1) = Sheets("Return").Cells( i,1) Then

TOP

example.rar (117.51 KB) ¦^´_ 4# genes




ÁÂÁª©¥D´£¿ô ¦]¬°§ÚÁÙ¤£¤Ó²ßºD³o­Óª©ªºª©³W  ¦p¦³Ä²¥Ç ½Ð¦h¥]²[

¤w¸gªþ¤WÀɮפF

§Ú·Q­n§â²Ä¤G­Ósheet ( Return) ¸Ì­± 2005 ¦~ªº return ,  ¤@¤ë¥÷¨ì¤Q¤G¤ë¥÷ªº¸ê®Æ  ½Æ»s¶K¤W¨ì  sheet( 2006_1)  ¹ïÀ³¨ì¬Û¦P¦W¦rªº ¥kÃä

§Úªºµ{¦¡½X¤£ª¾¨ì­þÃä¥X¤F°ÝÃD

¤Wºô¬Ý¤F«Ü¤[¤]¬Ý¤£¥X­Ó©Ò¥HµM¨Ó

©Ò¥H·Q½Ð¦U¦ìºô¸ô¤W¦n¤ßªº¤j¤j«üÂI°g¬z

ÁÂÁÂ

¦pªGÁÙ¦³Ä²¥Çª©³Wªº¦a¤è¤]½Ð¤£§[§iª¾ §Ú·|¿í¦uªº

TOP

¦^´_ 7# ldneye

©ñ¨ìmodule¤W
2±iworksheets¤½¥q¦W¤£¹ïºÙ,¦Û¤v§ï¤Ucode§a
  1. Option Explicit
  2. Sub test1()
  3. Dim finalrow As Integer
  4. Dim finalrow06 As Integer
  5. Dim j As Integer
  6. Dim i As Integer
  7. finalrow = Sheets("Return").UsedRange.Rows.Count
  8. finalrow06 = Sheets("2006_1").UsedRange.Rows.Count
  9. With ActiveWorkbook
  10. For j = 2 To finalrow06
  11. For i = 1 To finalrow - 5

  12. If .Sheets("2006_1").Cells(j, 1).Value = .Sheets("Return").Cells(i, 1).Value Then

  13. 'Sheets("Return").Select
  14. .Sheets("Return").Range(Cells(i + 2, 1), Cells(i + 2, 13)).Copy Destination:=.Sheets("2006_1").Range("B" & j)
  15. End If
  16. Next
  17. Next
  18. End With
  19. End Sub
½Æ»s¥N½X

TOP

·PÁ«e½ú¡A§Úª¾¹D§Úªº¿ù¦b­þ¸Ì¤F¡A´N¬O¤½¥q¦WºÙ¤£¹ï¡C
§Ú¥H¬° ¨â­Ócells ¸Ì­±ªº¤å¦r¤£¥Î§¹¥þ¤@¼Ë¥u­n¬Û¦ü´N¥i¥H½Æ»s¶K¤W( ¬Æ¦Ü³s«e­±¦³ªÅ®æ³£¤£¦æ = = )

ÁÙ¦³¤@­Ó°ÝÃD
´N¬O§Ú¬O·Q­n§â¨C¶¡¤½¥q2005¦~ªº¸ê®Æ½Æ»s¶K¤W¨ìsheets 2006
¦ý¬O¥Ñ©ó¥L¨C­Ó¤½¥qªº¸ê®Æ¶}©lªº®É¶¡³£¤£¤@¼Ë ¡A¦³ªº¬O±q2002¦~¶}©l ¡A¦³ªº¬O±q2005¦~¶}©l
¡A¬Æ¦Ü¦³ªº¨S¦³¸ê®Æ¡I ¨S¦³¿ìªk¥Î row + i ªº¤è¦¡±Àºâ¥X¨Ó¡A¤£ª¾¹D«e½ú¦³¨S¦³¤°»ò§ó¦nªº¤èªk©O?
ÁÂÁÂÅo

TOP

¦^´_ 9# ldneye
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim e As Range, Rng(1 To 2) As Range
  4.     Sheets("2006_1").Range("B:O").Clear
  5.     For Each e In Sheets("2006_1").Range("a:a").SpecialCells(xlCellTypeConstants)
  6.         If Trim(e) <> "" Then   '±Æ°£¦³¿é¤JªÅ¥Õ¦r¦êªºÀx¦s®æ
  7.             'Trim(e) -- LTrim¡BRTrim »P Trim ¨ç¼Æ    ¶Ç¦^¤@­Ó¨S¦³«eÀYªÅ¥Õ (LTrim)¡B«á­±ªÅ¥Õ (RTrim) ©Î«e«á§¡µLªÅ¥ÕªºVariant (String)¡A¨ä¤¤©Ò§t¬°µ¹©wªº¦r¦ê¡C
  8.             Set Rng(1) = Sheets("Return").Range("a:a").Find(e, lookat:=xlPart)
  9.             If Not Rng(1) Is Nothing Then
  10.                 Set Rng(2) = Rng(1).CurrentRegion.Columns(1).Find("2005", lookat:=xlWhole)
  11.                 If Not Rng(2) Is Nothing Then e.Offset(, 1).Resize(, 14) = Rng(2).Resize(, 14).Value
  12.             End If
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD