返回列表 上一主題 發帖

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

ckl520

帖子
6 
主題
2 
精華
0 
積分
8 
點名
0  
作業系統
windows 
軟體版本
Win2000 
閱讀權限
10 
性別
男 
註冊時間
2012-5-23 
最後登錄
2013-8-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-23 09:38 | 只看該作者

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


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

kevin681024

帖子
23 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
WIn7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-3-30 
最後登錄
2013-7-10 
2#
發表於 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
複製代碼
80 字節以內
不支持自定義 Discuz! 代碼

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
3#
發表於 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

ckl520

帖子
6 
主題
2 
精華
0 
積分
8 
點名
0  
作業系統
windows 
軟體版本
Win2000 
閱讀權限
10 
性別
男 
註冊時間
2012-5-23 
最後登錄
2013-8-13 
4#
發表於 2012-5-24 10:00 | 只看該作者
感謝上面兩位高手出手...
問題已解決!!
感恩
thanks~

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題