麻辣家族討論版版 - Powered by Discuz! Board

標題: 一鍵轉貼工作表且排序改如何做呢 [打印本頁]

作者: enhrulee 時間: 2011-7-7 02:13 標題: 一鍵轉貼工作表且排序改如何做呢

小的想從WEB抓取資料在SHEET1後
利用按鍵執行巨集將SHEET1內第二列以下的內容複製到SHEET2
且在SHEET依照I欄(成交張數)由大到小排序
不知道該怎麼做
不知道有沒有前輩可以幫忙呢

作者: luhpro 時間: 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
我想應該就能達到你要的結果了.

(程式要放在模組區內)

Sub nn()
Dim iRowEnd%
iRowEnd = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Sheet1")
.Range(.Cells(2, 1), .Cells(iRowEnd, 10)).Copy
End With
With Sheets("Sheet2")
.Paste Destination:=.Cells(1, 1)
.Range("A2").Sort _
Key1:=.Columns("I"), _
Header:=xlGuess
End With
End Sub

複製代碼

作者: enhrulee 時間: 2011-7-7 12:39

大致步驟如下 :
首先可以先找到資料區最末一列的列號
iRowEnd = Sheets("Sheet1").Cells(Rows.Count, ...
luhpro 發表於 2011-7-7 05:32

超感謝的
果然很迅速的排列出來了
真的很厲害耶~~~
謝謝你~:$

作者: GBKEE 時間: 2011-7-7 16:34

回復 2# luhpro
依樓主的附檔簡化如下

Sub Ex()
With Sheet2
.Cells.Clear
Sheet1.Range("A3").CurrentRegion.Copy .[A1]
.[A1].Sort Key1:=.Columns("I"), Header:=xlYes
End With
End Sub

複製代碼

作者: am0251 時間: 2011-7-7 17:09

GBKEE版主,我想問一下,這個"With Sheet2"的用法,如果我想再多加一頁做相同的工作,可是貼上的位置不一樣,該怎麼寫呢?謝謝!

作者: GBKEE 時間: 2011-7-7 19:30

回復 5# am0251
是這樣嗎?

Sub Ex()
Dim Rng As Range
Set Rng = Sheet1.Range("A3").CurrentRegion
With Sheet2
.Cells.Clear
Rng.Copy .[A1]
.[A1].Sort Key1:=.Columns("I"), Header:=xlYes
End With
With Sheet3
.Cells.Clear
Rng.Copy .[B3]
'
'
End With
End Sub

複製代碼

作者: am0251 時間: 2011-7-8 16:45

就是這個意思,只是我還沒學過"With"的這種用法,它還有其他的用途嗎?

作者: GBKEE 時間: 2011-7-8 19:43

回復 7# am0251
可看說明 With 陳述式

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)