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

[µo°Ý] µ{¦¡¥u¯à¤@¦¸, ¤£¯à­«ÂЫö¦^ÃD

[µo°Ý] µ{¦¡¥u¯à¤@¦¸, ¤£¯à­«ÂЫö¦^ÃD

¥H¤Uµ{¦¡½X, §Ú¬O·Q¦bSheet2§¹¦¨¿z¿ï«á, µM«á§â¸ê®Æ¶K¨ìSheet1¥h, ¦ý§Ú¥u¯à°µ¤@¦¸, ¤£¯à¤@ª½­«ÂЫö, ¬°¤°»ò©O?

Private Sub CommandButton1_Click()
    Range("C3:H2000").Replace "#N/A N/A", ""
   
    Dim Rng As Range, R As Range
    For Each R In Range("A1").CurrentRegion.Rows
        If R.Cells(3) = "" Then If Rng Is Nothing Then Set Rng = R Else Set Rng = Union(Rng, R)
    Next
    Rng.Delete xlUp
   
    Rows(2).Select
    Selection.Delete Shift:=xlUp
   
    Columns(1).Select
    Selection.Delete Shift:=xlUp
   
    Range("A2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.copy
    Sheets("Sheet1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   
End Sub

¦^´_ 1# patrickccs
'ª«¥ó.Selectªº¤èªk,ª«¥ó¥²¬O§@¥Î¤¤µøµ¡ªºª«¥ó
½Ð°Ý³oµ{¦¡½X¬O©ñ¦b Sheets("Sheet1")¤u§@ªíª«¥ó¼Ò²Õ¶Ü?
  1. Private Sub CommandButton1_Click()
  2.     Range("A2:G2").Select
  3.     Range(Selection, Selection.End(xlDown)).Select
  4.     Selection.Copy
  5.     Sheets("Sheet2").Select   '¦³§ïÅܧ@¥Î¤¤ªº¤u§@ªí¶Ü?
  6.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  7.         :=False, Transpose:=False
  8. '***********************************
  9.     Me.Activate  '¦^¨ì³o¤u§@ªíª«¥ó¼Ò²Õªº¤u§@ªí
  10. '***********************************
  11.    'Rows(2).Select
  12.     '³oRows(2)¬O¤u§@ªíª«¥ó¼Ò²Õ¤u§@ªíªºª«¥ó
  13.     'ª«¥ó.Select: ³oª«¥ó¥²¬O§@¥Î¤¤µøµ¡ªºª«¥ó
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD