如何批量输入相同单元格的第二大值

蔡训博

比如名称A后面分别对应四个数字，其中8是第二大，把8这个结果写在C列，
             C后面分别对应九个数字，其中245是第二大，把245这个结果写在C列，

这里是一段最大值的参考代码
Sub 最大值()
m = Cells(Rows.Count, 6).End(xlUp).Row
For i = 1 To m
x = Cells(i, 1).MergeArea.Rows.Count
If x = 1 Then
Cells(i, 6) = Cells(i, 6)
Else
h = i
For j = 1 To x
Cells(i, 6) = Application.Max(Range(Cells(h, 6), Cells(h + x - 1, 6)))
Z = Cells(i, 6)
i = i + 1
Next j
i = i - 1
End If
Next i
End Sub
大家帮帮忙

lenghonghai601

1. Sub 按钮1_Click()
   
2. Dim i%
   
3. x = Range("b65536").End(xlUp).Row
   
4. For i = 1 To x - 1
   
5.     If Range("a" & i + 1) <> "" Then
   
6.         a = Range("a" & i + 1).MergeArea.Rows.Count
   
7.         arr = Range("b" & i + 1).Resize(a, 1).Value
   
8.         y = WorksheetFunction.Large(arr, 2)
   
9.         Range("c" & i + 1).Resize(a, 1) = y
   
10.     End If
    
11. Next
    
12. End Sub
    

复制代码

蔡训博

lenghonghai601 发表于 2018-6-19 19:17

其他没有问题，希望再帮忙改改

duquancai

蔡训博 发表于 2018-6-19 21:00
其他没有问题，希望再帮忙改改

附件在哪里？还有就是 对于原始数据 有合并单元格 是最不礼貌的做法！！！

蔡训博

duquancai 发表于 2018-6-19 21:18
附件在哪里？

就是二楼lenghonghai601 帮忙写的 希望帮忙改改

duquancai

蔡训博 发表于 2018-6-19 21:23
就是二楼lenghonghai601 帮忙写的 希望帮忙改改

附件在哪里？还有就是 对于原始数据 有合并单元格 是最不礼貌的做法！！！

蔡训博

duquancai 发表于 2018-6-19 21:24
附件在哪里？还有就是 对于原始数据 有合并单元格 是最不礼貌的做法！！！

00002.rar (7.01 KB, 下载次数: 4)

2018-6-19 21:27 上传

点击文件名下载附件

附件，谢谢了，希望可以从第27行开始运行

蔡训博

一直等待着

蔡训博

下班，继续冒个泡

lenghonghai601

1. Sub test()
   
2. Dim i%
   
3. x = Range("b65536").End(xlUp).Row
   
4. For i = 20 To x
   
5.     If Range("a" & i + 1) <> "" Then
   
6.         a = Range("a" & i + 1).MergeArea.Rows.Count
   
7.         arr = Range("b" & i + 1).Resize(a, 1).Value
   
8.         If a <> 1 Then
   
9.         y = WorksheetFunction.Large(arr, 2)
   
10.         Range("c" & i + 1).Resize(a, 1) = y
    
11.         Else
    
12.         Range("c" & i + 1) = Range("b" & i + 1).Value
    
13.         End If
    
14.     End If
    
15. Next
    
16. End Sub

复制代码