230问答网 > Excel表格中列A数据编号固定不变，如何让列B的数据编号一一对应列A。列A有列B 的所有编号，请高手帮忙了

Excel表格中列A数据编号固定不变，如何让列B的数据编号一一对应列A。列A有列B 的所有编号，请高手帮忙了

2024-11-26 18:30:07

推荐回答（4个）

回答1：

这种问题肯定是VBA好用
代码如下
Sub test()
Dim arr, x&, y&
arr = Range("A1:B" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
For y = 1 To UBound(arr)
If arr(y, 2) = arr(x, 1) Then
k = arr(x, 2)
arr(x, 2) = arr(y, 2)
arr(y, 2) = k
End If
Next y
Next x
Range("A1").Resize(UBound(arr), 2) = arr
End Sub

回答2：

在c1输入公式=if（countif（b：b，a1）>0,a1,""），将公式向下填充，然后复制c列在c列粘贴数值，再删除b列即可。

回答3：

用vlookup或者index

回答4：

究竟要做什么？有什么用？