在外貿業務中，經常要跨平臺調用文件，從ERP系統或在線下單平臺導出的訂單，通常不能直接發送給客戶，如何快速轉化為自己想的格式呢？用VBA進行一鍵轉化是不錯的選擇。

以下為操作流程：

確定要保留哪些內容。此處我選擇了產品編號、屬性、圖片、單價、數量、小計

編寫宏。可以在【開發工具】選項卡下創建/錄制宏

為宏指定快捷鍵。【開發工具】選項卡 - 宏 - 選項

導出時的樣式

轉化后的樣式

完整宏代碼及解釋

Sub 宏1()'統一格式: 字號,行高,垂直居中對齊 Cells.Font.Size = 12 Cells.RowHeight = 40 Cells.VerticalAlignment = xlVAlignCenter'統一圖片尺寸與位置 ActiveSheet.DrawingObjects.ShapeRange.Height = 28.3464566929 ActiveSheet.DrawingObjects.ShapeRange.IncrementTop -18 ActiveSheet.DrawingObjects.ShapeRange.IncrementLeft 8'刪除多余的行與列 Cells.UnMerge Rows("1:2").Delete Range("A:A,C:D,G:H").Delete Columns("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete'調整列位置 - 整理顏色 - 整理價格 Columns("A:A").Cut Columns("D:D").Insert Shift:=xlShiftToRightColumns("B:B").Replace What:="{""color"":""", Replacement:="" Columns("B:B").Replace What:="""}", Replacement:=""Range("D:D, F:F").NumberFormatLocal = "#,##0.00_ ;[紅色]-#,##0.00" Columns("E:E").NumberFormatLocal = "#,##0 ;[紅色]-#,##0.00" Columns("F:F").HorizontalAlignment = xlHAlignRight'按產品型號排序 Columns("A:F").Sort [A1]End Sub

總結

以上是生活随笔為你收集整理的用VBA自动整理系统导出的订单的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。