帖子: 10
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: windows xp
軟體版本: vb2008
閱讀權限: 10
註冊時間: 2011-1-28
最後登錄: 2011-8-2

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-7-7 02:13 | 只看該作者

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

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

排序.rar (9.84 KB)

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2011-7-8 19:43 | 只看該作者

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

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

7^#

發表於 2011-7-8 16:45 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 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

複製代碼

TOP

am0251

中學生 Rank: 2

帖子: 65
主題: 11
精華: 0
積分: 83
點名: 0
作業系統: Window 7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2012-5-21

5^#

發表於 2011-7-7 17:09 | 只看該作者

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

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 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

複製代碼

TOP

enhrulee

小學生 Rank: 1

帖子: 10
主題: 4
精華: 0
積分: 20
點名: 0
作業系統: windows xp
軟體版本: vb2008
閱讀權限: 10
註冊時間: 2011-1-28
最後登錄: 2011-8-2

3^#

發表於 2011-7-7 12:39 | 只看該作者

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

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

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 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

複製代碼

TOP