Close #1
'关闭文件
If x = 1 Then
'如果变量x的值等于1就执行下面的语句
ThisWorkbook.Sheets("原比对结果").Range("2:1000").Delete
'删除【原对比结果】表的2~1000行
ThisWorkbook.Sheets("分型结果").Range("2:4000").Delete
'类似上面
ThisWorkbook.Sheets("多序列排布结果").Range("2:4000").Delete
'类似上面
End If
'结束条件判断,前面的语句是否执行由前面的x值决定,此后的语句与此无关
每句都来打字解释可能真的没必要,哪句不懂的单独指出来吧,最好一次一两句