Board logo

標題: [發問] 如何用VBA找出資料並複製到新頁面上 [打印本頁]
作者: jamie414586    時間: 2017-4-11 09:36     標題: 如何用VBA找出資料並複製到新頁面上

設計一個VBA想從一堆資料中找出要的資料，並把資料複製到另外新頁面上。
試著做完，程式卻只跑查找固定位置，不知道該如何修改。
公司之前的前輩留下檔案，看不出來程式，但這程式執行方式，是小妹需要的
想請教各位大大幫忙，小妹真的需要這個表格篩選資料，請各位大大們指導一二，謝謝。
[attach]26989[/attach]
作者: cw3076    時間: 2017-4-12 18:40

試試看可不可以
  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    時間: 2017-4-15 18:40

謝謝您，可小妹用上之後跳出錯誤，但不知道小妹哪裡用錯了，再麻煩大大幫忙，謝謝您。
作者: cw3076    時間: 2017-4-15 23:12

試一下 按妞2
作者: jamie414586    時間: 2017-4-16 13:02

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



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