返回列表 上一主題 發帖

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

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

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 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

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題