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

[µo°Ý] ±N¸ê®Æ¦Û°Ê½Æ»s¨ì¡A¥Ø«eÂI¿ïªº©Ò¦b­¶­±¨Ã¦Û°Ê¿ï¾Ü³Ì«á¤@¦æªÅ¥Õ³B¶K¤W

·Q­É´£°Ý©T©wÀÉ®×ÀɦWªº¤À­¶¸ê®Æ½Æ»s°ÝÃD
·Q±q¸ê®Æªí"·í¤ë³øªí"¤¤«Ø¥ß¥¨¶°¡A§@¥Î¦p ¤U
½Æ»s"·í¤ë³øªí"¤¤ªº[ºî¦X¸ê®Æ®w]ªºA5:AQ¦³­Èªº³Ì«á¤@¦æ
¨ì
"¥þ¦~«×¸ê®Æ®w"¸ê®Æªíªº[ºî¦X¸ê®Æ®w]¤¤ªºA¦C¦³­Èªº¤U¤@¦æ(ªÅ¥Õ³B)

·Q¸ß°Ý«e½ú­Ì¡A¥H¤W¥¨¶°­n¦p¦ó½s¼g¤ñ¸û¥¿½T
¦pªG¨S¦³¥´¶}ÀÉ®×"¥þ¦~«×¸ê®Æ®w"¡A½Ð°Ý·|¦Û°Ê¥´¶}¶Ü?

TOP

¦^´_ 24# luhpro

·PÁÂluhpro¤j¤jªº¦^ÂÐ

¥¨¶°¥d¦b
  1. lSRow = .Cells(Rows.Count, [AQ1].Column).End(xlUp).Row ' §ä¥½¦C
½Æ»s¥N½X
¥´¶}ªº¥þ¦~«×¸ê®Æ®wµL»~
½Ð°Ý¸Ó¦p¦ó±Æ¸Ñ?

TOP

¥»©«³Ì«á¥Ñ jackson7015 ©ó 2015-5-12 16:17 ½s¿è

¦^´_ 26# GBKEE

·PÁÂGBKEEªO¤j
­ìª¬ªp±Æ°£¤F

¦ý¬O¤S¥X¤F·sª¬ªp...
§Úªº¦]¬°A4:AQ4³£¦³­È¡A©Ò¥H§Ú§â[CTRL+¡õ]ªº«ü¥O§ï¦¨±qAQ4¶}©l(End(xlUp)ªº·N«äÀ³¸Ó¬O³o¼Ë¨S¿ù§a?)
¦ý¬OÁÙ¥X²{°ÝÃD
  1.     lTRow = wsTar.Cells(Rows.Count, 1).End(xlUp).Row
  2.     .Range([A5], .Cells(lSRow, [AQ4].Column)).Copy wsTar.Cells(lTRow, 1)
½Æ»s¥N½X
¤U­±ªº¦C¦¡¦³¿ù»~
  1.     .Range([A5], .Cells(lSRow, [AQ4].Column)).Copy wsTar.Cells(lTRow, 1)
½Æ»s¥N½X
¦A½Ð«e½ú­Ì¤ÀªR¬Ý¬Ý
·PÁÂ~

TOP

¦^´_ 28# GBKEE

¥ý·PÁÂGBKEEªO¥Dªº¦^ÂÐ
¿ù»~°T®§¥Ø«e³£±Æ°£¤F
¦ý¬O«o¥X²{¨S¦³½Æ»s"·í¤ë³øªí"¤¤ªº[ºî¦X¸ê®Æ®w]¨ì
"¥þ¦~«×¸ê®Æ®w"¸ê®Æªíªº[ºî¦X¸ê®Æ®w]¤¤

¤Ï¦Ó¥X²{
¶}±Ò"¥þ¦~«×¸ê®Æ®w"¸ê®Æªíªº[ºî¦X¸ê®Æ®w]¤¤½Æ»s¤Fa1:aq¦³­Èªº³Ì«á¤@¦æ
¨ì
"¥þ¦~«×¸ê®Æ®w"¸ê®Æªíªº[ºî¦X¸ê®Æ®w]ªºªÅ¥Õ³B¤U¤è¥h¤F

¬O§_¥i¥H¦A½ÐÀ°¦£¬Ý¬Ý­þ¸Ì¦³°ÝÃD©O..
  1. Sub nn()
  2.   Dim lSRow&, lTRow&
  3.   Dim sPath$
  4.   Dim bNFind As Boolean
  5.   Dim wsSou As Worksheet, wsTar As Worksheet
  6.   Dim wbSou As Workbook, wbTar As Workbook
  7.   
  8. sPath = ThisWorkbook.Path
  9. ChDrive sPath
  10. ChDir sPath
  11.   Set wbSou = ThisWorkbook
  12.   Set wsSou = wbSou.Sheets("ºî¦X¸ê®Æ®w")
  13.   
  14.   bNFind = True
  15.   For Each wbTar In Workbooks ' ¥þ¦~«×¸ê®Æ®w Àɮ׬O§_¤w¶}±Ò
  16.     If wbTar.Name = "¥þ¦~«×¸ê®Æ®w.xlsm" Then
  17.       Set wsTar = wbTar.Sheets("ºî¦X¸ê®Æ®w")
  18.       bNFind = False
  19.       Exit For
  20.     End If
  21.   Next
  22.   If bNFind Then ' ­YÀÉ®×¥¼¶}±Ò«h¶}±Ò¥¦
  23.     With Workbooks.Open("¥þ¦~«×¸ê®Æ®w.xlsm", , True)
  24.       Set wbTar = ThisWorkbook
  25.       Set wsTar = .Sheets("ºî¦X¸ê®Æ®w")
  26.     End With
  27.   End If
  28.   
  29.   With wsTar
  30.     lSRow = .Cells(.Rows.Count, .[AQ1].Column).End(xlUp).Row ' §ä¥½¦C
  31.     lTRow = .Cells(.Rows.Count, 1).End(xlUp).Row
  32.     .Range(.[A5], .Cells(lSRow, .[AQ4].Column)).Copy .Cells(lTRow, 1)
  33.   End With
  34. End Sub
½Æ»s¥N½X

TOP

¦^´_ 30# GBKEE

·PÁÂGBKEEª©¥D­×¥¿«áªºª©¥»
³oª©¥»µ{¦¡½X¤ñ¸û²³æ¡A¦Ó¥B¦³µùĶ¤]¤ñ¸û¦nŪ¤F¡A¤£¹L¦³´XÂI¥i§_À°¦£­n­×¥¿

1.¦]AQ¦³®É­Ô·|¨S¦³³]©w­È¡A©Ò¥H¯à§_¥u§PÂ_A¦C¦³´X¦æ¡AµM«á½Æ»sA5:AQ(A¦C³Ì«á¤@¦æ)
2.¥uÀx¦sÃö³¬"¥þ¦~«×¸ê®Æ®w"
3.¥u¶K¤W"­È"ªº³¡¤À´N¦n
¬O§_§â
  1. Rng.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
