stillfish00

¦^´_ 3# billchenfantasy
>> Private Sub CommandButton1_Click()
>> ¥H¤W¬O±N¸ê®Æ¶×¤J¨Ã¶}·sªº¤u§@ªí(¦P®É¦WºÙ¬°¸Ó¸ê®ÆÀÉ)½Ð°Ý­n¦p¦ó³]¸m¦Û°Ê©R¦W¬°¦P¤@­Ó¤u§@ªí¦WºÙ?

¤£©ú¥Õ§Aªº·N«ä , §A½Æ»s¤u§@ªí¹L¨Ó®É¦W¦rÀ³¸Ó¬O©M­ì¥»¤u§@ªí¤@¼Ëªº

>>Private Sub CommandButton2_Click()

¸Õ¸Õ¬Ý
Private Sub CommandButton2_Click()
With Sheets("¤u§@ªí¦WºÙ")
    .[A1].CurrentRegion.Sort Key1:=.[E:E], Order1:=xlAscending, _
                             Key2:=.[F:F], Order2:=xlAscending, _
                             Header:=xlYes
    .Range("A:C,E:I,K:L,Q:Q").Delete Shift:=xlToLeft
End With
End Sub

billchenfantasy

·PÁ±zªº¦^µª¨ä¹ê¬O¦]¬°Àɮ׫ܦh¸ê®Æªø«×½d³ò¤£¤@©w¡A·Q¶}©l¾Ç²ßVBA©Ò­P¡A§Ú¦Û¤v¨ä¹ê¦³¥ý¥Î¿ý»s¥¨¶°ªº¤è¦¡¸Õ¹L¦p¤U¨Ã³]¬°¨â­Ó«ö¶s¡A·s¤â¾Ç²ß½Ð±z¥]§t
Private Sub CommandButton1_Click()
Dim uFile$
ChDrive "¸ê®ÆºÏºÐ"
ChDir "¸ê®Æ¸ô®|"
Source = Application.GetOpenFilename
With Workbooks.Open(Source)
   For i = 1 To ActiveWorkbook.Sheets.Count
    .Sheets(i).Copy after:=ThisWorkbook.Worksheets(Sheets.Count)
   Next i
  .Close
End With
End Sub
¥H¤W¬O±N¸ê®Æ¶×¤J¨Ã¶}·sªº¤u§@ªí(¦P®É¦WºÙ¬°¸Ó¸ê®ÆÀÉ)½Ð°Ý­n¦p¦ó³]¸m¦Û°Ê©R¦W¬°¦P¤@­Ó¤u§@ªí¦WºÙ?
----------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Cells.Select
    Cells.EntireColumn.AutoFit
    Application.WindowState = xlMaximized
    ActiveWorkbook.Worksheets("¤u§@ªí¦WºÙ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("¤u§@ªí¦WºÙ").Sort.SortFields.Add Key:=Range( _
        "land_no_mªº½d³ò"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    ActiveWorkbook.Worksheets("¤u§@ªí¦WºÙ").Sort.SortFields.Add Key:=Range( _
        "land_no_cªº½d³ò"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortTextAsNumbers
    With ActiveWorkbook.Worksheets("¤u§@ªí¦WºÙ").Sort
        .SetRange Range("¸ê®Æ¥þ½d³ò")----->­n«ç»ò³]­pµL½×¸ê®Æ¦hªø³£¥i¥H¿ï°_©O?¬O(.Range("A1").CurrentRegion)¶Ü
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.Width = 831
    Application.Height = 810
    Columns("A:C").Select
    Range("C1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("B:F").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("C").Select
    Selection.Delete Shift:=xlToLeft
    Columns("G:G").Select
    Selection.Delete Shift:=xlToLeft
    Range("J1").Select
End Sub
-------------------------------------------------------------
¨ä¹ê§Ú¬O·Q«ü©w§R°£¤W­z¯S©w¼ÐÃDªºÄæ¦ì

stillfish00

¦^´_ 1# billchenfantasy
¨Ì§A±Ô­zªº»Ý¨DÀ³¸Ó¥Î¤@¯ëExcel¾Þ§@´N¥i¹F¦¨:
¥ý±N¤£¥²­nªºÄæ§R°£ , ¦A¨ì  ¸ê®Æ>±Æ§Ç(excel 2010)  ³]©w§Y¥i