返回列表 上一主題 發帖

篩選後,將儲存格資料複製到其它空白儲存格(已爬文

With ActiveSheet.AutoFilter.Range
   .AutoFilter Field:=1, Criteria1:="AA"
   .Offset(1).Copy [E14]
   .AutoFilter Field:=1
End With

TOP

        靜思自在 : 要比誰更受誰.不要比誰更怕誰。
返回列表 上一主題