我正在撞牆,試圖找出爲什麼我的複製粘貼不排隊。我認爲我的索引正確地計算出來了,但我仍然錯過了一些東西。第一個數據是正確的,但第二個數據是關閉的,第三個是兩個。它最初分別是兩行和四行,但我發現無論哪種說法是正確的,我都需要更新計數器。正確的行數不復制
我的代碼就是如下:
Dim FirstItem As Integer
Dim SecondItem As Integer
Dim Offsetcount As Integer
Dim Rowoffset As Integer
Dim true_offset As Integer
Dim myNum As Integer
Sheets("Sheet2").Activate
ActiveSheet.Range("C2").Select
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset(1, 0).Value
Offsetcount = 1
Rowoffset = 0
true_offset = 1
myNum = (Range("C" & Rows.Count).End(xlUp).Row)
'MsgBox myNum
Do While myNum > 1
true_offset = true_offset + 1
If FirstItem = SecondItem Then
Offsetcount = Offsetcount + 1
Rowoffset = Rowoffset + 1
SecondItem = ActiveCell.Offset(Offsetcount, 0).Value
Else
Set myactivecell = ActiveCell
Set myActiveWorksheet = ActiveSheet 'Do I need to declare this and the line below?
Set myActiveWorkbook = ActiveWorkbook
ActiveSheet.Range(ActiveSheet.Cells(true_offset - Rowoffset, 1), ActiveSheet.Cells(true_offset + 1, 1)).EntireRow.Select
Selection.Copy
Set new_workbook = Workbooks.Add
ActiveSheet.Paste
myActiveWorkbook.Activate
myActiveWorksheet.Activate
myactivecell.Activate
ActiveCell.Offset(Offsetcount + 1, 0).Select
If ActiveCell.Value = "" Then
myNum = 0
End If
FirstItem = ActiveCell.Value
SecondItem = ActiveCell.Offset(1, 0).Value
Offsetcount = 1
myNum = myNum - 1
Rowoffset = 0
End If
Loop
下面是一些示例數據的屏幕帽:
https://i.stack.imgur.com/EsA3B.png
你能否提供更多有關你想要完成的事情的真實信息?這顯然比複製工作表複雜一點。 – Graham
當然,我得到了一堆行不同的航班號不同的項目,我想分開每個航班。我如何發佈樣本數據? –
您可以將數據作爲圖像發佈。通過編輯你的文章附件 – Karpak