[發問] 如何用VBA找出資料並複製到新頁面上

jamie414586

設計一個VBA想從一堆資料中找出要的資料，並把資料複製到另外新頁面上。
試著做完，程式卻只跑查找固定位置，不知道該如何修改。
公司之前的前輩留下檔案，看不出來程式，但這程式執行方式，是小妹需要的
想請教各位大大幫忙，小妹真的需要這個表格篩選資料，請各位大大們指導一二，謝謝。
公報軟件.rar (89.32 KB)

下載次數: 12

2017-4-11 09:36

cw3076

試試看可不可以

1. bookname = ActiveWorkbook.Name
   
2. J = Workbooks(bookname).Worksheets("全").[D65536].End(xlUp).Row
   
3. Worksheets("原始資料").[A:A].Find("地址").Activate
   
4. Selection.Copy
   
5. Workbooks(bookname).Worksheets("全").Range("D" & J + 1).PasteSpecial Paste:=xlPasteValues
   
6. Application.CutCopyMode = False

複製代碼

jamie414586

謝謝您，可小妹用上之後跳出錯誤，但不知道小妹哪裡用錯了，再麻煩大大幫忙，謝謝您。

cw3076

試一下 按妞2

jamie414586

謝謝大大，可以使用，實在太感謝。
小妹想再請教一下，如果要選出所有地址的話，是要怎麼更改設定?
不好意思，小妹自己用了一下，還是不能像大大這樣跑動，再麻煩大大，謝謝大大