返回列表 上一主題 發帖

一鍵轉貼工作表且排序改如何做呢

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
1# 跳轉到 »
發表於 2011-7-7 05:32 | 顯示全部帖子
大致步驟如下 :
首先可以先找到資料區最末一列的列號
    iRowEnd = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
接著 Copy 想要處理的資料
   Sheets("Sheet1").Range(Sheets("Sheet1")..Cells(2, 1), Sheets("Sheet1")..Cells(iRowEnd, 10)).Copy
再貼過去
   Sheets("Sheet2").Paste Destination:=Sheets("Sheet2").Cells(1, 1)
最後做排序
   Worksheets("Sheet2").Range("A2").Sort _
        Key1:=Worksheets("Sheet2").Columns("I"), _
        Header:=xlGuess
我想應該就能達到你要的結果了.

(程式要放在模組區內)
  1. Sub nn()
  2.   Dim iRowEnd%
  3.   iRowEnd = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
  4.   With Sheets("Sheet1")
  5.     .Range(.Cells(2, 1), .Cells(iRowEnd, 10)).Copy
  6.   End With
  7.   With Sheets("Sheet2")
  8.     .Paste Destination:=.Cells(1, 1)
  9.      .Range("A2").Sort _
  10.         Key1:=.Columns("I"), _
  11.         Header:=xlGuess
  12.   End With
  13. End Sub
複製代碼

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題