如果行为空,则将整个活动单元格复制到一行向下

时间:2019-11-15 16:27:45

标签: excel vba copy

VBA相对较新,如果这是一个措辞不佳的问题,我们深表歉意:

如何设置宏,以便它将包含活动单元格的整个行复制到下一个空行?

潜在的并发症:

  • 由于其他功能,所有数据都被输入到数据透视表中
  • 自动计算一列,这算不算空吗?
  • 我设法将宏复制到下一行,但是它将 覆盖该行。

(我知道我可以复制粘贴行,但我正在为希望尽快填充的其他人制作一个很大的电子表格。)

目前为止我的简要描述:

Sub CopyDown()
'
' CopyDown Macro
' duplicate current row
'
' Keyboard Shortcut: Ctrl+w
'
    If IsEmpty(ActiveCell.Offset(1, 0).EntireRow) Then
    'This part works
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    ActiveSheet.Paste
    'This part works

    End If
End Sub

建议是值得的,即使它只是搜索此类功能的正确关键字。

0 个答案:

没有答案