标签是由一些小纸片组成的，它们提供了一个物体的信息。 事实上，这篇文章描绘了如何从Excel中打印艾利标签。

下载实践工作手册

你可以从下面的链接中下载实践工作手册。

打印艾利标签.xlsm

打印艾利标签.docx

从Excel打印艾利标签的2种方法

Microsoft Excel使打印标签成为一项简单的任务。 诚然，我跳过了关于标签的细节，如果你愿意，你可以在这里探索，第一种方法使用Word，而第二种方法不需要Word就可以打印标签。

因此，不再拖延，让我们看看我们如何能够 打印标签。

1.用Word从Excel中打印艾利标签

你可以用Excel和Word打印艾利标签。 让我们来看看这个过程的步骤。

让我们考虑以下数据集，如图所示 B4:F14 这里，各列显示了 公司名称 , 地址 , 城市 , 国家 ，以及 邮政编码 的每个接受者。

步骤01：定义收件人表

• 最初，选择 B4:F14 细胞，并到 公式> 定义名称 .
• 现在，出现了一个对话框，我们提供一个合适的名字，在这个例子中。 公司名称 .

请注意。 确保字与字之间没有空白，相反，你可以用下划线来分隔每个字。

第02步：在Word中制作艾利标签

• 第二，在Microsoft Word中打开一个空白文档。并进入标签。
• 随后，导航到 邮件> 开始邮件合并> 标签 .

• 现在，选择如下图所示的选项，然后点击 认可 来关闭该对话框。

• 接下来，选择 设计> 页面边框 .
• 随即，出现一个向导框，选择 边界> 网格 .

这就在空白文档中生成了网格。

第03步：从Excel中导入收件人名单到Word中

• 第三，导航到 邮件发送 然而，这一次选择 选择收件人> 使用现有名单 .

• 接下来，我们通过选择Excel文件将源数据导入Word，在本例中是选择Excel文件。 打印艾利标签 .

• 反过来，我们选择表名 公司名称 从列表中。

这就在Excel工作表和Word文档之间建立了一个连接。

第04步：在Word中插入字段

• 第四，到 邮件> 地址区 并选择 匹配字段 从对话框中的选项。

显然，来自工作表的列标题会自动与它们各自的字段相匹配。

• 点击 认可 来关闭该对话框。

反过来，我们看到了标签的预览，以便在进一步开展工作之前纠正任何缺陷。

• 接下来，我们点击 更新标签 位于 邮件发送 标签。

结果是，所有的标签都变成了 地址区块 .

第05步：完成合并过程

• 最后，去到 邮件> 完成 & 合并> 编辑个别文件 选项。

• 接下来，在对话框中根据下面的图片勾选选项，然后点击 认可 .

最终，所有的标签都出现在Word文档中。

• 此外，按 CTRL + P 来打开Word中的打印选项。

此外，你可以从预览窗口看到标签的预览。

阅读更多。 如何在Word中从Excel列表中创建标签（分步骤指南）

类似读物

• 如何在Excel中创建邮件标签（简易步骤）？
• 如何将标签从Excel中邮件合并到Word中（简易步骤）？

2.从Excel中打印单个艾利标签而不需要Word

如果你的数据只跨越一列，那么你可以不用Word来打印标签。 这是一个简单的过程，所以，只要跟着做就行。

假设我们有以下数据集，在 B4:B13 单元，只有一列显示 地址 .

步骤01：制作一份数据集的副本

• 首先，复制数据集并将其粘贴到一个新的工作表中。

请注意。 你需要将数据粘贴在第一栏，从 A1 单元，并删除任何列标题。

第02步：插入VBA代码

• 第二，去 开发商 > 视觉基础 .

• 接下来，插入一个 模块 的地方，你将粘贴 VBA 代码。

为了便于你参考，你可以从这里复制和粘贴代码。

 Sub Makelabels() Application.Run "EnterColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Selection.HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Sub EnterColumn() Dim reference As Range Dim item As Long Dim data As Long Set reference = Cells（Rows.Count, 1）.End（xlUp） data = 1 On Error Resume Next incolno = InputBox（"输入所需的列数"） For item= 1 To reference.Row Step incolno Cells(data, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(item, "A").Resize(incolno, 1)) data = data + 1 Next Range(Cells(data, "A"), Cells( reference.Row, "A")).ClearContents End Sub 

代码分解。

现在，我将解释用于生成标签的VBA代码。 在这种情况下，代码被分为两部分。

第1节：EnterColumn()子程序的解释

的解释。 VBA 下面提供了代码。

• 1- 首先，给子程序起一个名字，并定义变量。
• 2- 接下来，我们计算行的数量，并创建一个 输入框 来接受用户的输入。
• 3- 然后，一个 对于 循环运行的次数是在 输入框 .
• 4- 最后，我们 转位 列成行。 调整大小 细胞，并删除任何多余的内容。

第2节：Makelabels()子程序的描述

以类似的方式，在 VBA 以下是对代码的解释。

• 1- 在这一节中，子程序被赋予一个名称。
• 2- 接下来，我们执行子程序。
• 3- 最后，使用以下方法指定单元格的格式 细胞 财产。

第03步：运行VBA代码来生成标签

• 第三，按 F5 键来运行 签名() 子程序。
• 在对话框中输入列的数量。

你可以用以下方法添加边框 所有边界 中的选项。 首页 标签。

第04步：从Excel打印标签

• 第四，去 页面布局 选项卡，并点击 页面设置 在角落里的箭头。
• 然后，选择 边缘地带 选项卡并调整页边距，如下图所示。

• 接下来，使用 CTRL + P 以打开 印刷品 菜单。
• 在这一点上，按 不缩放 下拉菜单并选择 将所有栏目放在一个页面上 选择。

最后，你准备好了 打印标签 此外，你可以观察打印预览，如下图所示。

阅读更多：如何在Excel中创建无字标签（分步指南）？

需要记住的事情

• 首先。 m 方法2 只适用于你的数据集中有单列的情况。
• 第二，格式化列标题，使其从其他数据中脱颖而出。
• 第三，确保没有空单元格，因为这可能导致意外的结果。

总结

最后，我希望这篇文章能帮助你了解如何从Excel中打印艾利标签。 如果你有任何疑问，请在下面留言。 此外，如果你想阅读更多类似的文章，你可以访问我们的网站 ǞǞǞ .