標題: 如何從A檔案中選取篩選範圍資料後再複製B檔案中? [打印本頁]

---

作者: ckl520    時間: 2012-5-23 09:38     標題: 如何從A檔案中選取篩選範圍資料後再複製B檔案中?

[attach]11105[/attach]
請教各位高手&大大;
新手遇到一個問題，懇請解惑。thanks~
-->如何從A檔案中選取篩選範圍資料後再複製B檔案中?
如圖所示。

---

作者: kevin681024    時間: 2012-5-23 16:33

回復 1# ckl520


    以下範例將第一個工作表的篩選內容複製到第二個工作表
    可以依需求自行調整

1. Sub Test()
   
2.     '複製前先將目的工作表清空
   
3.     Sheets(2).UsedRange.Clear
   
4.     '從來源工作表複製可見的儲存格到目的工作表
   
5.     Sheets(1).UsedRange.SpecialCells(xlCellTypeVisible).Copy _
   
6.         Destination:=Sheets(2).Range("A1")
   
7. End Sub

複製代碼

---

作者: register313    時間: 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

複製代碼

---

作者: ckl520    時間: 2012-5-24 10:00

感謝上面兩位高手出手...
問題已解決!!
感恩
thanks~

---

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