[已解决]数据比较大小

wine0431

每一列的数据要与该列第30行的数据比较大小，如果大于第30行的数，保持不变，若小于第30行的数(假如是0.1)，原数改为“<0.1”（0.1是第30行的数），有的第30行没有数，则不用去比较。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-19 11:08

(, 下载次数: 86)

上传

点击文件名下载附件
(, 下载次数: 7)

上传

点击文件名下载附件


改了2处：
1）原来写的代码，删了1点
2）如图，这样每当工作簿打开时，程序就会执行1次。

跳转到最佳答案楼层

爱疯

Sub test()
    Dim A, r, i, j
    A = [B2:Z30]: r = UBound(A)

    For j = 1 To UBound(A, 2)
        For i = 1 To r - 4
            If VBA.IsNumeric(A(i, j)) Then
                If A(i, j) < A(r, j) Then
                    A(i, j) = A(r, j) - A(i, j)
                    A(i, j) = "<" & Format(A(i, j), "0.000")
                End If
            End If
        Next i
    Next j

    [b2].Resize(r, j - 1) = A
End Sub


data2.rar (12.59 KB, 下载次数: 8)

2015-8-19 09:48 上传

点击文件名下载附件
是这样吗

wine0431

爱疯 发表于 2015-8-19 09:49
Sub test()
    Dim A, r, i, j
    A = : r = UBound(A)

运行不了啊

爱疯

wine0431

爱疯 发表于 2015-8-19 10:24

还要该，我意思是小于第30行数时，原先的数改为<(第30行的数)，不是<原来的数

wine0431

爱疯 发表于 2015-8-19 10:24

C D两列有问题

爱疯

原先的数改为<(第30行的数)，不是<原来的数


是什么效果？举个例子来说吧

wine0431

爱疯 发表于 2015-8-19 10:40
原先的数改为

C22 值为0.012，与C30的0.015比较，0.012<0.015，所以C22改为<0.015

爱疯

1楼附件里，G30为什么是“﹤0.05”？是笔误，还是什么原因

爱疯

1楼附件里，比如F1是“﹤0.1”，像这“已有小于号”的，如何处理？