- 帖子
- 42
- 主題
- 12
- 精華
- 0
- 積分
- 283
- 點名
- 1
- 作業系統
- WINDOWS XP
- 軟體版本
- SP2
- 閱讀權限
- 20
- 來自
- KAOHSIUNG
- 註冊時間
- 2010-5-8
- 最後登錄
- 2026-10-25
|
試試看可不可以- 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
|
|
發表於 2017-4-12 18:40
| 
