- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 98
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-4-27
              
|
本帖最後由 Hsieh 於 2012-4-28 21:37 編輯
回復 13# PJChen
請依照目前PKG現有資料，你想要的最後結果用手動操作完成上傳
因為以你錯誤的程式碼是無法了解你要的目的為何
如果單純將該範圍轉成值- Sub Try()
- With Workbooks("PKG.xlsx")
- With .Sheets("PKG")
- Set a = .Range("D:D").Find("Shipped per SS:", LOOKAT:=xlPart)
- Set b = .Range("D:D").Find("PACKING:")
- If a Is Nothing Or b Is Nothing Then
- MsgBox "找不到"
- Else
- .Range(a, b.Offset(, 11)) = .Range(a, b.Offset(, 11)).Value
- End If
- End With
- End With
- End Sub
|
|
發表於 2012-4-28 21:29
| 
