[已解决]求字典法

759857387

见附件 学习字典-56.rar (11.66 KB, 下载次数: 10)

2015-6-1 19:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

冥王

2015-6-1 21:32

未测试

1. Sub demo()
   
2.     Dim i&, arr
   
3.     With ThisWorkbook.Sheets(1)
   
4.         arr = .Range("A3:U" & .Cells(Rows.Count, "C").End(xlUp).Row)
   
5.         For i = LBound(arr, 1) To UBound(arr, 1)
   
6.             arr(i, 20) = IIf(arr(i, 3) > arr(i, 20), arr(i, 3), arr(i, 20))
   
7.             arr(i, 21) = IIf(arr(i, 3) < arr(i, 21), arr(i, 3), arr(i, 21))
   
8.         Next
   
9.         .Range("A3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
10.     End With
    
11. End Sub

复制代码

跳转到最佳答案楼层

冥王

字典通常用来处理不重复值，多条件汇总……
这里用数组更方便

759857387

冥王 发表于 2015-6-1 20:35
字典通常用来处理不重复值，多条件汇总……
这里用数组更方便

数组也可以
关键点是我不知道循环怎么写

冥王

未测试

1. Sub demo()
   
2.     Dim i&, arr
   
3.     With ThisWorkbook.Sheets(1)
   
4.         arr = .Range("A3:U" & .Cells(Rows.Count, "C").End(xlUp).Row)
   
5.         For i = LBound(arr, 1) To UBound(arr, 1)
   
6.             arr(i, 20) = IIf(arr(i, 3) > arr(i, 20), arr(i, 3), arr(i, 20))
   
7.             arr(i, 21) = IIf(arr(i, 3) < arr(i, 21), arr(i, 3), arr(i, 21))
   
8.         Next
   
9.         .Range("A3").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
   
10.     End With
    
11. End Sub

复制代码

759857387

冥王 发表于 2015-6-1 21:32
未测试

在坛子里多年还是头一次见到IIf函数
谢谢，要消化，不懂再问。