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

[µo°Ý] ¦p¦ó¥ÎVBA½Æ»s¤£¦P¤u§@ªí¸ê®Æ

[µo°Ý] ¦p¦ó¥ÎVBA½Æ»s¤£¦P¤u§@ªí¸ê®Æ

½Ð°Ý¦p¦ó¥ÎVBA¨Ó°µ. ¤u§@ªí2ªºA¦ÜPÄæ½d³ò¬O°Ñ·Ó¸ê®Æ.  ¦C¼Æ¤£¤@©w. ¦p¦ó°õ¦æ1¦¸´N½Æ»s¤u§@ªí2ªºA¦ÜPÄæ½d³ò¸ê®Æ¨ì¤u§@ªí1.
­Y¹J¨ì¤u§@ªí1¦³¼Æ­È´N©¹¤U¤@¦C¶K¤W¼Æ­È.¨Ò¦p¤u§@ªí1ªºA1:P5¦³¸ê®Æ´N©¹A6¶K¤W¤u§@ªí2ªº¸ê®Æ ¥H¦¹¨Ó¦¬¶°¤u§@ªí2ªº¸ê®Æ¦Ü¤u§@ªí1
·Ð½Ð¤j¤j«ü¾É  ÁÂÁÂ

¦^´_ 1# jerrystock
µ{¦¡°Ï¦³³\¦h³o¼Ëªº¨Ò¤l,¦h¬Ý¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng(1 To 2) As Range
  4.     With Sheet2
  5.         Set Rng(1) = .Range("A1:P" & .Range("A" & .Rows.Count).End(xlUp).Row)
  6.     End With
  7.     Set Rng(2) = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp)
  8.     If Rng(2) <> "" Then Set Rng(2) = Rng(2).Offset(1) ',¤U²¾¤@¦C
  9.     'Rng(2) <> "" '¦³¸ê®Æ
  10.     Rng(1).Copy Rng(2)
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁÂGBKEE§Ö³t¦^ÂÐ ¨Ã«ü¾É¤p§Ì
§Ú¦³¸ÕµÛ¥h¬Ý¨ä¥L¨Ò¤l.¦ý¬O¦³«Ü¦h¬Ý¤£À´.¤p§ÌÁÙ¥²¶·§V¤Oªº¥ý¥h¤F¸ÑVBA°ò¥»»yªk.
¹ï©ó¥Ø«eGBKEE¤j¤j«ü¾É©Ò¹J¨ìªº°ÝÃD.¦pªGSheet2ªº¸ê®ÆA1Äæ¬O·í¤é¤é´Á.A2.A3«á³£¬OªÅ¥Õ
±qB1¦C¶}©l³£¦³¸ê®Æ ¹³¬O
           A1             B1           C1......P1
2014/4/12/       Name     ID.......Tel
                            ¤ý¤p©ú    3......... 521xxx
                            ³¯¤j¬K    6.........381xxxx
¨C¤é·|¦³¤£¯S©wªº¦C  
°õ¦æ¥¨¶°«á¥u¯à½Æ»sA11¦C¤@¦Cªº¸ê®Æ¨ìSheet1
¤p§Ì¦³¸ÕµÛ§ï¬Ý¬Ý.¦ýª¾¹Dªº¦³­­.ÁÙ¬OºN¤£µÛÀYºü ¥u¦n½ÐGBKEE¤j¤j¦A¦¸«ü¾É
ÁÂÁÂ

TOP

³Â·Ð¤j¤j
ªþÀÉ test.zip (17.13 KB)

TOP

