Range("a" & m + 1 & ":h" & m + 1).Copy Range("i" & p + 3) '将记录到另一个区域改为：Range("i" & p + 3)=Range("a" & m + 1 & ":h" & m + 1).Value '将记录到另一个区域直接以赋值的形式进行复制，后面加上（.Value），表示只取值。
