时间戳

首页 > 解决方案 > 如何复制某些单元格包含文本的行，并将它们粘贴到另一个位置？

excel - 如何复制某些单元格包含文本的行，并将它们粘贴到另一个位置？

问题描述

J 列中的一些单元格包含文本，而其他单元格为空。我想 1. 找到列 J 包含文本的所有行 2. 复制这些行 3. 将它们粘贴到其他地方（与初始表的顺序相同）

Sub org1()

Dim a As Range
For Each a In Range("j2:j500")
    If Not a.Value = "" Then
       a.EntireRow.Copy
       a.Offset(100, 0).Insert
    End If
Next a

End Sub

错误

标签： excelvba

解决方案

没有必要做这样的结构。只需过滤除空白单元格之外的列，然后将过滤后的列复制到您想要的任何位置。如果您不知道如何在vba中进行过滤，请录制一个宏并执行该过程。

如果您不想在此之后过滤列，只需使用 Sheets("YourSheet").AutoFilterMode = False 删除任何过滤器

推荐阅读