|
- Sub Sample()
- Dim MyRow As Long, i As Long, j As Long
- Dim MyFind As Range
- i = i + 1
- j = 2
- With Sheets("Sheet2")
- For MyRow = 2 To 2421
- Range("a" & i).Resize(1, 11) = Sheets("Sheet1").Range("a1:k1").Value
- Range("a" & i + 1).Resize(1, 11) = Sheets("Sheet1").Range("a" & MyRow).Resize(1, 11).Value
- Range("a" & i + 3).Resize(1, 11) = .Range("a1:k1").Value
- Set MyFind = .Range("c:c").Find(Sheets("Sheet1").Range("c" & MyRow + 1))
- If Not MyFind Is Nothing Then
- Range("a" & i + 4).Resize(MyFind.Row - j, 11) = .Range("a" & j).Resize(MyFind.Row - j, 11).Value
- Else
- Range("a" & i + 4).Resize(51219 - j, 11) = .Range("a" & j + 1).Resize(51219 - j, 11).Value
- End If
- Range("a" & i + MyFind.Row - j + 5).Resize(1, 11) = Sheets("Sheet3").Range("a1:k1").Value
- Range("a" & i + MyFind.Row - j + 6).Resize(1, 11) = Sheets("Sheet3").Range("a" & MyRow).Resize(1, 11).Value
- j = MyFind.Row
- i = j + 8 * (MyRow - 1)
- Next
- End With
- Set MyFind = Nothing
- End Sub
复制代码 |
|