½Æ»s¥N½X
­×¥¿¦¨
  1.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  2.         :=False, Transpose:=False
½Æ»s¥N½X

TOP

¦^´_ 32# GBKEE

·PÁÂGBKEEª©¥Dªº­×¥¿
    °Ê§@¤è­±³£OK¤F¡A¤£¹L¶K¤W­Èªº³¡¤À·|³sÀx¦s®æ¦¡¤]¶K¤W¥h¡A²Ö¿n¤U¨Óªº¶q·|¨ÏÀx¦s®æ¦¡³¡¥÷¼É¼W
¥»·Q¦Û¤v§ó¥¿¡A¤£¹L¤£©ú¥Õ¨º¤@¦æªº§@¥Î¨ì©³¬O«ç»ò¹B¦æªº
¥u¦n¦bÀµ½ÐªO¥DÀ°¦£¤F

­ì¥»¥H¬°¬O§ï¥¿
  1.         '***3.¥u¶K¤W"­È"ªº³¡¤À´N¦n
  2.         .UsedRange = .UsedRange.Value
½Æ»s¥N½X
¤£¹L¬d¸ß¤F¤@¤U¡A¦¹¥N½Xªº§@¥Î¦n¹³³£¬O¸ÑÄÀ¬°'¥h°£¤½¦¡¡A©Ò¥H¤£¤Ó©ú¥Õ«ç»ò§ó¥¿...

TOP

¦^´_ 32# GBKEE
¤£¦n·N«ä¡A·Q½Ð±ÐGBKEEª©¥D
³o±ø¦C¸ÕÁÙ¬O¤£·|­×§ï¡A¥i§_À°¦£¬Ý¬Ý
  1. Rng.Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
½Æ»s¥N½X
¦³¥[¤J¹L
  1. .PasteSpecial Paste:=xlPasteValues
½Æ»s¥N½X
¤£¹L»yªk¿ù»~..

©êºp¡AVBªº¯à¤O¯uªº«Ü®t
¦A½Ð¬Ý¬Ý¯à§_¥u¶K¤W"­È"¡A¤£»Ý­n®æ¦¡±ø¥ó

TOP

¦^´_ 35# GBKEE

·PÁÂGBKEEª©¥DªºÀ°¦£
­ì¨Ó­n¨Ï¥Î¥t¤@ºØ¼gªk¨Ó©w¸q½d³ò
ÁÂÁ«e½ú­Ìªº«ü±Ð~

TOP

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