VBA:在其他工作表中的单元格不为空时复制公式

Sub CopyFormulaIfCellNotEmpty()
    Dim ws As Worksheet
    Dim sourceRange As Range
    Dim destinationRange As Range
    Dim cell As Range
    
    ' 设置源工作表和目标工作表
    Set ws = ThisWorkbook.Worksheets("源工作表")
    Set destinationRange = ThisWorkbook.Worksheets("目标工作表").Range("A1")
    
    ' 遍历源工作表中的每个单元格
    For Each cell In ws.UsedRange
        ' 检查单元格是否不为空
        If Not IsEmpty(cell) Then
            ' 复制单元格中的公式到目标工作表中对应的位置
            destinationRange.Value = cell.Formula
            ' 移动到下一个目标位置
            Set destinationRange = destinationRange.Offset(1, 0)
        End If
    Next cell
End Sub