在EXCEL sheet1中符合条件的多正行数据复制到其他工作表的宏怎么写?
发布网友
发布时间：2024-09-26 15:38
共1个回答
热心网友
时间：2024-11-04 07:13
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中的空行问题。
