返回列表 上一主題 發帖

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

enhrulee

帖子
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)

收藏 分享

luhpro

帖子
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
我想應該就能達到你要的結果了.

(程式要放在模組區內)
  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

enhrulee

帖子
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

GBKEE

帖子
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
依樓主的附檔簡化如下
  1. Sub Ex()
  2.     With Sheet2
  3.         .Cells.Clear
  4.         Sheet1.Range("A3").CurrentRegion.Copy .[A1]
  5.         .[A1].Sort Key1:=.Columns("I"), Header:=xlYes
  6.     End With
  7. End Sub
複製代碼

TOP

am0251

帖子
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

帖子
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
是這樣嗎?
  1. Sub Ex()
  2.     Dim Rng As Range
  3.     Set Rng = Sheet1.Range("A3").CurrentRegion
  4.     With Sheet2
  5.         .Cells.Clear
  6.         Rng.Copy .[A1]
  7.         .[A1].Sort Key1:=.Columns("I"), Header:=xlYes
  8.     End With
  9.     With Sheet3
  10.         .Cells.Clear
  11.         Rng.Copy .[B3]
  12.         
  13.         '
  14.         '
  15.     End With
  16. End Sub
複製代碼

TOP

am0251

帖子
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

帖子
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

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題