Sub copy_paste()
Dim cell As Range, paste_loc As Range
Set paste_loc = Range("C25") 'Output paste location
For Each cell In Range("F1:F12") 'Input range
If cell.Value > Range("C19").Value And cell.Value < Range("C19").Value Then
paste_loc = cell.Value
Set paste_loc = paste_loc.Offset(1, 0)
End If
Next cell
End Sub
1 回答
这应该可行,但我将输入范围保持为F1到F12而不是整个F列