通常从Microsoft Excel打印标签的过程涉及到与Microsoft Word的邮件合并电子表格。 但有些人更喜欢在Excel内完成所有的杂事。 幸运的是，有一种方法可以在Excel中打印标签而不涉及到Word。 本教程将重点介绍如何完成这一任务。

下载实践工作手册

你可以从下面的链接中下载带有数据集和用于演示的宏的工作簿，并将其作为你的模板。

不使用Word打印标签.xlsm

这是包含可打印标签的文件。

不使用Word打印标签.pdf

在不使用Word的情况下在Excel中打印标签的分步程序

拟 打印标签 我们可以根据标签的大小来改变单元格的大小。 我们将使用VBA代码来为我们完成这项任务。

首先，让我们假设我们有以下数据集。

我们首先要将每个数据转换为标签，然后在Excel中打印，而不使用Word的任何帮助。

为了在Excel中使用Microsoft Visual Basic for Applications（VBA），你首先需要 开发商 点击这里查看你如何在你的Ribbon上的 在你的功能区上显示 "开发人员 "标签 一旦你有了这个，继续按照我们演示的步骤，在Excel中打印这些标签，而不用Word。

第1步：将数据复制到新工作表

VBA代码在这里的选择只有在单元格条目从单元格开始的情况下才能正常工作。 A1 因此，我们首先要把包含所有标签的数据集排列成这样。 如果你的数据集从单元格以外的任何地方开始 A1 像我们一样，从细胞开始 B5 它应该是这样的：首先将它们复制到一个新的电子表格中，并把它们放在最开始。

现在它应该准备好与VBA代码一起工作了。

第2步：插入VBA代码

• 首先，去到 开发商 在你的功能区上的标签。
• 然后选择 视觉基础 从 编码 组。

• 结果是，VBA窗口将打开。 现在选择 插入 选项卡中，选择 模块 从下拉菜单中选择。

• 之后，进入模块，写下以下代码。

 此代码将在Excel中创建标签 Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Sub AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("输入数字For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refg.Row, "A") ).ClearContents End Sub 

🔎 代码解释

在这个VBA代码中，有两个部分或子部分------。 创建标签 子和 征求意见栏 首先，我们将解释AskForColumn子项中的情况，然后转到CreateLabel子项，解释代码如何工作。

第一部分。

为了更好地理解，我们将这部分内容分为不同的部分。 请看讨论结束时的图。

👉 第1节。 这一节声明了子系统的名称。 征求意见栏 .

👉 第2节。 我们用这一节来声明三个变量-- refrg、vrb和data。

👉 第3节。 在这一节中，我们为rrg和数据设定了值。

👉 第4节。 在这一点上，代码显示电子表格上有一个输入框。

👉 第5节。 在本节中，一个 对于 对输入框中输入的数字进行循环运行。

👉 第6节。 这一段代码现在调整了单元格的大小。

👉 第7节。 最后，这一部分清除了多余的内容。

第二部分。

与上一部分类似，我们也将这部分分成了不同的部分。 按照讨论结束时的图，可以看到视觉部分。

👉 第1节。 这一部分代码声明了子名称 创建标签 .

👉 第2节。 这个命令在代码的这一点上运行前面的子。

👉 第3节。 这一部分使用VBA格式化每个单元格 细胞 财产。

第3步：运行VBA代码

一旦你输入了代码，关闭VBA窗口。 现在要运行该代码，请按照以下步骤进行。

• 首先，去到 开发商 在你的功能区上的标签。
• 第二，选择 巨集 从 编码 组。

• 现在在 宏观 框，选择 创作的内容 根据 巨集名称 .

• 然后点击 运行 .
• 接下来，选择你想要的列数。 我们为演示选择3列。 然后点击 认可 .

现在电子表格将自动看起来像这样。

现在，这些标签已准备好在Excel中打印，无需使用任何Word。

阅读更多。 如何在Word中打印Excel中的标签（简易步骤）？

第4步：设置自定义页边距

为了打印标签，我们需要为打印的页面设置正确的页边距。 为此，我们应该选择适当的尺寸，以不影响标签位置或损害纸张上的任何标签为原则。 要设置自定义页边距，请按照以下步骤进行。

• 首先，到 页面布局 在你的功能区上的标签。
• 然后选择 页面设置 如图所示，你可以在每个组的右下方找到它。

• 因此， 页面设置 框会弹出。 现在到 边缘地带 在它的标签。
• 然后为你的打印页面选择所需的边距长度。 我们选择了以下几种。

• 一旦你完成了，点击 认可 .

第5步：选择打印的缩放选项

适当的缩放对打印标签也很重要。 例如，我们到现在为止所做的，会像这样打印页面。

这当然不是我们的目标。 因此，我们需要把这张纸放在一页上。 要做到这一点---。

• 首先，进入打印预览部分，按下 Ctrl+P 在你的键盘上。
• 在视图的左下方，你可以找到 设置 在这之下，你会发现 缩放 最后的选项。

• 现在点击缩放选项并选择 一页纸上的合体表 从下拉菜单中选择。

这时，标签的缩放将完成。

阅读更多。 如何在Excel中打印地址标签（2种快速方法）

第6步：打印电子表格

当你还在打印预览屏幕上时，点击 印刷品 在视图的左上方。

点击它，这将在Excel中打印所有的标签，而无需Word的帮助。

需要记住的事情

👉 在运行VBA代码之前，请确保你的所有标签都从单元格 A1 .

👉 在打印前选择适当的边距和比例，使所有的标签都能放在页面上。 否则，有些标签可能被切掉。

👉 VBA代码的操作是不可逆的。 因此，在运行一个代码之前，请确保你有必要的数据备份。

总结

这些是在不使用或合并微软Word的情况下在Excel中打印标签的步骤。 希望你现在能够在没有Word的情况下在Excel中打印标签。 我希望你觉得这个指南很有帮助，内容丰富。 如果你有任何问题或建议，请在下面的评论中告诉我们。

欲了解更多类似的指南，请访问 独家专访 .