在外貿(mào)業(yè)務(wù)中，經(jīng)常要跨平臺(tái)調(diào)用文件，從ERP系統(tǒng)或在線下單平臺(tái)導(dǎo)出的訂單，通常不能直接發(fā)送給客戶，如何快速轉(zhuǎn)化為自己想的格式呢？用VBA進(jìn)行一鍵轉(zhuǎn)化是不錯(cuò)的選擇。

以下為操作流程：

確定要保留哪些內(nèi)容。此處我選擇了產(chǎn)品編號(hào)、屬性、圖片、單價(jià)、數(shù)量、小計(jì)

編寫宏。可以在【開(kāi)發(fā)工具】選項(xiàng)卡下創(chuàng)建/錄制宏

為宏指定快捷鍵。【開(kāi)發(fā)工具】選項(xiàng)卡 - 宏 - 選項(xiàng)

導(dǎo)出時(shí)的樣式

轉(zhuǎn)化后的樣式

完整宏代碼及解釋

Sub 宏1()'統(tǒng)一格式: 字號(hào),行高,垂直居中對(duì)齊 Cells.Font.Size = 12 Cells.RowHeight = 40 Cells.VerticalAlignment = xlVAlignCenter'統(tǒng)一圖片尺寸與位置 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'調(diào)整列位置 - 整理顏色 - 整理價(jià)格 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'按產(chǎn)品型號(hào)排序 Columns("A:F").Sort [A1]End Sub

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。