应用程序错误或对象定义错误1004复制行并粘贴不使用ActiveSheet ...粘贴命令 [英] Application error or object defined error 1004 Copying a row and pasting not working by ActiveSheet...paste command
问题描述
我面临一个奇怪的问题。我试图从一张纸上复制一些行，并根据某些条件在循环中粘贴另一张纸。当我在测试数据上单独使用它时，我使用的命令工作完美，但在给定的
代码中不起作用。请帮忙。
I am facing a strange problem. I am trying to copy some rows from one sheet and paste in another sheet in a loop based on some condition. The command I am using works works perfectly when I use it separately on a test data, but doesn't work in the given code. Please help.
这是我的代码：
Sub dropped_call_analysis（）
Sub dropped_call_analysis()
Dim POS As Integer
Dim POS As Integer
Dim i As Integer
Dim i As Integer
Dim counter As Long
Dim counter As Long
Dim counter1 As Long
Dim counter1 As Long
Dim counter2 As Long
Dim counter2 As Long
Dim counter3 As Long
Dim counter3 As Long
Dim counter4 As Integer
Dim counter4 As Integer
Dim TEI As Integer
Dim TEI As Integer
Dim TEI1 As Integer
Dim TEI1 As Integer
Dim TSNum As Integer
Dim TSNum As Integer
Dim TSNum1 As Integer
Dim TSNum1 As Integer
POS = 1
对于计数器= 3到228290
For counter = 3 To 228290
If（（工作表（" Sheet1"））。Cells（counter，6）=" CHNAV" ）和（工作表（"Sheet1"）。单元格（计数器，15）="与立即指派处理相关"））然后
If ((Worksheets("Sheet1").Cells(counter, 6) = "CHNAV") And (Worksheets("Sheet1").Cells(counter, 15) = "related to immediate assignment proc")) Then
POS = POS + 1
POS = POS + 1
TEI =工作表（" Sheet1"）。Cells（计数器，7）
TEI = Worksheets("Sheet1").Cells(counter, 7)
TSNum =工作表（" Sheet1"）。Cells（counter，8）
TSNum = Worksheets("Sheet1").Cells(counter, 8)
工作表（" Sheet1"）。行（计数器）.Cut
Worksheets("Sheet1").Rows(counter).Cut
ActiveSheet.Paste目的地：=工作表（"Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
POS = POS + 1
POS = POS + 1
     对于counter1 =计数器+ 1要计数+ 10000
For counter1 = counter + 1 To counter + 10000
        If（（工作表（" Sheet1"）。Cells（counter1,7）= TEI）和（工作表（" Sheet1"）。）Cells（counter1,8）= TSNum））然后
