excel 中智能复制问题，求高手解答。

Question

如图所示：EXCEL 中，如果sheet1中 A列数值大于等于1， 则在sheet2 中复制该数值，并连带后面几行特征。另外 可能由于各产品特征行数不一定， 因此需要智能判断到空行就停止复制。
求高手帮忙。 先谢谢了!!!
拜托给点实际的解答，如果这样一句话就能搞定，我就不在这浪费诸位高手的时间了。

Answer 1

Sub test()
Dim rws As Long, rw As Long, i As Long
Dim cel As Range
rws = Sheet1.UsedRange.Rows.Count
For i = 1 To rws
If Cells(i, 1) <> "" And Val(Cells(i, 1)) > 0 Then
Set cel = Cells(i, 1)
Sheet1.Range(cel, cel.Offset(0, 1).End(xlDown)).Copy Destination:=Sheet2.Range("B65536").End(xlUp).Offset(2, -1)
End If
Next
End Sub追问

请问，复制进去怎么运行不了啊？
方便给个模板吗？

追答

- -！ 我是按照你上面的模板做的，
你确定你没禁用宏运行 ？