excel VBA 代码问题，显示语法错误。

Question

Sub fj()Application.ScreenUpdating = FalseSet shr = ActiveSheetrm = [A1].End(xlDown).RowColumns("IV").ClearColumns(1).AdvancedFilter Action = xlFilterCopycopyyorange=[IV1] , unique:=trueFor r = 2 To [IV1].End(xlDown).Rowv = Cells(r, "IV")If Len(Trim(v)) > 0 Then[A1].AutoFilter field:=1, criterial:=vSet wk = Workbooks.Addh = 1rm = shr.Range("A1").End(xlDown).RowFor m = 2 To rmIf Not shr.Rows(m).Hidden Thenshr.Rows(1).Copy Destination:=wk.Sheet(1).Rows(h)shr.Rows(m).Copy Destination:=wk.Sheet(1).Rows(h + 1)h = h + 3End IfNextwk.Sheets(1).Cells.Columns.AutoFitpn = ThisWorkbook.Path & "\"wk.SaveAs Filename:=pn & v & ".xlsx"wk.Close[A1].AutoFilterEnd IfNextApplication.ScreenUpdating = FalseMsgBox "分解完毕!"End Sub

Answer 1

看起来红色的跟上一句是一起的,所以中间少了标点符号. 格式如下
Range("A1:D12").AdvancedFilter
Action:=xlFilterCopy, CriteriaRange:=Range( _
"F5:I6"), CopyToRange:=Range("K1"),
Unique:=False