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

¿z¿ï«á¸ê®Æ¦p¦ó½Æ»s¶K¤W«ü©wªºÄæ¦ì???

¿z¿ï«á¸ê®Æ¦p¦ó½Æ»s¶K¤W«ü©wªºÄæ¦ì???

½Ð°Ý¥H¿z¿ï«á¸ê®Æ¦p­n½Æ»s¦Ü«ü©wªºÄæ¦ì¡A¥H¥¨¶°¦p¦ó¹F¦¨¡A¤p§Ì¥H¤@¯ë½Æ»s©Î¶K¤W­Èªº¤è¦¡¡A³£µLªk¹F¦¨¡AÀµ½Ð¦U¦ì¥ý¶i«ü±Ð¡AÁÂÁÂ

¦pªþ¥ó¤¤ªºEÄæ¦ì§Æ±æ±N¿z¿ï²Å¦Xªº¸ê®Æ½Æ»s¦ÜGÄæ¦ì...

¿z¿ï«á±N«ü©w¸ê®Æ½Æ»s¨ì«ü©wªºÄæ¦ì.rar (2.36 KB)

¦^´_ 1# p6703
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Range("E2", Range("E2").End(xlDown)).Copy [G2]
  4. End Sub
½Æ»s¥N½X

TOP

GBKEE ª©¥D¡A°õ¦æ¥¨¶°±NEÄ檺¸ê®Æ½Æ»s¶K¨ìGÄæ2~13¦C¡A¦ý¤p§Ì»Ý¨Dªº¬O¶K¤W¹ïÀ³ªº¦C¼Æ(3,6,9,12,15.....¡^

TOP

¦^´_ 3# p6703
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.    With Range("E2", Range("E2").End(xlDown))
  4.     .Offset(, 2) = .SpecialCells(xlCellTypeVisible).Value
  5.     End With
  6. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEEª©¥D¡A¤p§Ì¥H¥¨¶°°õ¦æ¥i¥H¤F¡A¦ý¦pªG¿z¿ï«áªº¦C¼Æ¤£¬O³W«h©Êªº¡A¦¹¥¨¶°°õ¦æ¬O§_¤´¥i®M¥Î???¡]¦]¬°¬Ýµ{¦¡½X¤p§Ì¦Û¦æ²q·Q¬O§_©T©w¹j¤G¦C±N¸ê®Æ¶K¤W¡A¦ý¤p§Ìªºªþ¥ó¥u¬O­è¦n¨ä¶¡¹j³£¤@¼Ë¡A¦pªG¦C¼Æ§e¤£³W«h©Êªº¡^

TOP

¦^´_ 5# p6703
­×§ïªþÀɸê®Æ,¸Õ¸Õ¤£´Nª¾¹D.

TOP

·PÁÂGBKEEª©¥D¡A¤p§Ì»~¸Ñ¤Fµ{¦¡½X

¤p§Ì¥Hªþ¥ó­«·s¤£³W«ß±Æ§Ç°õ¦æ¥¨¶°¡A¥u¦³«e¤G¦C©óGÄæ¨q¥X¥¿½Tªº­È¡A²Ä¤T¦C¶}©lªº­È³£Åܦ¨²Ä¤@¦Cªºª÷ÃB¡Aªþ¤W¦p¤U¡A½Ð¦AÀ°¦£¬Ý¬Ý¡AÁÂÁ±z^^


¿z¿ï«á±N«ü©w¸ê®Æ½Æ»s¨ì«ü©wªºÄæ¦ì-1.rar (6.44 KB)

TOP

¦^´_ 7# p6703
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range, xi As Integer, i As Integer, e As Range
  4.     Set Rng = Range("E2", Range("E2").End(xlDown)).SpecialCells(xlCellTypeVisible)
  5.     'SpecialCells ¤èªk ¶Ç¦^ Range ª«¥ó¡A¦¹ª«¥ó¥Nªí»P«ü©w«¬ºA¤Î­È¬Û²Å¦Xªº©Ò¦³Àx¦s®æ¡CRange ª«¥ó¡C
  6.     For xi = 1 To Rng.Areas.Count
  7.     'Areas ÄÝ©Ê ©w¶Ç¦^ Areas ¶°¦X¡A¦¹¶°¦X¥Nªí¦h­«½d³ò¤¤ªº©Ò¦³½d³ò¡C°ßŪ¡C
  8.         For Each e In Rng.Areas(xi).Cells
  9.             i = i + 1
  10.             If i <= 2 Then  '«e2¦C
  11.                 e.Offset(, 2) = e.Value
  12.             Else
  13.                 e.Offset(, 2) = Rng.Cells(1).Value
  14.             End If
  15.         Next
  16.     Next
  17. End Sub
½Æ»s¥N½X
PS: ¦^¤å®É  ½Ð«ö [¦^ÂÐ] «ö¶s  µªÂЧAªº¤H¤~·|±o¨ì³qª¾, ³o¬O°ò¥»ªºÂ§»ª

TOP

GBKEEª©¥D¡A¤p§Ì¥H·s¥¨¶°°õ¦æ¡A¦ý¶]¥Xµ²ªG¤´¬O¥u¦³«e¤Gµ§·|®M¨ú¥¿½T¼Æ¾Ú¡A¦Û²Ä¤Tµ§°_³£¬O®»¨ú²Ä¤@µ§ªº¼Æ¾Ú

ªþ¥ó¦p¤U¡A¦A½Ðª©¥D½T»{¨ó§U¡AÁÂÁÂ...

¿z¿ï«á±N«ü©w¸ê®Æ½Æ»s¨ì«ü©wªºÄæ¦ì-2.rar (7.44 KB)

TOP

¦^´_ 9# p6703
1# »¡ :½Ð°Ý¥H¿z¿ï«á¸ê®Æ¦p­n½Æ»s¦Ü«ü©wªºÄæ¦ì
7# ¤S»¡ ªþ¥ó­«·s¤£³W«ß±Æ§Ç°õ¦æ¥¨¶°¡A¥u¦³«e¤G¦C©óGÄæ¨q¥X¥¿½Tªº­È¡A²Ä¤T¦C¶}©lªº­È³£Åܦ¨²Ä¤@¦Cªºª÷ÃB
µ¹§A8# ªºµ{¦¡¬O¦³¨Ì§A»¡¼¶¼gªº.
9# »¡ ¦ý¶]¥Xµ²ªG¤´¬O¥u¦³«e¤Gµ§·|®M¨ú¥¿½T¼Æ¾Ú¡A¦Û²Ä¤Tµ§°_³£¬O®»¨ú²Ä¤@µ§ªº¼Æ¾Ú
¨º§Ú´N¤£ª¾§Aªº°ÝÃD¬O¤°»ò¤F

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD