上面的員工簡介是如何通過一次點(diǎn)擊轉(zhuǎn)換成品牌打印格式的？方法如下：

首先，按Alt F11快捷鍵打開“項(xiàng)目瀏覽器”窗口，即VBE窗口。

其次，單擊菜單[插入]---[模塊]，在模塊1代碼窗口中輸入以下代碼：

Sub 員工資料轉(zhuǎn)化為廠牌打印格式()

A = False

With Worksheets("廠牌打印格式")

.Select

.Cells.Clear

.DrawingObjec

Dim shp As Shape

For Each shp In Worksheets("員工資料表").Shapes

= (0, -3).Value

Next shp

Dim Rng As Range, i As Integer, TargetCell As Range

With Worksheets("員工資料表")

For Each Rng In .Range(.Range("A2"), .Cell, "A").End(xlUp))

i = i + 1

Set TargetCell = Cells(Int((i - 1) / 3) * 6 + 1, ((i - 1) Mod 3) * 3 + 1)

.Range("A1:E1," & Rng.Resize(1, 5).Address).Copy

Targe Paste:=xlPasteValues, Transpose:=True

.Shape).Copy

Sheets("廠牌打印格式").Paste

Selec = Targe(3, 1).Left

Selec = Targe(3, 1).Top

Targe(3, 1).RowHeight = Selec

Targe(3, 1).ColumnWidth = 9.5

Targe(3, 0).VerticalAlignment = xlCenter

Targe = xlContinuous

Next Rng

End With

End With

Range("C:C,F:F").ColumnWidth = 3.5

Range("A1").Activate

A = True

End Sub

模塊1代碼的截圖如下：

最后，我們把光標(biāo)置于模塊1代碼中的任意位置，點(diǎn)擊[運(yùn)行]按鈕，“員工資料表”中的所有信息將復(fù)制到“廠牌打印格式”工作表中，就會(huì)達(dá)到開篇所示的效果。

鳴謝：若喜歡這篇文章，記得點(diǎn)贊，評(píng)論，分享哦！