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

[µo°Ý] ·í¨Ó·½³Q§R°£®É¡A«hµ²ªG¤]·|¦Û°Ê§R°£¡A·íµM¦pªG¨Ó·½¦³·s¼W®É¡A¨äµ²ªG¤]·|¦Û°Ê·s¼W¡C

[µo°Ý] ·í¨Ó·½³Q§R°£®É¡A«hµ²ªG¤]·|¦Û°Ê§R°£¡A·íµM¦pªG¨Ó·½¦³·s¼W®É¡A¨äµ²ªG¤]·|¦Û°Ê·s¼W¡C

·í¨Ó·½ªº¥Ò6¡B¥Ò15¡B¥Ò20»P¥Ò26³Q§R°£®É¡A«hµ²ªG¤]·|¦Û°Ê§R°£¡A·íµM¦pªG¨Ó·½¦³·s¼W®É¡A¨äµ²ªG¤]·|¦Û°Ê·s¼W¡C
§Æ±æ¤ä«ù!

¸É¤WªþÀÉ¡C

°ÝÃD24.rar (9.31 KB)

§Æ±æ¤ä«ù!

TOP

¦^´_ 2# s7659109
¸Õ¸Õ¬Ý:
   
  1. Option Explicit            '±j¨î«Å§iÅܼÆ
  2. '§R°£
  3. Private Sub CommandButton1_Click()
  4.     Dim sh1, sh2 As Worksheet
  5.     Set sh1 = Sheets("¨Ó·½")
  6.     Set sh2 = Sheets("µ²ªG")
  7.    
  8.     sh2.[H1] = sh1.[H1]
  9.     sh1.[I1] = "=MATCH(H1,A:A,0)"
  10.     sh2.[I1] = "=MATCH(H1,A:A,0)"
  11.    
  12.     '§R°£"¨Ó·½"
  13.     If Application.IsNumber(sh1.[I1]) Then
  14.         sh1.Rows(sh1.[I1]).Delete
  15.     End If
  16.    
  17.     '§R°£"µ²ªG"
  18.     If Application.IsNumber(sh2.[I1]) Then
  19.         sh2.Rows(sh2.[I1]).Delete
  20.     End If

  21. End Sub
  22. '
  23. '·s¼W¤@µ§
  24. Private Sub CommandButton2_Click()
  25.     Dim sh1, sh2 As Worksheet
  26.     Dim lastRow1, lastRow2 As Integer
  27.     Set sh1 = Sheets("¨Ó·½")
  28.     Set sh2 = Sheets("µ²ªG")
  29.    
  30.     lastRow1 = sh1.[A65536].End(xlUp).Row    '¨ú±o "¨Ó·½"ÄæA³Ì¤U­±«DªÅ¥Õ¦C ªº¦C¸¹
  31.     lastRow2 = sh2.[A65536].End(xlUp).Row + 1    '¨ú±o"µ²ªG"ÄæA³Ì¤U­±«DªÅ¥Õ¦C ªº¤U¤@¦Cªº¦C¸¹
  32.    
  33.     '±N"¨Ó·½"ªº·s¸ê®Æ½Æ»s¨ì"µ²ªG"
  34.     sh1.Cells(lastRow1, 1).Resize(1, 3).Copy sh2.Cells(lastRow2, 1)
  35. End Sub
½Æ»s¥N½X
·í¨Ó·½³Q§R°£®É.xls
http://www.mediafire.com/download/2krzi85li7i3npi/%E7%95%B6%E4%BE%86%E6%BA%90%E8%A2%AB%E5%88%AA%E9%99%A4%E6%99%82.7z

TOP

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