返回列表 上一主題 發帖

列増減

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
1# 跳轉到 »
發表於 2010-5-18 20:45 | 顯示全部帖子
參考一下這篇文章...
http://forum.twbts.com/viewthread.php?tid=251&extra=page%3D1
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2010-5-19 21:25 | 顯示全部帖子
PD961A 謝謝示教經測試與我想要結果有不同，可能是我表達不好再說明Sheet1!O2:O35565(每次數量不一樣)COPY至 ...
y663258 發表於 2010/5/19 05:46 PM





大概是這樣子! 其他的用錄製 因該都可以辦的到...

Sub test()
    Dim lS1RowEnd As Long
    Dim lS2RowEnd As Long
   
    lS1RowEnd = Worksheets("Sheet1").Range("Q65536").End(xlUp).Row
    lS2RowEnd = Worksheets("Sheet2").Range("B5").End(xlDown).Row + 1
   
    Worksheets("Sheet2").Rows(lS2RowEnd & ":" & lS1RowEnd + lS2RowEnd - 2).Insert Shift:=xlDown
   
    Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(2, 17), Worksheets("Sheet1").Cells(lS1RowEnd, 17)).Copy Worksheets("Sheet2").Cells(lS2RowEnd, 2)
End Sub

複製 -9801010630co2.rar (97.1 KB)

若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題