jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 179
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 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-G欄列下有資料的欄列

想要自動複製到工作表-步驟2

EXCEL-篩選.rar (13 KB)

樓主熱帖

Just do it.

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

小弟不才，只會這樣寫，不知適不適合。

Sub ex()
Dim f1, f2, f3 As Workbook
Set f1 = Sheets("步驟1")
Set f2 = Sheets("步驟2")
f1.Select
Application.ScreenUpdating = False
For Each aa In Range([A2], [A2].End(xlDown))
If aa.Offset(, 6) <> "" Then
f2.Select
NextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(NextRow, 2).Resize(1, 11) = aa.Offset(0, 0).Resize(1, 11).Value
End If
Next
f1.Select
Application.ScreenUpdating = True
End Sub

複製代碼

一分努力，一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 179
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2018-7-8 07:46 | 只看該作者

回復 2# faye59
您好！早安，非常感謝您的回覆
剛剛執行了VBA語法，狀況為會將資料複製到工作表"步驟1"(資料要複製到"步驟2")

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

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

Just do it.

TOP

jsc0518

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 179
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-10-2

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2018-7-8 18:55 | 只看該作者

回復 2# faye59
Hi 抱歉,原來VBA要放在ThisWorkbook下
TEST OK
有問題再跟您說，非常感謝您

Just do it.

TOP