Excel VBA-填充Avery模板

时间:2018-07-24 22:04:05

标签: excel vba excel-vba excel-formula

在这里寻找一些集体的头脑风暴,因为这很可能需要多个步骤来完成我设想的正确方法:

下面有一张名为“数据”的工作表图片,是从名为“ Entry”的数据输入工作表中填充的。

Sheets("Data")

注意:页眉和后续数据“名称/年龄/性别”跨多个列(并被合并)的原因是由于“条目”页面的设计布局复杂(即较差),我被指示不要改变……

我在CommandButton上具有以下VBA过程,该过程将User_Data范围从Sheets(“ Entry”)复制到Sheets(Data)

Private Sub CommandButton1_Click()
Worksheets("Entry").Range("User_Data").Copy 
Destination:=Sheets("Data").Range("A2")
End Sub

此处的最终目标是将存储在Sheets(“数据”)中的信息填充到第三个工作表– Sheets(“ Labels”)中。

Sheets("Labels")

此页设置为模仿Avery标签/贴纸模板的尺寸-每8.5“ x11”页4张贴纸。

我已经链接了通过引用公式导入的第一个Labels数据:

C6 (Number): ='Data'!A2
C10 (Name):  = ‘Data'!B2
C14 (Age):   = ‘Data'!M2
C18 (Sex):   = ‘Data'!O2

如何使用VBA代码创建多页标签(即,复制/粘贴/ InsertBelow范围(“ A1:H41”)),并根据需要将在Sheets(“数据”)中找到的User_Data自动填充到标签上,以匹配任何可能在Sheets(“ Data”)中存储的条目。

0 个答案:

没有答案