Question

Execl用VBA改写一下这个循环输出全部

Execl用VBA改写一下这个循环输出全部

看这个http://pan.baidu.com/s/1kVJGe5T

Answer 1

Sub lqxs()
Dim Arr, i&, hs, tj, tj1, tj2, tj3
Dim ks, n&, j&, k&
Application.ScreenUpdating = False
[j25:p2000].ClearContents: [r25:x2000].ClearContents
hs = [p5].Value: n = 27
tj1 = [i1].Value: tj2 = [p1].Value: tj3 = [i2].Value
Sheet2.Activate
Arr = [a9].CurrentRegion
ks = UBound(Arr) - hs
If ks < 2 Then MsgBox "倒数行数太多": Exit Sub
For tj = IIf(tj2 < 3, 1, tj2 - 2) To tj2
For i = ks To UBound(Arr) - tj
    For j = 2 To 7
        If Arr(i, j) = tj1 Then
            For k = 2 To 7
                If Arr(i + tj, k) = tj3 Then
                    n = n + 1
                    Cells(n, 10).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, i, 0)
                    Cells(n, 18).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, i + tj, 0)
                    Exit For
                End If
            Next
            Exit For
        End If           '修改:原来P1输入1,搜索间隔1行，P1输入3，搜索间隔3行；
                         '用VBA改P1为循环间隔，如果P1=3，先搜索间隔1行,再搜索间隔2行，最后搜索间隔3行,一共搜索3次输出
                         '模拟结果见下面左右两面.
    Next
Next
Next
Application.ScreenUpdating = True
End Sub

追问

果然高手

Answer 2

已经改了，发到云盘里面了，麻烦抽空去查看。

追问

在哪里找不到

Answer 3

戒黄戒毒戒赌。

追问

不者，不同你一般见识

追答

在 云朵 中