- Sub 测试()
- Dim arr As Variant, ri$, i%, j%, k$, y&, yy&
- With Worksheets("记忆曲线")
- arr = .Range(.Cells(1, "P"), .Cells(.Rows.Count, "H").End(xlUp).Offset(1, 0))
- ri = Date
- For i = 4 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If arr(i, j) = ri Then
- k = .Cells(i, 3).Value '点得加上
- For y = 1 To Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row Step 12
- If k = Sheet2.Cells(y, 1) Then
- yy = Sheet1.Cells(Sheet1.Rows.Count, 1).End(xlUp).Row
- If yy = 1 Then
- yy = 1
- Else
- yy = yy + 2
- End If
- Sheet2.Cells(y, 1).CurrentRegion.Copy Sheet1.Cells(yy, 1)
- End If
- Next
- End If
- Next
- Next
- End With
- End Sub
复制代码 |