返回列表 上一主題 發帖

[發問] 請問：指定欄位有資料時，複製至其他工作表中

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
78  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-4-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-7-7 18:26 | 只看該作者

[發問] 請問：指定欄位有資料時，複製至其他工作表中

Dear 各位Excel先進,
我有工作表"步驟1"內有相關資料，其中在G欄位"數量1"下有出現資料(數據)時，想要利用VBA自動COPY到""步驟2"中
想與各位請教VBA語法，謝謝大家！

工作表-步驟1

步驟1

01.jpg
2018-7-7 18:23


工作表-步驟1-G欄列下有資料的欄列
02.jpg
2018-7-7 18:23


想要自動複製到工作表-步驟2
03.jpg
2018-7-7 18:23


EXCEL-篩選.rar (13 KB)
收藏 分享
Just do it.

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
78  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-4-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
4#
發表於 2018-7-8 18:55 | 只看該作者
回復 2# faye59
Hi 抱歉,原來VBA要放在ThisWorkbook下
TEST OK
有問題再跟您說，非常感謝您
Just do it.

TOP

jsc0518

帖子
450 
主題
110 
精華
0 
積分
557 
點名
78  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2013-11-7 
最後登錄
2024-4-18 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章論壇贊助勳章
3#
發表於 2018-7-8 07:46 | 只看該作者
回復 2# faye59
您好！早安，非常感謝您的回覆
剛剛執行了VBA語法，狀況為會將資料複製到工作表"步驟1"(資料要複製到"步驟2")
Noname.jpg
2018-7-8 07:44


另外，在"步驟1"H欄位(數量2)有設定公式，複製過去時，是否也可以跟著過去

我自己有錄製巨集(篩選G欄下有數據資料後，再用COPY的)，但是錄製巨集都是複製一樣的欄列，無法判斷G欄有資料時都是複製，是否可以幫忙
Just do it.

TOP

faye59
　暱稱: 温奇
　頭銜: 議論者

中學生Rank: 2

帖子
104 
主題
5 
精華
0 
積分
110 
點名
0  
作業系統
win7 
軟體版本
Office2007 
閱讀權限
20 
性別
男 
註冊時間
2017-11-14 
最後登錄
2019-4-30 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-7-7 22:08 | 只看該作者
回復 1# jsc0518


    小弟不才，只會這樣寫，不知適不適合。
  1. Sub ex()
  2. Dim f1, f2, f3 As Workbook
  3. Set f1 = Sheets("步驟1")
  4. Set f2 = Sheets("步驟2")
  5. f1.Select
  6. Application.ScreenUpdating = False
  7. For Each aa In Range([A2], [A2].End(xlDown))
  8. If aa.Offset(, 6) <> "" Then
  9.     f2.Select
  10.     NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
  11.     Cells(NextRow, 2).Resize(1, 11) = aa.Offset(0, 0).Resize(1, 11).Value
  12. End If
  13. Next
  14. f1.Select
  15. Application.ScreenUpdating = True
  16. End Sub
複製代碼
一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題