返回列表 上一主題 發帖

各位大哥好請問一個表單轉換巨集問題

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
1# 跳轉到 »
發表於 2015-9-19 15:44 | 顯示全部帖子
本帖最後由 准提部林 於 2015-9-19 15:49 編輯

假如資料這麼有規則．參考：
  1. Sub Macro1()
  2. Dim xU As Range
  3. Sheets("PKG").UsedRange.Copy [工作表2!A1] '貼入全部資料
  4. Set xU = [工作表2!D:D].SpecialCells(xlCellTypeConstants, 2) '取得"PC"字樣全部儲存格
  5. xU.Offset(1, -3).ClearContents '清除[箱號]下方數字
  6. With xU.Offset(, -2)
  7. 　　　.Item(1).Delete Shift:=xlUp 'B欄上移一格
  8. 　　　.EntireRow.Delete '刪去列
  9. End With
  10. End Sub
複製代碼
或：
  1. Sub Macro2()
  2. Sheets("PKG").UsedRange.Copy [工作表2!A1]
  3. With [工作表2!D:D].SpecialCells(xlCellTypeConstants, 2).Offset(, -2)
  4. 　　　.Offset(1, -1).ClearContents '清除[箱號]下方數字
  5. 　　　.Item(1).Delete Shift:=xlUp 'B欄上移一格
  6. 　　　.EntireRow.Delete '刪去列
  7. End With
  8. End Sub
複製代碼

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題