Question

excel内VBA求助

想达到的目的

1.B列数据不变，始终固定

2.将I列内有OK的这一行数据清空

3.将清空的空白行放在最后

Answer 1

代码如下：

Sub xx()
    Dim i As Integer, m As Integer, n As Integer
    Dim arr(1 To 11, 1 To 7)
    
    For i = 4 To 14
        If Cells(i, "I") <> "ok" Then
            n = n + 1
            For m = 3 To 9
                 arr(n, m - 2) = Cells(i, m).Value
            Next
        End If
    Next
    
    [c4].Resize(11, 7) = arr
End Sub

附件如下：

Answer 2

没分？怎么没分呢？怎么能没分呢？