|
AdvancedFilterを次のようにして実行しましたがコピー先をB3でしているのですが
結果がC3の位置から貼り付けられてしまいます 原因を調べているのですがさっぱり検討がつきません 調べかたを教えていただきたいのでお願いいたします
CopyToRange:=sht1.Range("B3"),ーーC3からになってしまいます
' sht1 = Workbooks(Ex_Name).Worksheets(ShtName1)
' Ex_Name="NEW製造記録.xls"
' sht1 ShtName1 = "検索結果"
' sht2 ShtName2 = "検索"
' sht3 ShtName3 = "29-2"
'-------------------------------------------------------------------------
sht1.Activate
sht1.Cells.Clear
sht3.Range("B3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=sht2.Range("B3:L4"), _
CopyToRange:=sht1.Range("B3"), Unique:=False
|
|