查找非空单元格并复制信息。

您可以使用Excel VBA的方法来查找非空单元格并复制信息。以下是一个示例代码：

Sub FindNonEmptyCellsAndCopy()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim cell As Range
    
    ' 设定源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 更改工作表名称为您实际使用的名称
    Set targetSheet = ThisWorkbook.Sheets("Sheet2") ' 更改工作表名称为您实际使用的名称
    
    ' 在源工作表中查找非空单元格
    Set sourceRange = sourceSheet.UsedRange ' 可以根据实际需求修改范围
    
    ' 在目标工作表中设置起始复制位置
    Set targetRange = targetSheet.Range("A1") ' 更改目标起始位置为您希望的位置
    
    ' 循环遍历源范围中的每个单元格
    For Each cell In sourceRange
        If Not IsEmpty(cell) Then ' 检查单元格是否非空
            ' 复制单元格的值到目标工作表中的对应位置
            targetRange.Value = cell.Value
            
            ' 移动目标范围到下一行
            Set targetRange = targetRange.Offset(1, 0) ' 更改偏移量为您希望的值
        End If
    Next cell
End Sub

上述代码将在Sheet1中查找非空单元格，并将其复制到Sheet2中。您可以根据实际需求修改工作表名称、范围和偏移量等参数。请确保您在VBA编辑器中打开Excel，并将代码复制到正确的模块中。然后，您可以运行FindNonEmptyCellsAndCopy子过程来执行查找和复制操作。