Note: The other languages of the website are Google-translated. Back to English

如何在Excel中以固定间隔插入特定数量的行?

在Excel工作表中,可以使用插入功能在现有行之间插入空白行。 但是,如果您有大量数据,并且需要在每第三个或第n行之后插入两个空白行,那么如何快速便捷地完成此工作?


使用VBA代码以固定的间隔将特定数量的空白行插入数据范围

以下VBA代码可以帮助您在现有数据中的第n行之后插入特定数量的行。 请执行以下操作:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码:以固定的间隔将特定数量的行插入数据

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. 粘贴此代码后,请按 F5 键以运行此代码,将弹出一个提示框,提醒您选择要插入空白行的数据范围,请参见屏幕截图:

4。 点击 OK 按钮,将弹出另一个提示框,请输入行间隔的数量,请参见屏幕截图:

5。 继续点击 OK 按钮,在下面弹出的提示框中,请输入要插入的空白行数,请参见屏幕截图:

6。 然后点击 OK,并且空白行已定期插入到现有数据中,请参见屏幕截图:


使用VBA代码根据单元格值将特定数量的空白行插入数据范围

有时,您可能需要根据单元格值列表插入空白行,在这种情况下,下面的VBA代码可以帮您一个忙,请这样做:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码:根据数字列表插入特定数量的空白行:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3。 粘贴此代码后,按 F5 键以运行此代码,在弹出的对话框中,选择要基于其插入空白行的数字列表,请参见屏幕截图:

4。 然后,点击 OK,您将获得所需的结果,如以下屏幕截图所示:


使用方便的功能以固定的间隔将特定数量的空白行插入数据范围

如果您不熟悉上述VBA代码, Kutools for Excel 也可能对您有帮助 插入空白行和列 该功能可以按固定的间隔快速轻松地将特定数量的行或列插入现有数据。

请注意:申请这个 插入空白行和列 ,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。

安装后 Kutools for Excel,请执行以下操作:

1。 选择要间隔插入空白行的数据范围。

2。 点击 库工具 > 插页 > 插入空白行和列,请参见屏幕截图:

3。 在 插入空白行和列 对话框,选择 空白行 来自的选项 插入类型,然后指定要使用的间隔和空白行的数量,如下所示的屏幕截图:

4。 然后点击 OK 按钮,并且空白行已以特定间隔插入到选定范围中,如以下屏幕截图所示:

立即下载和免费试用Excel的Kutools!


使用VBA代码根据特定编号多次复制和插入行

假设您有一个tada范围,现在,您想复制每行并将其多次粘贴到下一个行,这些行基于数字列表,如下所示的屏幕截图。 如何在Excel工作表中解决此任务?

为了处理此工作,我将为您介绍一个有用的代码,请执行以下步骤:

1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码:根据特定数字多次复制和插入行:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3。 粘贴此代码后,按 F5 键以运行此代码,在弹出的对话框中,选择要复制的数字列表并基于其插入数据行,请参见屏幕截图:

4。 然后,点击 OK 按钮,并且已将特定的行数复制并粘贴到每个原始行下,请参见屏幕截图:


具有特定功能,可根据特定数字多次复制和插入行

如果你有 Kutools for Excel,其 根据单元格值复制行/列 功能,您可以根据数字列表快速轻松地插入行或列。

请注意:申请这个 根据单元格值复制行/列,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。

安装后 Kutools for Excel,请执行以下操作:

1。 点击 库工具 > 插页 > 根据单元格值复制行/列,请参见屏幕截图:

2。 在 复制并插入行和列 对话框中选择 复制并插入行 在选项 房屋类型 部分,然后选择要复制的数据范围,然后指定要基于其复制行的值列表,请参见屏幕截图:

4。 然后,点击 Ok or 使用 按钮,您将根据需要获得以下结果:

立即下载和免费试用Excel的Kutools!

更多相关文章:

  • 多次复制和插入行或复制X次
  • 在日常工作中,您是否曾经尝试过复制一行或每一行,然后在工作表中当前数据行的下方多次插入? 例如,我有一个单元格区域,现在,我想复制每一行并将它们粘贴3次到下一行,如下图所示。 您如何在Excel中处理这项工作?
  • 在Excel中值更改时插入空白行
  • 假设您具有一系列数据,现在您想在值更改时在数据之间插入空白行,以便可以将一列中的顺序相同值分开,如下面的屏幕截图所示。 在本文中,我将为您解决一些技巧。
  • 根据条件将多个工作表中的行复制到新工作表中
  • 假设您有一个包含三个工作表的工作簿,这些工作表的格式与下面的屏幕快照相同。 现在,您想要将这些工作表中的C列包含“已完成”文本的所有行复制到新工作表中。 您如何快速,轻松地解决此问题,而又不手动一一复制和粘贴它们?

