sh.Cells(i + r - 1, j) = sh1.Cells(i, j)改为：if len(sh1.Cells(i, j))>0 then sh.Cells(i + r - 1, j) = sh1.Cells(i, j)
