标签对我们有很多用处。 你可以在Microsoft Word的帮助下在Excel中创建标签。 但是，在某些情况下，这可能是一个很大的麻烦和耗时。 因此，你可能想在没有Word的情况下在Excel中创建标签。 本文演示了如何在没有Word的情况下在Excel中创建标签的一步步指南。

下载实践工作手册

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

什么是标签？

一般来说，标签是一种贴纸或一张纸，描述它所附着的物体或产品。 标签的应用范围很广。 例如，人们需要为地址制作标签，以便将其贴在信封上。 此外，我们可以看到标签贴在计算机中的硬件上，以便我们可以识别它们并了解其规格。

在Excel中使用VBA创建无字标签的4个步骤

在Excel中创建标签是非常方便的，无需借助于 微软 Word 此外，它节省了大量的时间和麻烦。

现在，让我们假设你有一个数据集，其中有一列 地址 在这一点上，你要为这些标签创建 地址 在这种情况下，你可以按照以下几组步骤来做。

步骤01 : 将数据复制到Excel中的新工作表

• 首先，复制列中的地址并将其粘贴到一个 新板材 从细胞开始 A1 .

步骤02 ：打开VBA窗口并在Excel中创建一个模块

• 然后，按 ALT + F11 以打开 VBA 窗口。
• 现在，选择你目前正在工作的工作表，然后 右键点击 在这种情况下，它是 第2张 .
• 接下来，依次选择 插入 > 模块 .

最终，这几组步骤将打开 VBA 窗口，并插入一个新的 模块 在你的表单中。

步骤03 ：在Excel中插入代码

• 在这一点上，复制以下代码并将其粘贴到空白框中。

 此代码将在Excel中创建标签 Sub Createlabels() Application.Run "AskForColumn" 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 With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .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 

💡 代码解释。

在这个阶段，我将解释上面使用的代码。 正如你所看到的，这个代码有两个部分。 一个部分包含子 AskForColumn () 这将被称为 第01部分 ,而另一个包含了子 创建标签() 这将被称为 第02部分 现在，我将逐一解释这两个部分。

第01部分 :

在这一点上，我把代码分为不同的部分，并在下面的截图中对每个部分进行了编号。 因此，在这里我将根据每个部分的编号来解释。

• 第1节。 本节创建了一个名为 征求意见栏 .
• 第2节。 在这里，我们声明不同的变量。
• 第3节。 在这一节中，我们计算列中的行数。
• 第4节。 现在，我们在这里创建一个 输入框 来询问列的数量。
• 第5节。 在本节中，我们运行一个 对于 同时，我们使用 步骤 关键字来运行循环的次数，我们在 输入框 .
• 第六节 ：在这个阶段，我们利用这个部分将列的单元格通过应用分配到不同的行和列。 转位 和财产 调整大小 .
• 第7节。 最后，我们删除本节中的多余内容。

第02部分 :

在这种情况下，我也将代码分为不同的部分，并在下面的截图中对每个部分进行了编号。 因此，在这里我将根据每个部分的编号来解释。

• 第1节。 这一部分创建了一个名为 创建标签() .
• 第2节。 在本节中，我们把太阳称为 AskForColumn() 来运行。
• 第3节。 在这一点上，本节定义了 单元格格式 对所有单元格使用 细胞 财产。

步骤04 ：运行代码，在Excel中不使用Word创建标签

• 现在，按 F5 来运行子程序 创建标签 () .
• 因此，你会看到屏幕上出现一个方框，就像下面的屏幕截图。
• 在这一点上，插入你希望你的标签的列数。
• 然后，点击 认可 .

• 最后，你将有你的标签创建，就像下面的截图一样。

💡 笔记 :

• 这个方法只有在你的数据是单列的情况下才有效。
• 创建完标签后，你可以用以下方法添加边框 所有边界 中的选项。 首页 标签。
• 另外，确保你在运行子 创建标签() 在这种情况下，如果你运行子。 AskForColumn () 你将不会得到你想要的结果。
• 此外，除了在第1栏中的地址外，不要输入其他任何东西。 A .

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

如何在不使用Word的情况下在Excel中打印标签

使用上述步骤创建标签后，现在你可能要 打印标签 现在，如果你想这样做，你可以遵循以下步骤。

阶梯 :

• 首先，去到 页面布局 从页面顶部的标签。
• 接下来，点击 页面设置 按钮。

• 之后，去到 边缘地带 .
• 现在，编辑 返回顶部 和 底部 利润率为 0.5 然后编辑 左边 和 对 利润率为 0.215 .
• 因此，请点击 认可 .

• 现在，按 CTRL + P 以打开 印刷品 菜单。
• 在这一点上，点击 不缩放 和4个选项将显示出来。
• 接下来，从这些选项中选择 将所有栏目放在一个页面上 .

• 最后，你就可以打印了。
• 在这种情况下，你的打印预览将像下面的屏幕截图一样。

阅读更多。 如何将标签从Excel中邮件合并到Word中（简易步骤）？

总结

最后，我希望你能从这篇文章中找到你想要的东西。 如果你有任何疑问，请在下面留言。 此外，如果你想阅读更多类似的文章，你可以访问我们的网站 ǞǞǞ .