昨晚怎么试都增加不上 Sheet3
比如下面这样到 Sheet2 就停住了 不会去Sheet3 就像原来你没帮忙增加Sheet2停在Sheet1一样
If x <= 246 Then
Range("j2").Offset(0, x).Resize(UBound(brr)) = brr
Else
If x <= 493 Then
Sheet2.Range("j2").Offset(0, x - 246).Resize(UBound(brr)) = brr
Else
Sheet3.Range("j3").Offset(0, x - 493).Resize(UBound(brr)) = brr
End If
End If
Next
End Sub