PROSAGA码农传奇-商业运营-分类时卡在运行模式下

分类时卡在运行模式下

作者: 春风助手
发布时间: 2024-05-13 10:08:01 (2月前)

我想对数据进行排序sheet 2，以sheet 9在字符串文本SBY。我认为从下面的代码来看逻辑很简单。但是下面的代码给了运行时错误1004; 选择行的范围类别失败的方法 wk.Rows(j).EntireRow.Select更新1：我现在没有收到错误，但是很长一段时间我不得不中断代码执行，因此卡在了[运行]模式下。我正在尝试实现以下I / O逻辑。我认为我的代码应该可以工作，但是要么花费很长时间，要么陷入无限循环。你能帮我吗输入： <code>
col B
Commercial
Tech
Operation
Commercial
Commercial
.
.
.
. 
</code> 输出： <code>
col B
Commercial
Commercial
Commercial
Tech
Operation
.
.
.
</code> 码
<pre><code>Option Explicit

Sub SortByCommercial()
Dim wk As Worksheet
Dim sby, FinalRow, i, j, p
Dim WsCount As Integer
WsCount = ActiveWorkbook.Worksheets.Count
Dim wb As Workbook
Set wb = ActiveWorkbook

sby = "Commercial"

For i = 2 To WsCount

Set wk = Sheets(i)
FinalRow = wk.Range("A900000").End(xlUp).Row
p = FinalRow + 1

For j = 2 To FinalRow
 If Trim(wk.Range("B" & j).Text) <> sby Then

wk.Rows(j).EntireRow.Select
            Selection.Cut

wk.Range("A" & p).Select
            wk.Paste

Rows(j).EntireRow.Select
            Selection.Delete Shift:=xlUp

Range("A1").Select

Application.CutCopyMode = False
            j = j - 1
        Else: End If
    Next j

Next i

End Sub
</code></pre>