f10629 wrote:[日記簿!C3].CurrentRegion...(恕刪) Sub mold1()Worksheets("日記簿").SelectRange("C6").SelectSelection.AutoFilterRows("6:30").Select[日記簿!C3].CurrentRegion.AutoFilter Field:=2, Criteria1:=[日記簿!C3]Range("F6").SelectEnd sub日記簿上的資料還不多,請複製...再逐行跑看看!
看起來是日期篩選上的問題Sub mold1()[C6].AutoFilter[日記簿!C6].CurrentRegion.AutoFilter Field:=2, _Operator:=xlFilterValues, Criteria2:=Array(2, [日記簿!C3])End Sub以後要請人協助測試麻煩把自己的測試文件附檔上來要不就是截圖完整點不然還要去猜你的內容長怎樣格式、數值、位置都有可能影響測試結果