[發問] 排序後刪除特定攔位

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

2^#

發表於 2013-1-23 09:55 | 顯示全部帖子

感謝您的回答其實是因為檔案很多資料長度範圍不一定，想開始學習VBA所致，我自己其實有先用錄製巨集的方式試過如下並設為兩個按鈕，新手學習請您包含
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
以上是將資料匯入並開新的工作表(同時名稱為該資料檔)請問要如何設置自動命名為同一個工作表名稱?
----------------------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Cells.Select
Cells.EntireColumn.AutoFit
Application.WindowState = xlMaximized
ActiveWorkbook.Worksheets("工作表名稱").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("工作表名稱").Sort.SortFields.Add Key:=Range( _
      "land_no_m的範圍"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      xlSortTextAsNumbers
ActiveWorkbook.Worksheets("工作表名稱").Sort.SortFields.Add Key:=Range( _
      "land_no_c的範圍"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("工作表名稱").Sort
      .SetRange Range("資料全範圍")----->要怎麼設計無論資料多長都可以選起呢?是(.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
-------------------------------------------------------------
其實我是想指定刪除上述特定標題的欄位

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

3^#

發表於 2013-1-23 12:20 | 顯示全部帖子

@@Private Sub CommandButton2_Click()
的OK了對於您的解答感謝萬分，我來好好研究一下
Private Sub CommandButton1_Click()的意思是說
"複製工作表過來時名字應該是和原本工作表一樣的"沒錯
因為我的檔案有很多，而且雖然內容格式一樣但檔名不一樣，我的想法是要怎麼樣
把不同檔名的檔案匯進來之後都可以執行Private Sub CommandButton2_Click()，
因為指定的With Sheets("工作表名稱")工作表名稱會變
等這個都了解了接下來再想下一步怎麼批次
再次謝謝你歐

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

4^#

發表於 2013-1-23 16:04 | 顯示全部帖子

感謝stillfish00 這對我這菜鳥來說，看起來簡直是變魔術，感恩，是您的匯入方式比較合理，
.Range("A:C,E:I,K

,Q

").Delete Shift:=xlToLeft是直接選定欄位
最後一個問題是所謂"刪除特定攔位"可以是指定保留(section) (SC) (LANDUSE) (PUBNO) (OPTION) (METHOD) (MUPLAN) (DUPLAN) (ORG_FID)標題的一整個欄位，其他無論甚麼標題的欄位都刪掉的寫法嗎(用以確保批次時某一個檔的例外多一條無須保留的攔位)

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

5^#

發表於 2013-1-24 09:29 | 顯示全部帖子

感激~註解詳細~感覺上了一課@@謝謝您的解答

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

6^#

發表於 2013-1-25 12:03 | 顯示全部帖子

遇到問題了@@如果需要以land_no_m為KEY1與land_no_c為KEY2去做排序以下排序的程序該如何修改ㄋ

If Not IsError(Application.Match("land_no_m", .Rows(1), 0)) Then .[A1].CurrentRegion.Sort Key1:=.Columns(Application.Match("land_no_m", .Rows(1), 0)), Order1:=xlAscending, Header:=xlYes

If Not IsError(Application.Match("land_no_c", .Rows(1), 0)) Then .[A1].CurrentRegion.Sort Key1:=.Columns(Application.Match("land_no_c", .Rows(1), 0)), Order1:=xlAscending, Header:=xlYes

帖子: 25
主題: 4
精華: 0
積分: 50
點名: 0
作業系統: windows 2007
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-1-22
最後登錄: 2014-4-29

7^#

發表於 2013-1-25 14:10 | 顯示全部帖子

@@是的每張欄位格式都是一樣的，所以land_no_m, land_no_c 每張表都有，只有少數才有多一行的狀況才會想說指定欄位，感謝您的再度協助