如何在sheet1的第i列中找到非空值，然后复制整行并粘贴到sheet2中

要在Excel的Sheet1中找到第i列的非空值，并将对应的整行复制到Sheet2中，你可以使用VBA宏来实现这一操作。以下是一个简单的VBA宏示例，它可以帮助你完成这个任务：

Sub CopyNonEmptyRows()
    Dim wsSource As Worksheet
    Dim wsDest As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim lastRow As Long
    
    ' 设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDest = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源工作表中第i列的最后一行
    lastRow = wsSource.Cells(wsSource.Rows.Count, "i").End(xlUp).Row
    
    ' 清空目标工作表中的内容
    wsDest.Cells.Clear
    
    ' 遍历第i列的每一个单元格
    For Each cell In wsSource.Range("i1:i" & lastRow)
        ' 如果单元格非空
        If Not IsEmpty(cell) And cell.Value <> "" Then
            ' 复制整行到目标工作表
            cell.EntireRow.Copy Destination:=wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next cell
End Sub

在运行这个宏之前，请确保你的工作簿中已经存在名为"Sheet1"和"Sheet2"的工作表，并且你想要检查非空值的列是第i列。

如何使用这个宏：