If ((Worksheets("Sheet1").Cells(counter1, 7) = TEI) And (Worksheets("Sheet1").Cells(counter1, 8) = TSNum)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。Cells（counter1,6）<>""">"">>）和（工作表（" Sheet1"））。Cells（counter1,6）<>"" PAGRES"和"（工作表（"Sheet1"）。单元格（counter1,6）<>"LUREQ"））然后
If ((Worksheets("Sheet1").Cells(counter1, 6) <> "CMSREQ") And (Worksheets("Sheet1").Cells(counter1, 6) <> "PAGRES") And (Worksheets("Sheet1").Cells(counter1, 6) <> "LUREQ")) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter1）.Cut
Worksheets("Sheet1").Rows(counter1).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（" Sheet1"）。。Cells（counter1,6）=" CMSREQ"）然后
ElseIf (Worksheets("Sheet1").Cells(counter1, 6) = "CMSREQ") Then
;&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter1）.Cut
Worksheets("Sheet1").Rows(counter1).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; for counter2 = counter1 + 1 to counter1 + 10000
For counter2 = counter1 + 1 To counter1 + 10000
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。Cells（counter 2,7）= TEI）和（工作表（" Sheet1"）。）Cells（counter2,8）= TSNum））然后
If ((Worksheets("Sheet1").Cells(counter2, 7) = TEI) And (Worksheets("Sheet1").Cells(counter2, 8) = TSNum)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（"Sheet1"）。单元格（计数器2,6）<>"ASSCMD"）或（工作表（"Sheet1"）。单元格（计数器2,6）<>" HOCMD"））然后
If ((Worksheets("Sheet1").Cells(counter2, 6) <> "ASSCMD") Or (Worksheets("Sheet1").Cells(counter2, 6) <> "HOCMD")) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（工作表（" Sheet1"）。。Cells（counter2,6）=" CHREL"）然后
If (Worksheets("Sheet1").Cells(counter2, 6) = "CHREL") Then
;
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter2）.Cut
Worksheets("Sheet1").Rows(counter2).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="SDCCH DROP"
Worksheets("Sheet2").Cells(POS, 13) = "SDCCH DROP"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Else
Else
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter2）.Cut
Worksheets("Sheet1").Rows(counter2).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（（工作表（"Sheet1"）。单元格（counter2,6）="ASSCMD"）或（工作表（"Sheet1"）。单元格（counter2,6）="HOCMD"））然后
ElseIf ((Worksheets("Sheet1").Cells(counter2, 6) = "ASSCMD") Or (Worksheets("Sheet1").Cells(counter2, 6) = "HOCMD")) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TSNum1 =工作表（" Sheet1"）。细胞（counter2,13）
TSNum1 = Worksheets("Sheet1").Cells(counter2, 13)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 选择案例工作表（"Sheet1"）。单元格（counter2,12）
Select Case Worksheets("Sheet1").Cells(counter2, 12)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例4
Case 4
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 1
TEI1 = 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例1
Case 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 6
TEI1 = 6
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例5
Case 5
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 4
TEI1 = 4
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例2
Case 2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 3
TEI1 = 3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例3
Case 3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 2
TEI1 = 2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例0
Case 0
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 5
TEI1 = 5
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束选择
End Select
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; for counter3 = counter2 + 1 to counter2 + 10000
For counter3 = counter2 + 1 To counter2 + 10000
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。）Cells（counter3,7）= TEI1）和（工作表（" Sheet1"）。）Cells（counter3,8）= TSNum1））然后
If ((Worksheets("Sheet1").Cells(counter3, 7) = TEI1) And (Worksheets("Sheet1").Cells(counter3, 8) = TSNum1)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（Worksheets（" Sheet1"）。Cells（counter3,6）=" CONFL"）然后
If (Worksheets("Sheet1").Cells(counter3, 6) = "CONFL") Then
;
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="TCH DROP"
Worksheets("Sheet2").Cells(POS, 13) = "TCH DROP"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; counter4 = counter3
counter4 = counter3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; while（工作表（" Sheet1"）。。细胞（counter4,6）<>" CHREL"）
While (Worksheets("Sheet1").Cells(counter4, 6) <> "CHREL")
&NBSP;&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter4）.Cut
Worksheets("Sheet1").Rows(counter4).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; counter4 = counter4 + 1
counter4 = counter4 + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Wend
Wend
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter4）.Cut
Worksheets("Sheet1").Rows(counter4).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（"Sheet1"）。单元格（counter4,6）="CHREL"）然后
ElseIf (Worksheets("Sheet1").Cells(counter4, 6) = "CHREL") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Else
Else
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 下一个计数器3
Next counter3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;下一个counter2
Next counter2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（"Sheet1"）。单元格（counter1,6）="PAGRES"）然后
ElseIf (Worksheets("Sheet1").Cells(counter1, 6) = "PAGRES") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter1）.Cut
Worksheets("Sheet1").Rows(counter1).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; for counter2 = counter1 + 1 to counter1 + 10000
For counter2 = counter1 + 1 To counter1 + 10000
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。Cells（counter 2,7）= TEI）和（工作表（" Sheet1"）。）Cells（counter2,8）= TSNum））然后
If ((Worksheets("Sheet1").Cells(counter2, 7) = TEI) And (Worksheets("Sheet1").Cells(counter2, 8) = TSNum)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（"Sheet1"）。单元格（计数器2,6）<>"ASSCMD"）或（工作表（"Sheet1"）。单元格（计数器2,6）<>" HOCMD"））然后
If ((Worksheets("Sheet1").Cells(counter2, 6) <> "ASSCMD") Or (Worksheets("Sheet1").Cells(counter2, 6) <> "HOCMD")) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（工作表（" Sheet1"）。。Cells（counter2,6）=" CHREL"）然后
If (Worksheets("Sheet1").Cells(counter2, 6) = "CHREL") Then
;
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter2）.Cut
Worksheets("Sheet1").Rows(counter2).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="SDCCH DROP"
Worksheets("Sheet2").Cells(POS, 13) = "SDCCH DROP"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Else
Else
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter2）.Cut
Worksheets("Sheet1").Rows(counter2).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（（工作表（"Sheet1"）。单元格（counter2,6）="ASSCMD"）或（工作表（"Sheet1"）。单元格（counter2,6）="HOCMD"））然后
ElseIf ((Worksheets("Sheet1").Cells(counter2, 6) = "ASSCMD") Or (Worksheets("Sheet1").Cells(counter2, 6) = "HOCMD")) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TSNum1 =工作表（" Sheet1"）。细胞（counter2,13）
TSNum1 = Worksheets("Sheet1").Cells(counter2, 13)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 选择案例工作表（"Sheet1"）。单元格（counter2,12）
Select Case Worksheets("Sheet1").Cells(counter2, 12)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例4
Case 4
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 1
TEI1 = 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例1
Case 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 6
TEI1 = 6
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例5
Case 5
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 4
TEI1 = 4
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例2
Case 2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 3
TEI1 = 3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例3
Case 3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 2
TEI1 = 2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 案例0
Case 0
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; TEI1 = 5
TEI1 = 5
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束选择
End Select
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; for counter3 = counter2 + 1 to counter2 + 10000
For counter3 = counter2 + 1 To counter2 + 10000
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。）Cells（counter3,7）= TEI1）和（工作表（" Sheet1"）。）Cells（counter3,8）= TSNum1））然后
If ((Worksheets("Sheet1").Cells(counter3, 7) = TEI1) And (Worksheets("Sheet1").Cells(counter3, 8) = TSNum1)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（Worksheets（" Sheet1"）。Cells（counter3,6）=" CONFL"）然后
If (Worksheets("Sheet1").Cells(counter3, 6) = "CONFL") Then
;
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="TCH DROP"
Worksheets("Sheet2").Cells(POS, 13) = "TCH DROP"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; counter4 = counter3
counter4 = counter3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; while（工作表（" Sheet1"）。。细胞（counter4,6）<>" CHREL"）
While (Worksheets("Sheet1").Cells(counter4, 6) <> "CHREL")
&NBSP;&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter4）.Cut
Worksheets("Sheet1").Rows(counter4).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet1"）。行（counter4）
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Rows(counter4)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; counter4 = counter4 + 1
counter4 = counter4 + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Wend
Wend
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter4）.Cut
Worksheets("Sheet1").Rows(counter4).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2 "）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2 ").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet1"）。行（counter4）
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Rows(counter4)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（"Sheet1"）。单元格（counter4,6）="CHREL"）然后
ElseIf (Worksheets("Sheet1").Cells(counter4, 6) = "CHREL") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Else
Else
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 下一个计数器3
Next counter3
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;下一个counter2
Next counter2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（"Sheet1"）。单元格（counter1,6）="LUREQ"）然后
ElseIf (Worksheets("Sheet1").Cells(counter1, 6) = "LUREQ") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter1）.Cut
Worksheets("Sheet1").Rows(counter1).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP;对于counter2 = counter1 + 1要反击1 + 10000
For counter2 = counter1 + 1 To counter1 + 10000
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（（工作表（" Sheet1"）。Cells（counter3,7）= TEI）和（工作表（" Sheet1"）。）Cells（counter3,8）= TSNum））然后
If ((Worksheets("Sheet1").Cells(counter3, 7) = TEI) And (Worksheets("Sheet1").Cells(counter3, 8) = TSNum)) Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter2）.Cut
Worksheets("Sheet1").Rows(counter2).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（工作表（" Sheet1"）。。Cells（counter3,6）<>" LUACC"）然后
If (Worksheets("Sheet1").Cells(counter3, 6) <> "LUACC") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; If（工作表（" Sheet1"）。。Cells（counter3,6）=" CHREL"）然后
If (Worksheets("Sheet1").Cells(counter3, 6) = "CHREL") Then
;&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="SDCCH DROP"
Worksheets("Sheet2").Cells(POS, 13) = "SDCCH DROP"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 退出
Exit For
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; Else
Else
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（" Sheet1"）。行（counter3）.Cut
Worksheets("Sheet1").Rows(counter3).Cut
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ActiveSheet.Paste目的地：=工作表（" Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; POS = POS + 1
POS = POS + 1
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; ElseIf（工作表（" Sheet1"）。。Cells（counter2,6）=" LUACC"）然后
ElseIf (Worksheets("Sheet1").Cells(counter2, 6) = "LUACC") Then
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 工作表（"Sheet2"）。单元格（POS，13）="位置更新成功"
Worksheets("Sheet2").Cells(POS, 13) = "Location update successful"
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 下一个counter2
Next counter2
&NBSP; &NBSP; &NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; &NBSP; &NBSP; 结束如果
End If
&NBSP; &NBSP; 下一个counter1
Next counter1
结束如果
End If
POS = POS + 1
POS = POS + 1
下一个柜台
End Sub
推荐答案
没有你的数据实际测试你的代码我不能确定，但我不喜欢以下代码行。
Without your data to actually test your code I cannot be sure but I don't like the following line of code.
ActiveSheet.Paste目的地：=工作表（"Sheet2"）。行（POS）
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(POS)
Sheet2是ActiveSheet吗？如果没有，则可能是您的代码存在冲突。
Is Sheet2 the ActiveSheet? If not then maybe you have conflicting code.
请尝试以下方法在一行代码中剪切和粘贴，并省略ActiveSheet部分。
Try the following that cuts and pastes in one line of code and leaves out the ActiveSheet part.
请注意，它只是一行，只有一个切割和目标之间的空格。
Note that it is one line with just a space between Cut and Destination.
工作表（" Sheet1"）。行（counter1）.Cut目的地：=工作表（" Sheet2" ;）。行（POS）
Worksheets("Sheet1").Rows(counter1).Cut Destination:=Worksheets("Sheet2").Rows(POS)
这篇关于应用程序错误或对象定义错误1004复制行并粘贴不使用ActiveSheet ...粘贴命令的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
