2个回答
展开全部
最笨的也是最简单的方法
vba中输入:
Dim i, j, a, b, max As Integer
Sub main()
b = 1
max = 1000
For i = 1 To max
For j = 1 To max
If Cells(j, 1) = i Then
For a = 1 To max
If Cells(a, 2) = i Then
Cells(b, 4) = i
Cells(b, 5) = i
b = b + 1
End If
Next a
End If
Next j
Next i
End Sub
其中max=1000为数值中、行数中最大的数,哪个最大要哪个。示例中就可等于max=445。
数值大了运行速度有点慢
vba中输入:
Dim i, j, a, b, max As Integer
Sub main()
b = 1
max = 1000
For i = 1 To max
For j = 1 To max
If Cells(j, 1) = i Then
For a = 1 To max
If Cells(a, 2) = i Then
Cells(b, 4) = i
Cells(b, 5) = i
b = b + 1
End If
Next a
End If
Next j
Next i
End Sub
其中max=1000为数值中、行数中最大的数,哪个最大要哪个。示例中就可等于max=445。
数值大了运行速度有点慢
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询