Question

Execl用VBA改正错误不定位比较输出

Execl用VBA改正错误不定位比较输出

就有这个http://pan.baidu.com/s/1eSBIy9W看

Answer 1

Sub lqxs()
Dim Arr, i&, hs, tj1, tj2, tj3
Dim ks, n&, j&, k&
Application.ScreenUpdating = False
[j25:p2000].ClearContents: [r25:x2000].ClearContents
hs = [p5].Value: n = 24
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 i = ks To UBound(Arr) - tj2
    For j = 2 To 7
        If Arr(i, j) = tj1 Then      '这段逻辑错误,如何改
            For k = 2 To 7
                If Arr(i + tj2, 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 + tj2, 0)
                    Exit For
                End If
            Next
            Exit For
        End If           '同时满足条件一二三提取行数,这里码将I1=22和I2=21写成了定位同一列比较，正确应为不定位不同列比较才对,如何改
    Next
Next
Application.ScreenUpdating = True
End Sub

追问

果然高手

Answer 2

Sub xxx() Dim i, j, s, arr [c11].CurrentRegion.Select '选择C11开始的连续空间，下面也会输出这块内容 arr = [c11].CurrentRegion '选择内容转换到数组中 Open "c:\1.txt" For Output As #1 '建立TXT文件 For i = LBound(arr) To UBound(arr) '输出每一行 s = "" For j = LBound(arr, 2) To UBound(arr, 2) s = s & arr(i, j) & Chr(9) Next j Print #1, s Next i Close #1End Sub你之前的代码我就不修改了，只把C11开始的内容输出到TXT文件，你试试看吧。