求助菜鸟，求救，大量数据求差值

只看楼主
收藏
回复

贴吧用户_aXR9KJ8
E见钟情
1

200列数据，求每一列数据与标注红的数据列对应的差值(可以把得到数据放在这个表格里，不影响）

tcwang11
E览无余
11

结果输出在原来单元格还是另外的位置？原单元格是公式还是数值？

菠萝蜜
E览无余
11

Option Explicit
Sub abc()
　Dim a, i, j
　a = [a1].CurrentRegion.Value
　For j = 3 To UBound(a, 2)
　　For i = 1 To UBound(a)
　　　a(i, j) = a(i, 2) - a(i, j)
　　Next
　Next
　[a1].Offset(, UBound(a, 2) + 1).Resize(UBound(a), UBound(a, 2)) = a
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

3回复贴，共1页

<<返回excel吧

分享到:

日	一	二	三	四	五	六