vba:这段代码意思是想将含有“合计数量”字符的这一行复制到另一个工作表中
发布网友
共1个回答
热心网友
有问题的是这句
sa.Range("1:65536").Value = c.Range(x & ":" & x).Value
当然，如果整个代码这样改，可能执行效率会略高一些。原代码select动作太多了，虽然禁止了刷新，但是会严重影响速度。
Sub aa()
Dim r, i As Single
r = 0
For i = 6 To Sheets("07月").Cells(65536, 6).End(xlUp).Row
If Sheets("07月").Cells(i, 6).Value Like "*合计数量*" Then
r = r + 1
Sheets(1).Range(r & ":" & r).Value = Sheets("07月").Range(i & ":" & i).Value
End If
Next
End Sub
