繁体   English   中英

Excel 宏 - 复制行 -> 在下面插入行 -> 粘贴数据

Excel Macro - Copy Row -> Insert Row under -> Paste data

提示:本站收集StackOverFlow近2千万问答,支持中英文搜索,鼠标放在语句上弹窗显示对应的参考中文或英文, 本站还提供   中文繁体   英文版本   中英对照 版本,有任何建议请联系yoyou2525@163.com。

我有一个贯穿 E 列的代码(下面的示例中的 C 列)并搜索数据的任何更改。 然后它在该更改下插入一个空白行并循环遍历数据集(200-500 行长)。 我正在寻找一种方法来在代码中修改/添加最后一行数据的“复制和粘贴”功能,在更改之前,将其添加到新插入的行中。

前:

A栏 B栏 立柱 C E 列
1 2 莎莉 5
1 2 莎莉 6
1 2 莎莉 2
1 2 追赶 1
1 2 追赶 4
1 2 9

后:

A栏 B栏 立柱 C E 列
1 2 莎莉 5
1 2 莎莉 6
1 2 莎莉 2
2 莎莉
1 2 追赶 1
1 2 追赶 4
2 追赶
1 2 9
2

我道歉。 新来的。 我目前拥有的代码有一个循环。 见打击:

Sub CleanUpPart2()

'Insert Rows by column F

'
    Dim iRow As Integer, iCol As Integer
    Dim oRng As Range

    Set oRng = Range("f1")

    iRow = oRng.Row
    iCol = oRng.Column

    Do
'
    If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
        Cells(iRow + 1, iCol).EntireRow.Insert Shift:=xlDown
        iRow = iRow + 2
    Else
        iRow = iRow + 1
    End If
'
    Loop While Not Cells(iRow, iCol).Text = ""
'
1 个回复

编辑::

请尝试更新的代码:

Sub testInsertRowCopyBefore()
  Dim sh As Worksheet, lastRow As Long, i As Long
  
  Set sh = ActiveSheet
  lastRow = sh.Range("A" & Rows.count).End(xlUp).row
  
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
   For i = lastRow + 1 To 3 Step -1
    If sh.Range("C" & i).Value <> sh.Range("C" & i - 1).Value Then
        sh.Range("C" & i).EntireRow.Insert xlUp
        sh.Range("B" & i & ":C" & i).Value = sh.Range("B" & i - 1 & ":C" & i - 1).Value
    End If
   Next i
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  MsgBox "Ready..."
End Sub

上面的代码假设“Column A”、“Column B”和“Column C”是标题,它们保留在工作表的第一行。

请测试它并发送一些反馈

1 Excel“如果>复制>插入1行>粘贴>仅值(从一张纸到另一张纸)”

我正在尝试创建一个宏,以检查“ A3”列是否为空”,然后从工作表“ Outros”中复制单元格“ A3:K3”,然后在第2行后的“文档”工作表中插入一行,然后仅将值粘贴至A3 :K3“文档” ... 主要问题是仅复制和粘贴值+插入行,我到达的最接近的公式是 但是,与此同时,我不仅粘 ...

2018-05-17 18:13:24 2 32   excel/ vba
2 查找最后一行>合并单元格>复制并粘贴到其中 - Excel VBA宏

我没有使用VBA的经验,事实证明它比我想象的要困难...部分是因为我不知道语法,但我有以下内容: 这种方法有效,但它在第一列中将所有内容都塞进一个单元格中。 如何在粘贴之前合并最后一行的单元格? 该宏应该找到最后一页的最后一行,合并该行的单元格,并粘贴从另一个单元格复制的文本。 先 ...

2015-03-07 17:05:30 2 2042   excel/ vba
3 复制和粘贴/插入行-粘贴的数据多于复制的数据

我有一个宏,该宏设置为从工作表1的A到D列复制包含数据的所有行,并将其粘贴到工作表2的AD列中,将其插入到工作表2中已经存在的数据上方。这个想法是创建一个正在进行的列表顶部的是最新数据。 直到今天,它的工作情况都非常好-不知道发生了什么变化,我还没有以任何方式更改宏。 它正在按应有的 ...

4 仅复制和粘贴具有数据行的Excel宏

我需要帮助找出一个宏,以便仅将包含数据(而不是较大的设置范围)的行中的值复制并粘贴到另一个工作表中。 在名为DataEntry的工作表中,在A到J列中输入停机时间(可能有2行数据或可能有50行),并且仅将值(而不是公式)粘贴到另一个名为DataCombined工作表中,并粘贴到A列和下一可 ...

5 插入公式(范围)然后仅复制>粘贴值

我想制作一个将公式复制到Q6:Q2500范围内的宏。 宏插入公式后,它应该只复制&gt;粘贴值。 当我运行这个宏时,它会按预期插入公式。 但是当我尝试只粘贴值时,我会重复第一个值直到Q2500 。 我认为这是因为公式更新很慢。 我在 Stack 上看到了另一个线程,但答案是将公式转换为 VBA ...

6 复制和粘贴但插入行并转置一些行

我希望在电子表格中详细列出需要转换为其他格式的订单。 例如,遇到数据:客户订购日期产品订购号行号Desc 1描述2 Desc 3 B&Q 1月梯子1 1阶梯梯形灰色B&Q 1月11日涂料1 2室外Matt Green Tesco 8 1月食品2 1野餐食品派对 如果可能的话,我正在寻找一 ...

7 插入行以及复制和粘贴值

我有一个“状态”类型的报告,该报告将各种来源的信息提取到单个工作表中。 我的最终目标是实质上保留每个条目的日志。 因此,我创建了一个宏,该宏将从Sheet8复制范围,在Sheet11上插入新行,然后将该行粘贴到Sheet11中。 此外,我添加了一行以删除excel选择。 我的问题是粘贴是 ...

8 复制并粘贴Excel宏

我有一个宏用于在excel中粘贴,除了从一个单元格复制并粘贴到另一个单元格外,它工作正常。 换句话说,它适用于网页中的说文本,但不适用于从一个单元格到另一个单元格的文本。 该错误消息显示Run time error '1004': PasteSpecial method of Workshe ...

9 复制行数据和粘贴的问题 -> R

我有一个包含一周数据的 ascii 文件。 此数据是一个文本文件,没有标题名称。 我目前几乎使用 R 完成了一个较小的任务,并且也使用 Python 进行了一些尝试。 作为两者的专业人士,这是一个陡峭的学习曲线。 这是我的数据/代码,它根据我在 R 中创建的特定 chr 序列将行粘贴在一起,但无法正 ...

10 如果值> 1,则在下面插入空白单元格的宏,并从上面的单元格复制/粘贴值

该站点已经具有类似的功能: 根据列中的值复制和插入行 但是代码并不能将我带到需要去的地方,而且我也无法对其进行调整以使其对我有用。 我的用户有一个包含4列AD的工作表。 A列包含特定的合同编号,B列为空白,C列包含部件号,D列包含合同编号的整个范围。 我的用户想计算整个范围合同编 ...

暂无
暂无

声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2022 STACKOOM.COM