Question

在EXCEL sheet1中符合条件的多正行数据复制到其他工作表的宏怎么写？

如： sheet1工作表A列所有等于《草原》的正行数据复制到sheet2工作表的A3行开始粘贴宏怎么写？

Answer 1

最直接的解决办法是筛选后复制，如果你是研究宏的话，用一下代码，相信你已经知道宏的操作，就不在赘述。
Sub CaoYuan()
Dim i As Integer
Dim aa As String
i = i + 1
For i = 2 To 50
If Sheets(1).Cells(i, 1).Value = "草原" Then
Dim j As Integer
j = j + 1
For j = 1 To 10
If j > 0 Then
aa = Sheets(1).Cells(i, j).Value
Sheets(2).Cells(i, j+3).Value = aa
End If
Next j
End If
Next i
End Sub
当然，整列复制还可以用“列”的函数复制。
J代表的是那一行中有多少，我设置的10，只到“J”，你可以根据自己需要更改，个人时间有限，没解决SHEET2中的空行问题。