求各位大神帮我编下公式

lifan5533

A、b两列都有数据，我现在想把A列的数据自动筛选到B列，但如果B列有数据就保留原有数据，请各位大神帮我

lifan5533

在线等，谢谢大家

lifan5533

求各位大声了

hxhlc21

Sub fz()

  Dim i As Integer
  '楼主给的数据从第2行开始，所以从2到5000，如果不够自己调整
  For i = 2 To 5000
    '判断循环到Ai为空值结束
    If Range("A" & i) = "" Then
    Exit For
    End If
    '判断Bi为空值复制Ai到Bi，否则不复制
    If Range("B" & i) = "" Then
    Range("A" & i).Select
    Selection.Copy
    Range("B" & i).Select
    ActiveSheet.Paste
    Else
    Range("B" & i) = Range("B" & i)
    End If
   

Next
   
End Sub



把上面vba代码执行就可以得到楼主想要的效果，刚学习vba2天，希望能帮助你

hxhlc21

代码上面发了，做好的在附件里，特别说明下，由于我刚学vba，请备份你的数据再套我这vba代码

jonzgl

不太确定楼主想表达的意思是否为，【当B列格子为空白时，自动填写入A列格子的数据】如果是的话请查看附件。