返回列表 上一主題 發帖

如何從A檔案中選取篩選範圍資料後再複製B檔案中?

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-5-23 19:06 | 顯示全部帖子
回復 1# ckl520

設A.XLS與B.XLS均已開啟

A.XLS之一般模組程式碼
  1. Sub XX()
  2. With Workbooks("A.XLS").Sheets("Sheet1")
  3.   R1 = Application.Match("P/N", .[A:A], 0)
  4.   R2 = Application.Match("Note", .[A:A], 0)
  5.   Workbooks("B.XLS").Sheets("Sheet1").[A1].CurrentRegion = ""
  6.   .Rows(R1 + 1 & ":" & R2 - 1).Copy Workbooks("B.XLS").Sheets("Sheet1").[A1]
  7. End With
  8. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題