如何修改VBA代码实现将F列（F7:F30）大于0的值复制到C列（C7:C30）

下面是满足需求的VBA代码，只会把F7:F30区域内大于0的数值复制到C列对应行的位置：

Dim cell As Range
' 可选：如果需要先清空C7:C30区域，取消下面一行的注释
' Range("C7:C30").ClearContents

For Each cell In Range("F7:F30")
    If cell.Value > 0 Then
        ' 将符合条件的数值赋值到同一行的C列单元格
        Range("C" & cell.Row).Value = cell.Value
    End If
Next cell

代码说明 #

• 遍历F7到F30的每一个单元格，逐个判断数值是否大于0
• 仅对符合条件的单元格，将其值同步到C列的对应行位置
• 如果需要先清空目标区域（C7:C30），可以取消代码中ClearContents那一行的注释

内容的提问来源于stack exchange，提问作者Novaxx