VBA寻找同一列中的不同值并求差

rrsuper

A列   B列
123  5
123  6
123  8
123  6
456  3
456  7
456  9
465

发现123和456不同。。。然后就求B列的差。。。 Book1.rar (6.59 KB, 下载次数: 5)

2015-1-7 08:34 上传

点击文件名下载附件

A11和A12不同，就求D11和D12的差 并放到G12中~
非常感谢。

feiren228

不懂你的意思，最好上传附件，说明清楚

lhh8502025

详细说明一下，上附后个附件，模拟个结果，这样看不明白啊。

rrsuper

feiren228 发表于 2015-1-7 08:29
不懂你的意思，最好上传附件，说明清楚

谢谢帮助 我传了附件~。~

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr
   
4.   With Worksheets("CM1_0133BBA")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:g" & r)
   
7.     For i = 2 To UBound(arr)
   
8.       If arr(i, 1) <> arr(i - 1, 1) Then
   
9.         arr(i, 7) = CDate(arr(i, 4)) - CDate(arr(i - 1, 4))
   
10.       End If
    
11.     Next
    
12.     .Range("g1").Resize(UBound(arr), 1) = Application.Index(arr, 0, 7)
    
13.   End With
    
14. End Sub
    
15. 
    

复制代码

chxw68

参见附件。

rrsuper

chxw68 发表于 2015-1-7 09:49

谢谢！非常感谢~ 学习了！

feiren228

rrsuper 发表于 2015-1-7 09:42
谢谢帮助 我传了附件~。~

请测试

1. Sub test()
   
2.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
3.     Range("a1:f" & r).Sort [a1], xlAscending
   
4.     arr = Range("a1:g" & r)
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 1) <> arr(i - 1, 1) Then
   
7.             arr(i, 7) = Val(arr(i, 4)) - Val(arr(i - 1, 4))
   
8.         End If
   
9.     Next
   
10.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
11. End Sub
    

复制代码

chxw68

5楼代码算出的值是时间序列数之差，可以乘以24转换成两个时间之间相差的小时数：
       arr(i, 7) = (CDate(arr(i, 4)) - CDate(arr(i - 1, 4))) * 24

feiren228

附件》》
test.rar (15.2 KB, 下载次数: 0)

2015-1-7 10:03 上传

点击文件名下载附件