对比 问题 详情见附件

109943358

^在sheet1 里指定一个宏按钮
使得 sheet2 中 k 列的 i 行列的数据 与 sheet3 中的 k 列 i  行 比较
如果 sheet2中 k 列 i 行的数据  小于 sheet3 中的 k 列 i  行的数据
则生成sheet4  使得 sheet2   小于 sheet3 中的 k 列 i  行的 数据
都复制到 sheet4 中来 并且按照顺序排列下来
sheet2里面蓝色比sheet3里面黄色的小 所以要把SHEET2的蓝色取出来 生产一个SHEET4 的K列里面 按顺序排下拉！

[ 本帖最后由 109943358 于 2011-5-6 15:35 编辑 ]

蓝桥玄霜

请抄写一遍代码。

109943358

老师  最后报错
Sub YY()
Dim MYR2&, ARR2, ARR3, I&, R%, ARR()
MYR2 = Sheet2.[K65536].End(xlUp).Row
ARR2 = Sheet2.Range("K1:K" & MYR2)
ARR3 = Sheet3.Range("K1:K" & MYR2)
For I = 1 To UBound(ARR2)
If ARR2(I, 1) < ARR3(I, 1) Then
R = R + 1
ReDim Preserve ARR(1 To R)
ARR(R) = ARR2(I, 1)
End If
Next
[k1].Resize(R, 1) = Application.Transpose(ARR)   '【无效的过程或调用参数】
End Sub

蓝桥玄霜

我这里是正常的哦。
请见附件。

109943358

老师附件是好的我再看看我这哪里出问题了xiexie