返回列表 上一主題 發帖

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

jamie414586

帖子
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)
收藏 分享

jamie414586

帖子
5 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
Win7 
軟體版本
Excel 2013 
閱讀權限
10 
性別
女 
來自
台北 
註冊時間
2017-4-5 
最後登錄
2017-4-20 
5#
發表於 2017-4-16 13:02 | 只看該作者
謝謝大大，可以使用，實在太感謝。
小妹想再請教一下，如果要選出所有地址的話，是要怎麼更改設定?
不好意思，小妹自己用了一下，還是不能像大大這樣跑動，再麻煩大大，謝謝大大

TOP

cw3076

帖子
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)

TOP

jamie414586

帖子
5 
主題
3 
精華
0 
積分
11 
點名
0  
作業系統
Win7 
軟體版本
Excel 2013 
閱讀權限
10 
性別
女 
來自
台北 
註冊時間
2017-4-5 
最後登錄
2017-4-20 
3#
發表於 2017-4-15 18:40 | 只看該作者
謝謝您，可小妹用上之後跳出錯誤，但不知道小妹哪裡用錯了，再麻煩大大幫忙，謝謝您。

TOP

cw3076

帖子
42 
主題
12 
精華
0 
積分
283 
點名
1  
作業系統
WINDOWS XP 
軟體版本
SP2 
閱讀權限
20 
來自
KAOHSIUNG 
註冊時間
2010-5-8 
最後登錄
2024-8-13 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題