最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (39)
5中的5评分 · 2评级
该评论由网站上的主持人最小化
嗨,我正在使用你的代码(如下),你能告诉我如何用自定义文本填充这些行。 我已经使用您的代码输入了三行,它工作得很好,但现在我需要输入文本 Row1 = Date Row2.= Location Row3 = Phone Number 提前谢谢...“Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum1 As Integer Dim xNum2 As Integer Dim WorkRng As Range Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("输入行间隔。", xTitleId, 1, Type:=1) xRows = Application.InputBox("要多少行在每个间隔插入?", xTitleId, 1, Type:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Parent For i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs .Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 下一个结束子”
该评论由网站上的主持人最小化
太感谢了!!!!! 这真太了不起了
该评论由网站上的主持人最小化
多谢!!
该评论由网站上的主持人最小化
Hi


我使用间隔 vba 代码它的工作..但是当我使用超过 100000 行时它不起作用..如果有的话,请建议我应该改变什么。


子 InsertRowsAtIntervals()
'Updateby20150707
昏暗范围
将 xInterval 调暗为整数
将 xRows 调暗为整数
将 xRowsCount 调暗为整数
将 xNum1 调暗为整数
将 xNum2 调暗为整数
将 WorkRng 调暗为范围
将 xWs 调暗为工作表
xTitleId = "KutoolsforExcel"
设置 WorkRng = Application.Selection
设置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("输入行间隔。", xTitleId, 1, Type:=1)
xRows = Application.InputBox("每个间隔插入多少行?", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
设置 xWs = WorkRng.Parent
对于 i = 1 到 Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).选择
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
下一页
END SUB
该评论由网站上的主持人最小化
太棒了-您为我节省了很多无意识的数据输入,非常感谢
该评论由网站上的主持人最小化
嗨,我怎样才能获得以固定间隔将特定数量的列插入数据的代码
该评论由网站上的主持人最小化
你好,PK,
要以特定间隔将空白列插入现有数据,下面的 VBA 代码可以帮助您! 请尝试一下。

子 InsertColumnsAtIntervals()
昏暗范围
将 xInterval 调暗为整数
将 xCs 调暗为整数
将 xCCount 调暗为整数
将 xNum1 调暗为整数
将 xNum2 调暗为整数
将 WorkRng 调暗为范围
将 xWs 调暗为工作表
xTitleId = "KutoolsforExcel"
设置 WorkRng = Application.Selection
设置 WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("输入列间隔。", xTitleId, 1, Type:=1)
xCs = Application.InputBox("每个间隔插入多少列?", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xInterval
设置 xWs = WorkRng.Parent
对于 I = 1 到 Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).选择
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
下一页
END SUB
该评论由网站上的主持人最小化
如何根据最后一个单元格中提到的数字在 excel 数据中添加行,如果最后一个单元格显示数字为 4,则在 excel 数据中说,自动 dd 4 行的方法是什么。 在另一行数是 72 等
该评论由网站上的主持人最小化
嗨,SPGupta,
要根据特定数字列表插入空白行,请应用以下 VBA 代码。
请尝试,希望对您有所帮助!

子插入()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xAddress 变暗为字符串
昏暗的我,xNum,xLastRow,xFstRow,xCol,xCount As Long
出错时继续下一步
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择要使用的特定数字列(单列):", "KuTools For Excel", xAddress, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.列
xCount = xRg.Count
设置 xRg = xRg(1)
对于 I = xLastRow 到 xFstRow 步骤 -1
xNum = 细胞(I,xCol)
如果 IsNumeric(xNum) 且 xNum > 0 则
行(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
结束如果
下一页
xRg.Resize(xCount, 1).选择
Application.ScreenUpdating =真
END SUB
该评论由网站上的主持人最小化
嗨,你能帮我吗? 如何更改此代码以比单元格中的数字少广告多行? 例如,如果单元格中的数字为 4,则程序添加 3 行。 如果单元格中的数字为 1,则不添加行
该评论由网站上的主持人最小化
嗨,尼娜,
要解决您的任务,请使用以下代码:

子插入()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xAddress 变暗为字符串
昏暗的我,xNum,xLastRow,xFstRow,xCol,xCount As Long
出错时继续下一步
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择要使用的特定数字列(单列):", "KuTools For Excel", xAddress, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.列
xCount = xRg.Count
设置 xRg = xRg(1)
对于 I = xLastRow 到 xFstRow 步骤 -1
xNum = 细胞(I,xCol)
xNum = xNum - 1
如果 IsNumeric(xNum) 且 xNum > 0 则
行(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
结束如果
下一页
xRg.Resize(xCount, 1).选择
Application.ScreenUpdating =真
END SUB


请尝试,希望对您有所帮助!
该评论由网站上的主持人最小化
它工作完美,非常感谢!
该评论由网站上的主持人最小化
这很棒。 我只是想知道......我的英语并不完美,所以我希望你能理解我:) .....
是否可以使用该参数编号所在行的值填充添加的空白行?
该评论由网站上的主持人最小化
您好,弗拉基米尔,您的意思是根据工作表中的数字列表插入空白行吗? 如果是这样,请应用以下代码:
子插入()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xAddress 变暗为字符串
昏暗的我,xNum,xLastRow,xFstRow,xCol,xCount As Long
出错时继续下一步
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择要插入行的数字列表:", "KuTools For Excel", xAddress, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.列
xCount = xRg.Count
设置 xRg = xRg(1)
对于 I = xLastRow 到 xFstRow 步骤 -1
xNum = 细胞(I,xCol)
如果 IsNumeric(xNum) 且 xNum > 0 则
行(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
结束如果
下一页
xRg.Resize(xCount, 1).选择
Application.ScreenUpdating =真
End Sub请试一试,如有其他问题,请在此评论。
该评论由网站上的主持人最小化
此代码非常适合插入行....Sub Insert()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xAddress 变暗为字符串
昏暗的我,xNum,xLastRow,xFstRow,xCol,xCount As Long
出错时继续下一步
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择要使用的特定数字列(单列):", "KuTools For Excel", xAddress, , , , , 8)
如果 xRg 什么都不是,则退出 Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.列
xCount = xRg.Count
设置 xRg = xRg(1)
对于 I = xLastRow 到 xFstRow 步骤 -1
xNum = 细胞(I,xCol)
xNum = xNum - 1
如果 IsNumeric(xNum) 且 xNum > 0 则
行(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
结束如果
下一页
xRg.Resize(xCount, 1).选择
Application.ScreenUpdating =真
END SUB

但是有可能....从那个参数号所在的行中复制那些空白单元格中的数据吗? 我可以在这里张贴图片吗? 如果我告诉你我需要什么,也许会更容易:)
该评论由网站上的主持人最小化
嗨,弗拉基米尔,下面的 VBA 代码可能对您有帮助,请尝试一下。 子复制行()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xCRg 调暗为范围
将 xFNum 调暗为整数
将 xRN 调暗为整数
出错时继续下一步
选择范围:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择数字列表", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什么都不是,则退出 Sub

如果 xRg.Columns.Count > 1 那么
MsgBox "请选择单列!"
转到选择范围
结束如果
Application.ScreenUpdating = False
对于 xFNum = xRg.Count 到 1 步 -1
设置 xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
带行(xCRg.Row)
。复制
.Resize(xRN).插入
结束
下一页
Application.ScreenUpdating =真
END SUB

该评论由网站上的主持人最小化
我们是如此接近:) 我现在需要的只是比上一个 VBA 代码少一排,而不是参数数的值。 例如:如果数字是 8 我们需要插入和复制 7 行。 正如你为尼娜所做的那样
所以,如果数字是 8,那么我们应该总共有 8 行插入和复制,并且使用前面的 VBA 代码我们有 9。
TNX
该评论由网站上的主持人最小化
您好,在这种情况下,以下代码可能对您有所帮助,请尝试: 子复制数据()
'更新通过 Extendoffice
将 xRow 变暗
将 VInSertNum 调暗为变体
x行 = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = 单元格(xRow,“B”)
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) 那么
范围(单元格(xRow,“A”),单元格(xRow,“B”))。复制
范围(单元格(xRow + 1,“A”),单元格(xRow + VInSertNum - 1,“B”))。选择
Selection.Insert Shift:= xlDown
xRow = xRow + VInSertNum - 1
结束如果
x行 = x行 + 1
循环
Application.ScreenUpdating = False
End SubNote:在上面的代码中,字母 A 表示您数据范围的开始列,以及字母 B 是您要基于其复制行的列字母。 请根据需要更改它们。
该评论由网站上的主持人最小化
您是否有将复制的数字减一的模块?
该评论由网站上的主持人最小化
不,我有这个,但我需要它来扣除1?
子复制行()
'更新通过Extendoffice
将 xRg 调暗为范围
将 xCRg 调暗为范围
将 xFNum 调暗为整数
将 xRN 调暗为整数
出错时继续下一步
选择范围:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("选择数字列表", "Kutools for Excel", xTxt, , , , , 8)
如果 xRg 什么都不是,则退出 Sub

如果 xRg.Columns.Count > 1 那么
MsgBox "请选择单列!"
转到选择范围
结束如果
Application.ScreenUpdating = False
对于 xFNum = xRg.Count 到 1 步 -1
设置 xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
带行(xCRg.Row)
。复制
.Resize(xRN).插入
结束
下一页
Application.ScreenUpdating =真
END SUB
该评论由网站上的主持人最小化
我想要做的是在 Word 中从具有多个数量的电子表格创建和打印标签?
该评论由网站上的主持人最小化
你有机会看看这个吗?
该评论由网站上的主持人最小化
黄金祝福你
该评论由网站上的主持人最小化
正在寻找代码来生成一个 Excel 列表,该列表由单元格中的数字复制并为原始列表减去 1?
该评论由网站上的主持人最小化
谢谢作者! 对于这些,你应该得到最好的表扬! 但是,请您帮我编写代码,将常量值放入我用上面的代码创建的所有空白行中吗? 为了让自己更清楚,我需要在所有空白行中插入一个常量值(这已经用上面的代码解决了)然后我需要在所有空白行中插入一个常量值(这是我的问题)。 谢谢你,因为我期待你的友好回应。
该评论由网站上的主持人最小化
您好,您的意思是用特定值填充空白行吗? 如果是这样,那么以下文章可能会帮助您:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
请尝试一下。
该评论由网站上的主持人最小化
我可以获取 VBA 代码以删除基于所选列中的重复值保留所有唯一值的行吗?
该评论由网站上的主持人最小化
你好,罗伊,如果你想删除基于重复值的行,通常,你可以使用 删除重复 Excel中删除行的功能。当然,如果您需要VBA代码,请使用以下代码:(首先,您应该选择要删除的数据范围,然后运行此代码,基于行的行您选择的第一列中的重复值将立即删除。) 子 Delete_duplicate_rows()
昏暗范围
设置 Rng = 选择
Rng.RemoveDuplicates Columns:=Array(1), Header:=xl是
完子请试一试,希望能帮到你!
该评论由网站上的主持人最小化
这太酷了!! 非常感谢
该评论由网站上的主持人最小化
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer。 Muito obrigado mesmo!
该评论由网站上的主持人最小化
你好,
不客气。 很高兴它有帮助。 任何问题,请随时与我们联系。 祝你有美好的一天。
Sincerely,
曼迪
该评论由网站上的主持人最小化
你能告诉我如何像这样插入列吗,代码是什么
该评论由网站上的主持人最小化
你好朋友,
您可以使用此 VBA 代码:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount As Integer

Dim xNum1 As Integer

Dim xNum2 As Integer

Dim WorkRng As Range

Dim xWs As Worksheet

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Sincerely,
曼迪
该评论由网站上的主持人最小化
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству。
Ваш макрос мне очень помог。
5中的5评分
该评论由网站上的主持人最小化
姓名 电子邮件 电话 地址
0 姓名 电子邮件 电话 地址
地址行 2 姓名 电话 0
姓名 电子邮件 电话 地址
0 姓名 电子邮件 电话 地址
地址线 2 0


我如何编辑它以在每个空值或 0 值处开始一个新行,而没有 0 的电话号码开始一个新行?
该评论由网站上的主持人最小化
你好,贾罗德

抱歉,我无法清楚地解决您的问题。
你能更详细地解释你的问题吗? 或者您可以在此处插入屏幕截图或文件。
谢谢!
该评论由网站上的主持人最小化
Hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo。

例子

en vez de que quede asi

01/10/2022 19.258.369-4 胡安·拉米雷斯
01/10/2022 19.258.369-4 胡安·拉米雷斯
01/10/2022 19.258.369-4 胡安·拉米雷斯

克德阿西

01/10/2022 19.258.369-4 胡安·拉米雷斯
02/10/2022 19.258.369-4 胡安·拉米雷斯
03/10/2022 19.258.369-4 胡安·拉米雷斯

谢谢
该评论由网站上的主持人最小化
Hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

例子

en vez de que quede asi

10/01/2022 19.258.369-4 胡安·拉米雷斯
10/01/2022 19.258.369-4 胡安·拉米雷斯
10/01/2022 19.258.369-4 胡安·拉米雷斯

克德阿西

10/01/2022 19.258.369-4 胡安·拉米雷斯
11/01/2022 19.258.369-4 胡安·拉米雷斯
12/01/2022 19.258.369-4 胡安·拉米雷斯

谢谢
该评论由网站上的主持人最小化
很棒的 vba 脚本!
我有超过 5000 行需要在它们之间添加新行。 所有其他指南都告诉我制作“助手”专栏,一遍又一遍地添加 1,2 复制粘贴只是为了添加新行,这将花费我一生的大部分时间。
所以,谢谢你!
5中的5评分
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护