¦^´_ 4# jerrystock
¸Õ¸Õ¬Ý
  1. Option Explicit
  2.     Sub Ex()
  3.         Dim Rng(1 To 2) As Range
  4.         With ¤u§@ªí2
  5.             Set Rng(1) = .Range("A1").CurrentRegion
  6.         End With
  7.         Set Rng(2) = ¤u§@ªí1.Range("B" & ¤u§@ªí1.Rows.Count).End(xlUp) 'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ
  8.         If Rng(2) = "" Then                         'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ = B1
  9.             Set Rng(2) = Rng(2).Offset(0, -1)       '¤U²¾ 0 ¦C,¥ª²¾¤@Äæ(¨ìAÄæ)
  10.             Rng(1).Copy Rng(2)                      '½Æ»sªíÀY
  11.         Else                                        'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ <> B1
  12.             Set Rng(2) = Rng(2).Offset(1, -1)       ',¤U²¾ ¤@¦C,¥ª²¾¤@Äæ(¨ìAÄæ)
  13.             Rng(1).Offset(1).Copy Rng(2)            '¤£½Æ»sªíÀY
  14.             Rng(2).Cells(1) = Rng(1).Cells(1)       'AÄæ¿é¤J¤é´Á
  15.         End If
  16.     End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE
·PÁÂGBKEE¤j¤j ¥i¥H¨Ï¥Î¤F ÁÙÀ°¤p§Ì¦bVBA¸Ìµù¸Ñ»¡©ú
¯u¬O«D±`·PÁÂ^^

TOP

½Ð°Ý¤j¤j¦pªG¸I¨ì¤u§@ªí2ªºB2Äæ¦ìÅã¥ÜNo securities to report.
´N¤£­n½Æ»s¨ì¤u§@ªí1 ¦p¦ó­×§ï©O? ¦A¦¸½Ð±Ð ÁÂÁÂ

TOP

¦^´_ 5# GBKEE
½Ð°Ý¤j¤j¦pªG¸I¨ì¤u§@ªí2ªºB2Äæ¦ìÅã¥ÜNo securities to report.
´N°±¤î½Æ»s¨ì¤u§@ªí1 ¦p¦ó­×§ï©O? ¦A¦¸½Ð±Ð±z ÁÂÁÂ!!

TOP

¦^´_ 8# jerrystock
¦³´N¤£½Æ»s¶Ü?
  1. Option Explicit
  2.     Sub Ex()
  3.         Dim Rng(1 To 2) As Range
  4.         With ¤u§@ªí2
  5.             Set Rng(1) = .Range("b:b").Find("No securities to report.", Lookat:=xlWhole)
  6.             'BÄ椤§ä"No securities to report."            
  7.             If Not Rng(1) Is Nothing Then Exit Sub  '¦³¦¹§¹¾ã¦r¦ê,Â÷¶}µ{§Ç
  8.             Set Rng(1) = .Range("A1").CurrentRegion
  9.         End With
  10.         
  11.         Set Rng(2) = ¤u§@ªí1.Range("B" & ¤u§@ªí1.Rows.Count).End(xlUp) 'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ
  12.         If Rng(2) = "" Then                         'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ = B1
  13.             Set Rng(2) = Rng(2).Offset(0, -1)       '¤U²¾ 0 ¦C,¥ª²¾¤@Äæ(¨ìAÄæ)
  14.             Rng(1).Copy Rng(2)                      '½Æ»sªíÀY
  15.         Else                                        'BÄæ¥Ñ¤U©¹¤W¨ì¦³¸ê®ÆªºÀx¦s®æ <> B1
  16.             Set Rng(2) = Rng(2).Offset(1, -1)       ',¤U²¾ ¤@¦C,¥ª²¾¤@Äæ(¨ìAÄæ)
  17.             Rng(1).Offset(1).Copy Rng(2)            '¤£½Æ»sªíÀY
  18.             Rng(2).Cells(1) = Rng(1).Cells(1)       'AÄæ¿é¤J¤é´Á
  19.         End If
  20.     End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE

ÁÂÁÂGBKEE¤j¤j ²¼ä¦³¤O ¥i¥H¤F ÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : §ïÅܦۤv¬O¦Û±Ï¡A¼vÅT§O¤H¬O±Ï¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD