用vba 当A1大于0时单元格b1等于a1值这样填充到b3000

Sub test()Dim Rng As RangeFor Each Rng In [A1:A3000] If Rng.Value > 0 Then Rng.Offset(0, 1) = Rng.ValueNextEnd Sub