excel 文件、工作表 合并脚本 合并工作表 Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(what:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder: =xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row ……………………………… =xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row ………………………………