|
想实现:
1--从源数据中筛选出“部分”及“降期“的数据后,到第一个sheet中查找到
2--从第一个sheet中查到后,就复制插入整行至它的上一行。
下面代码只能定位到筛选后的第一个数据,第2行数据不知道怎么获取?
Sub test()
Dim id As String
Dim myrow As Integer
Dim x As Integer
Sheets("源数据").Activate
ActiveSheet.Range("A:N").AutoFilter Field:=14, Criteria1:=Array("部分", "降期"), Operator:=xlFilterValues
id = ActiveSheet.Range("C2:C10000").SpecialCells(xlCellTypeVisible).Value
Sheets("逾期明细表0925").Activate
myrow = Range("A:A").Find(id, LookIn:=xlValues).Row
Rows(myrow & ":" & myrow).Select
Selection.Copy
Selection.Insert shift = xlDown
End Sub
- Sub test()
- Dim arr, brr, i1%, i2&
- Application.ScreenUpdating = False
- arr = Sheet2.Range("A1").CurrentRegion.Value
- For i1 = 2 To UBound(arr)
- If arr(i1, 14) = "部分" Or arr(i1, 14) = "降期" Then
- brr = Sheet1.Range("A1").CurrentRegion.Value
- For i2 = UBound(brr) To 2 Step -1
- If arr(i1, 3) = brr(i2, 1) Then
- Sheet1.Rows(i2).Insert
- Sheet1.Rows(i2 + 1).Copy Sheet1.Rows(i2)
- End If
- Next
- End If
- Next
- Application.ScreenUpdating = True
- End Sub
复制代码
|
|