麻辣家族討論版版 » Excel程式區 » 如何用VBA找出資料並複製到新頁面上

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: Win7
軟體版本: Excel 2013
閱讀權限: 10
性別: 女
來自: 台北
註冊時間: 2017-4-5
最後登錄: 2017-4-20

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-4-11 09:36 | 只看該作者

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

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

公報軟件.rar (89.32 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 1
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-8-13

2^#

發表於 2017-4-12 18:40 | 只看該作者

試試看可不可以

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

複製代碼

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: Win7
軟體版本: Excel 2013
閱讀權限: 10
性別: 女
來自: 台北
註冊時間: 2017-4-5
最後登錄: 2017-4-20

3^#

發表於 2017-4-15 18:40 | 只看該作者

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

中學生 Rank: 2

帖子: 42
主題: 12
精華: 0
積分: 283
點名: 1
作業系統: WINDOWS XP
軟體版本: SP2
閱讀權限: 20
來自: KAOHSIUNG
註冊時間: 2010-5-8
最後登錄: 2024-8-13

4^#

發表於 2017-4-15 23:12 | 只看該作者

試一下按妞2

專利公報軟件(抓公報).zip (47.27 KB)

小學生 Rank: 1

帖子: 5
主題: 3
精華: 0
積分: 11
點名: 0
作業系統: Win7
軟體版本: Excel 2013
閱讀權限: 10
性別: 女
來自: 台北
註冊時間: 2017-4-5
最後登錄: 2017-4-20

5^#

發表於 2017-4-16 13:02 | 只看該作者

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

靜思自在 : 發脾氣是短暫的發瘋。

返回列表下一主題上一主題