如何在Excel中将单元格值重复x次？

网友投稿 147 2024-01-14

如何在Excel中将单元格值重复x次？

例如，您在A列中有一个值列表，并且您想根据B列中的次数重复特定次数的值，如左图所示，如何在Excel中实现呢？

使用公式和助手列重复单元格值X次 使用VBA代码将单元格值重复X次 具有出色功能，可将单元格值复制和插入X次

使用公式和助手列重复单元格值X次

若要将单元格值重复X次，可以插入一些帮助器列，然后应用一些简单的公式，请执行以下步骤：

1。在A列的左侧插入一列，然后在单元格A1中键入2，请参见屏幕截图：

2。然后把这个公式 = A2 + C2 进入A3，然后将填充手柄拖到单元格A6中，请参见屏幕截图：

3。然后在单元格D1中输入2，然后通过将“自动填充”拖动到12（这是C列中次数的总数）来填充数字，请参见屏幕截图：

4。然后输入这个公式 = VLOOKUP（D2，$ A $ 1：$ B $ 6,2） 到单元格E2中并复制下来，您将得到以下结果：

: 1.在这个公式中 D2 表示您用数字序列填充的第一个单元格，并且 A1：B6 代表第一助手列的范围以及您需要重复的原始单元格值。 2.获得重复的值后，您可以将它们作为值复制并粘贴到任何其他位置。

轻松地根据特定编号复制和插入X次行

通常，除了手动处理复制和插入操作外，没有很好的方法可以多次复制和插入行。但是，随着 Kutools for Excels 根据单元格值复制行/列 功能，您可以轻松解决此问题。 点击下载 Kutools for Excel!

Kutools for Excel：具有300多个方便的Excel加载项，可以在60天内免费试用，没有任何限制。 立即下载并免费试用！

使用VBA代码将单元格值重复X次

如果您认为第一种方法难以理解，在这里，我还可以向您介绍VBA代码来解决它。

1。按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications窗口。

2。点击插页 > 模块，然后将以下代码粘贴到 模块窗口.

VBA代码：将单元格值重复X次

Sub CopyData() Updateby Extendoffice Dim Rng As Range Dim InputRng As Range, OutRng As Range xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8) Set OutRng = OutRng.Range("A1") For Each Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) Next End Sub

Copy

3。然后按 F5 键来运行此代码，然后会出现一个提示框，提醒您选择包含值和重复次数的范围，请参见屏幕截图： 4。并点击 OK，则会弹出另一个提示框，让您选择要放入结果的单元格，请参见屏幕截图： 5。然后点击 OK，结果是您选择的值已根据需要重复指定的次数。 具有出色功能，可将单元格值复制和插入X次

有时，您可能需要根据特定数字将单元格值复制并插入x次， Kutools for Excels 根据单元格值复制行/列 可以帮助您根据指定的编号快速复制和插入行。