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

¦p¦ó§â¸ê®Æ²¾¨ì³Ì¥ª

¦p¦ó§â¸ê®Æ²¾¨ì³Ì¥ª

¥»©«³Ì«á¥Ñ basarasy ©ó 2010-10-31 00:00 ½s¿è

[attach]3437[/attach]½Ð°Ý¤j¤j¦³¤°»ò¤èªk¥i¥H°µ¨ì.

122.JPG (50.21 KB)

122.JPG

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

Cells.SpecialCells(4).Delete (1)

TOP

f5~¯S®í~ªÅ®æ~½T©w~¥kÁä¿ï§R°£~¥k°¼Àx¦s®æ¥ª²¾~½T©w¡C

TOP

¥»©«³Ì«á¥Ñ basarasy ©ó 2010-10-31 00:01 ½s¿è

¦^´_ 2# oobird
½Ð°Ý¤j¤j¥i¥H¥u©w  D1:F5(¥ª¥k2®Ç³£¥¬¸ê®Æ] ©M¤£DEL³s½u¶Ü?

122.JPG (50.21 KB)

122.JPG

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# basarasy
  1. Sub Ex()
  2. With ActiveSheet
  3. Dim Ay(5, 3)
  4. For i = 1 To 5
  5.    For j = 4 To 6
  6.      If .Cells(i, j) <> "" Then
  7.         Ay(i - 1, s) = .Cells(i, j).Value
  8.         s = s + 1
  9.      End If
  10.    Next
  11.    For x = s To 2
  12.      Ay(i - 1, x) = ""
  13.    Next
  14.     s = 0
  15. Next
  16. .[D1:F5].ClearContents
  17. .[D1:F5] = Application.Transpose(Application.Transpose(Ay))
  18. End With
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 5# Hsieh
ÁÂÁÂHsieh¤j¤j.
­n§ïArray ¤j¤p¥u­n§ï´X­Ó¼Æ´N¦n¤F.><
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 4# basarasy
¥Î½d³ò¨Ó¾ã²z
  1. Sub Ex()
  2.     Dim Rng(1 To 2) As Range
  3.     Set Rng(1) = ActiveSheet.Range("D1:G7")     '­n¾ã²zªº½d³ò
  4.     Set Rng(2) = ActiveSheet.Range("ID1:IG7")   '¼È¦s½d³ò
  5.     Rng(1).Copy Rng(2)
  6.     Rng(2).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftToLeft  '§R°£ªÅ¥Õ
  7.     Rng(2).Copy Rng(1)
  8.     Rng(2).Clear
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# GBKEE
ÁÂÁÂGBKEE¤j¤j.
½Ð°Ý¤j¤j¥i¥H¸Ñ»¡³o¥y¶Ü?
Rng(2).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftToLeft
ÁÙ¦³¤j¤j­Ìªºvba«Ü±j¤j,¬O¦p¦ó¾Ç·|ªº?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 8# basarasy
Rng(2).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftToLeft   ->¦bRng(2)¤¤ §R°£(Rng(2).(¤¤ªºªÅ¥ÕÀx¦s®æ). (¥k¹ýÀx¦s®æ¥ª²¾)
§A¥i¸Ô¬ÝVBA »¡©ú SpecialCells ,Delete ªº¥Îªk

TOP

¦^´_ 9# GBKEE
ÁÂÁ¤j¤jªº»¡©ú.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD